%
dim serverName
serverName = request.ServerVariables("SERVER_NAME")
if inStr(1,serverName,"alipse.com",1)>0 then
response.Redirect("/alipse")
elseif inStr(1,serverName,"ivanfinancial.com",1)>0 then
response.Redirect("/ivanfinancial")
elseif inStr(1,serverName,"ivanmerchant.com",1)>0 then
response.Redirect("/ivanmerchant")
elseif inStr(1,serverName,"ivanmerchants.com",1)>0 then
response.Redirect("/ivanmerchants")
else
response.Write("You came to unknown domain. Please choose one of the following:
")
response.Write("http://www.alipse.com
")
response.Write("http://www.ivanfinancial.com
")
response.Write("http://www.ivanmerchant.com
")
response.Write("http://www.ivanmerchants.com
")
end if
%>