% @Language = "VBScript" %> <% Option Explicit Response.Buffer = True Dim HostURL Dim NewLocation HostURL = Lcase(Request.ServerVariables("HTTP_HOST")) Select Case HostURL ' Find which site to redirect to Case "www.birdsafe.net", "birdsafe.net" NewLocation = "net/index.htm" Case Else ' Default to main page NewLocation = "birdsafe.com" End Select Response.Redirect NewLocation Response.Flush Response.End %>
|
|
|
|
Links Page Privacy/Info Page Send us Bird-E-Mail
|