Function thispage()
thispage="http://"
thispage=thispage&Request.ServerVariables("SERVER_NAME")
if Request.ServerVariables("SERVER_PORT")<>80 then thispage=thispage&":"&Request.ServerVariables("SERVER_PORT")
if Request.ServerVariables("SCRIPT_NAME")<>"" then thispage=thispage&Request.ServerVariables("SCRIPT_NAME")
if Request.ServerVariables("QUERY_STRING")<>"" then thispage=thispage&"?"&Request.ServerVariables("QUERY_STRING")
end Function