<% @Language = "VBScript" %>
<% Option Explicit
Response.Buffer = True

Dim HostURL
HostURL = Lcase(Request.ServerVariables("HTTP_HOST"))

Select Case HostURL ' Find which site to redirect to

Case "www.bottomlinetraction.com", "bottomlinetraction.com"
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.bottomlinetraction.com/wearbars/index.php"

Case Else    ' Default to main page
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.bottomlinetraction.com/wearbars/index.php"

End Select

%>