Function GetUrl () GetUrl = "http: //" & Request.ServerVariables ( "SERVER_NAME") & Request.ServerVariables ( "URL") If Request.ServerVariables ( "QUERY_STRING") <> "" Then GetURL = GetUrl & "" & Request? .Servervariables ("query_string") End Function