Published by exdone
Posted on December 06, 2008
<%
Dname = Request.ServerVariables("SERVER_NAME")
Dname = ucase(Dname)
if InStr(Dname,"DOMAIN1") <> 0 then
response.redirect "Domain1Dir"
elseif InStr(Dname,"DOMAIN2") <> 0 then
response.redirect "Domain2Dir"
end if
%>
or
<%
Dim host = LCase(Request.ServerVariables("HTTP_HOST"))
SELECT CASE host
Case "www.domain1.com"
Response.Redirect("Default.aspx")
CASE ELSE
Response.Redirect("/domain2Directory/Default.aspx")
End Select
%>
more info