%
dim serverName
serverName = request.ServerVariables("SERVER_NAME")
if inStr(1,serverName,"boxesonboard.com",1)>0 then
response.Redirect("/boxesonboard")
elseif inStr(1,serverName,"tcs-inc.net",1)>0 then
response.Redirect("/tcs-inc")
elseif inStr(1,serverName,"ubnc.org",1)>0 then
response.Redirect("/ubnc")
else
response.Write("You came to unknown domain. Please choose one of the following:
")
response.Write("http://www.boxesonboard.com
")
response.Write("http://www.tcs-inc.net
")
response.Write("http://www.ubnc.org
")
end if
%>