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