<%
Function getCurrentUrl() 

On Error Resume Next 

Dim strTemp 

If LCase(Request.ServerVariables("HTTPS")) = "off" Then 

strTemp = "http://" 

Else 

strTemp = "https://" 

End If 

strTemp = strTemp & Request.ServerVariables("SERVER_NAME") 

If Request.ServerVariables("SERVER_PORT") <> 80 Then 

strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT") 

end if 

strTemp = strTemp & Request.ServerVariables("URL") 

getCurrentUrl = strTemp 

End Function

Response.Write getCurrentUrl()

Response.Write("<BR><BR>")

Function getUrlWithParams() 

Dim ScriptAddress,Servername,qs 

ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) 

Servername = CStr(Request.ServerVariables("Server_Name")) 

qs=Request.QueryString 

If Request.ServerVariables("SERVER_PORT") <> 80 Then 

Servername = Servername & ":" & Request.ServerVariables("SERVER_PORT") 

end if 

if qs<>"" then 

getUrlWithParams ="http://"& Servername & ScriptAddress &"?"&qs 

else 

getUrlWithParams ="http://"& Servername & ScriptAddress 

end if 

End Function

Response.Write getUrlWithParams()

%>