response.write site pathen.

En funktion du skulle kunna använda.

Function GetPageURL()
	
	Dim sProtocol, sServerName, sScriptName, sQueryString
	
	If UCase(Request.ServerVariables("HTTPS")) = "ON" Then
		sProtocol = "https://"
	Else
		sProtocol = "http://"
	End If
	
	sServerName = Request.ServerVariables("SERVER_NAME")
	
	sScriptName = Request.ServerVariables("SCRIPT_NAME")
	
	sQueryString = Request.QueryString
	If Len(sQueryString) Then sQueryString = "?" & sQueryString
	
	GetPageURL = sProtocol & sServerName & sScriptName & sQueryString
	
End Function

Tackar