ASP: 301 redirect to a domain to a subfolder

Published by

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