<% @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.towmaster.com", "towmaster.com"
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.towmaster.com/trailers/"
  
Case "www.towmastertrailers.com", "towmastertrailers.com"
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.towmaster.com/trailers/"
  
Case "trucks.towmaster.com"
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.towmaster.com/trucks/"
  
Case "finance.towmaster.com"
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://towmaster.com/trailers/?page_id=19"
  
Case Else    ' Default to main page
  Response.Status = "301 Moved Permanently"
  Response.AddHeader "Location", "http://www.towmaster.com/trailers/"

End Select

%>