% @Language = "VBScript" %> <% Option Explicit Dim HostURL Dim NewLocation HostURL = Lcase(Request.ServerVariables("HTTP_HOST")) Select Case HostURL ' Find which site to redirect to Case "www.lancastertravelinc.com", "lancastertravelinc.com" NewLocation = "./lancastertravel.htm" Case Else ' Default to main page NewLocation = "./index.html" End Select Server.Transfer NewLocation %>
|
|
|
|
|
|
|
|
|
|
|