Supongo que te refieres al mismo script que lo llama:
Dim strUrl
strUrl = "http://" & request.servervariables("SERVER_NAME") & request.servervariables("SCRIPT_NAME") & "?" & request.servervariables("QUERY_STRING")
Si quieres saber el protocolo que se usa, tambien puedes sacarlo chequeando request.servervariables("SERVER_PROTOCOL")
Para saber todas las variables del servidor:
Código:
for each e in request.ServerVariables
response.Write(e & ": " & request.ServerVariables(e) & "<br />")
next
Un saludo