<% @Language = "VBScript" %>
<%

Dim Domain

Dim NewLocation

 

Domain = Lcase(Request.ServerVariables("HTTP_HOST"))

 

Select Case Domain

Case "www.geosyntheticssociety.org", "geosyntheticssociety.org"

            NewLocation = "../indexigs.htm"
			
Case "www.nags-igs.org", "nags-igs.org"

            NewLocation = "http://www.geosyntheticssociety.org/NAGS/index.htm"

Case "www.gigsa.org", "gigsa.org"

            NewLocation = "../GIGSA/index.htm"

End Select

            Response.Redirect NewLocation

            Response.Flush

            Response.End

%>