<% @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.howtohug.com", "howtohug.com"
NewLocation = "howtohug/index.htm"
Case "www.idealknowledge.com", "idealknowledge.com"
NewLocation = "idealknowledge/index.htm"
Case "www.theguaranteedlaugh.com", "theguaranteedlaugh.com"
NewLocation = "theguaranteedlaugh/index.htm"
Case Else ' Default to main page
NewLocation = "taoss/index.php"
End Select
Response.Redirect NewLocation
Response.Flush
Response.End
%>
