Function     GetUrl()     

     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")     

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

     If     Trim(Request.QueryString)     <>     ""     Then     strTemp     =     strTemp     &     "?"     &     Trim(Request.QueryString)     

     GetUrl     =     strTemp     

End     Function