Function for obtaining the current browser address

Function getlocationurl ()
Dim URL
Dim SERVERPORT, servername, scriptname, querystring
Servername = request. servervariables ("SERVER_NAME ")
SERVERPORT = request. servervariables ("server_port ")
Scriptname = request. servervariables ("script_name ")
Querystring = request. servervariables ("QUERY_STRING ")
Url = "http: //" & servername
If SERVERPORT <> "80" then url = URL & ":" & SERVERPORT
Url = URL & scriptname
If querystring <> "then url = URL &"? "& Querystring
Getlocationurl = URL
End Function

Response. Write getlocationurl ()