Advanced Search

Return to Snippet

Revision: 33993
at October 15, 2010 20:07 by sikwan
Initial Code 
Function CurrentURLWithParams()

     Dim Temp
     Temp = "http://" & Request.ServerVariables("SERVER_NAME")
     Temp = Temp & Request.ServerVariables("SCRIPT_NAME")

     If Request.ServerVariables("QUERY_STRING") <> "" Then
          Temp = Temp & "?" & Request.ServerVariables("QUERY_STRING")
     End If

     CurrentURLWithParams = Temp

End Function
Initial URL 









Initial Description





This function return the current Url, including the Get parameters.









Initial Title





Current Url With Parameters









Initial Tags





url









Initial Language





ASP