<% @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.pvci.org", "pvci.org"
NewLocation = "pvci/index.htm"
Case "www.sportsmancommunity.com", "sportsmancommunity.com"
NewLocation = "sportsmancommunity/index.htm"
Case Else ' Default to main page
NewLocation = "http://www.sportsmancommunity.com"
End Select
Response.Redirect NewLocation
Response.Flush
Response.End
%>
Sportsman Community is comming soon
SportsmanCommunity.com
For Information E-Mail
Webmaster@sportsmancommunity.com