How can I get the current domain in Classic ASP?

Andrew G. Johnson picture Andrew G. Johnson · Jan 27, 2010 · Viewed 16.3k times · Source

I want to get the current domain so if the page is http://www.domain.com/page.asp I need www.domain.com

Answer

Edelcom picture Edelcom · Jan 27, 2010
Request.ServerVariables("SERVER_NAME")'

To be complete, one of my functions:

  function PageUrl
     dim sPort
     sPort = Request.ServerVariables("SERVER_PORT")
     if sPort = "80" then
        sPort = ""
     else
        sPort = ":" & sPort
     end if

     PageUrl = "http://" & Request.ServerVariables("SERVER_NAME") & sPort & _
                           Request.ServerVariables("URL") & "?" & _
                           Request.ServerVariables("QUERY_STRING")
  end function