<% @Language="VBScript" %>
<% Option Explicit %>
<%
dim host
dim redirect
Response.Buffer=True
host=Request.ServerVariables("HTTP_HOST")
response.write(host)
if (host <> "www.thrillershop.com") then
Select Case host
Case "www.yogashmoga.com"
redirect="http://www.thrillershop.com/"
Case "yogashmoga.com"
redirect="http://www.thrillershop.com/"
Case "www.borisbrothers.com"
redirect="http://www.thrillershop.com/boris/"
Case "borisbrothers.com"
redirect="http://www.thrillershop.com/boris/"
Case "www.grubwear.com"
redirect="http://www.thrillershop.com/grubbys/"
Case "grubwear.com"
redirect="http://www.thrillershop.com/grubbys/"
Case "www.jacksonsnowboards.com"
redirect="http://www.thrillershop.com/jackson/"
Case "jacksonsnowboards.com"
redirect="http://www.thrillershop.com/jackson/"
Case "www.fivesixteenths.com"
redirect="http://www.thrillershop.com/516/"
Case "fivesixteenths.com"
redirect="http://www.thrillershop.com/516/"
case else
redirect = "http://www.thrillershop.com"
End Select
response.write("redirect: " & redirect)
Response.Redirect(redirect)
end if
%>
thrillershop.com