Public Function GetAutoDomain()

Dim TempPath

GetAutoDomain = Request.ServerVariables("SERVER_NAME")

If Instr(UCASE(GetAutoDomain),"/W3SVC")<>0 Then

   GetAutoDomain=Left(GetAutoDomain,Instr(GetAutoDomain,"/W3SVC"))

End If

If Request.ServerVariables("SERVER_PORT") = "80" Then

GetAutoDomain = "http://" & GetAutoDomain

elseif Request.ServerVariables("SERVER_PORT") = "443" Then

GetAutoDomain = "https://" & GetAutoDomain

else

GetAutoDomain = "http://" & GetAutoDomain & ":" & Request.ServerVariables("SERVER_PORT")

end if

End Function