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

 if Request.ServerVariables("HTTPS") = "on" then 
   s = "s"
 else 
   s = ""
 end if  
 
 protocol = strleft2(LCase(Request.ServerVariables("SERVER_PROTOCOL")), "/") & s 

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

 curPageURL1 = protocol & "://" & Request.ServerVariables("SERVER_NAME") &_ 
              port & Request.ServerVariables("SCRIPT_NAME")
 if request.QueryString() <> "" then
 	curPageURL1=curPageURL1+ "?" + request.QueryString()
 end if
end function
function strLeft2(str1,str2)
 strLeft2 = Left(str1,InStr(str1,str2)-1)
end function
dim CurrentPageURL1
CurrentPageURL1=curPageURL1()
session("currentURL")=CurrentPageURL1
%>