Ricavare l'indirizzo completo della pagina che esegue lo script

Alle volte può essere utile scrivere in fondo ad ogni pagina l'indirizzo completo della stessa.
Per farlo si possono usare alcune Server Variables davvero interessanti.
Ecco lo script:

<%

dim host, page, qryStr, url

host = Request.ServerVariables("HTTP_HOST")
page = Request.ServerVariables("SCRIPT_NAME")

qryStr = Request.QueryString

url = "http://" & host
url = url & page

if len (qryStr) >0 then
  url = url & "?" & qryStr
end if

Response.write "<p>Sei sulla pagina " &_
               url & ".</p>"

%>

Ritieni il contenuto di questa pagina incompleto, non attendibile oppure oggetto di altre problematiche? INVIA UNA SEGNALAZIONE Grazie!