<%@ Language=VBScript %> <% dim rValue, locationURL rValue = cstr(trim(Request.QueryString("r"))) if Len(rValue) > 0 then locationURL = "&r=" & rValue else locationURL = "" end if ' Permanent redirection Response.Status = "301 Moved Permanently" Response.AddHeader "Location", locationURL Response.End %>