http://webcheatsheet.com/asp/get_current_page_url.php

 Add the following code to a page:

<%
function curPageURL()
dim s, protocol, port

if Request.ServerVariables("HTTPS") = "on" then
s = "s"
else
s = ""
end if

protocol = strleft(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s

if Request.ServerVariables("SERVER_PORT") = "80" then
port = ""
else
port = ":" & Request.ServerVariables("SERVER_PORT")
end if

curPageURL = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_
port & Request.ServerVariables("SCRIPT_NAME")
end function

function strLeft(str1,str2)
strLeft = Left(str1,InStr(str1,str2)-1)
end function
%>

You can now get the current page URL using the line:

<%
response.write(curPageURL())
%>

If your page had Querystring info you want as well you could try code like this:

<%
response.write(curPageURL() & "?" & Request.ServerVariables("QUERY_STRING"))
%>

If your page had Form info that might have been posted to it then use the following code:

<%
response.write(curPageURL() & "?" & Request.Form)
%>

Sometimes it is needed to get the page name only. The following example shows how to do it:

<%
function curPageName()
dim pagename

pagename = Request.ServerVariables("SCRIPT_NAME")

if inStr(pagename, "/") > 0 then
pagename = Right(pagename, Len(pagename) - instrRev(pagename, "/"))
end if

curPageName = pagename
end function

response.write("The current page name is " & curPageName())
%>