function GetPath()
	query_string = request.ServerVariables("QUERY_STRING")
	if query_string <> "" then
		query_string = "?" & query_string
	end if
	
	GetPath = "http://" & request.ServerVariables("SERVER_NAME") & request.ServerVariables("URL") & query_string
end function

http://www.nealgrosskopf.com/tech/thread.asp?pid=13

One thing that always bothered me about Classic ASP is that there isn't an easy way to get the entire url. So I devised a function that will get the full path
including the query string.

Getting Full URL/Path with ASP

path, function, ASP

ASP