<%
Function f_GetSelfURL()
    If Request.ServerVariables("HTTPS")="on" Then
        sSelfURL = "https://"
    ElseIf Request.ServerVariables("HTTPS")="off" Then
        sSelfURL = "http://"
    End If
    sSelfURL = sSelfURL & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("PATH_INFO")
    sQuery = Request.ServerVariables("QUERY_STRING")
    If sQuery <> "" Then
        sSelfURL = sSelfURL & "?" & sQuery
    End If
    f_GetSelfURL = sSelfURL
End Function

response.write f_GetSelfURL
%>