<% Par_UserName = Request("UserName") Par_PageName = Request("PageName") str=Request.ServerVariables("HTTP_REFERER") pos=Instr(str,"://") if (pos > 0 AND (pos+2) < len(str)) Then str = Left(str,(pos+2)) else Response.End end if Response.Redirect str & "hitstatistics.webshop5.com/site/main/collect.asp?UserName="& Par_UserName & "&PageName=" & Par_PageName %>