Prueba con estas session variables
session("SERVER_NAME") & session("SCRIPT_NAME")
De todos modos, ve cual te sirve
<%
For each item in Request.ServerVariables
Response.Write(item & "= " & request(item) & "<br>")
NExt
%>
Me parece que hay una que se llama URL
Salu2,