<%
select case request.servervariables("http_host")
case "www.1-baiwan.net" '1
 Server.Transfer("default.asp")
case "www.00809t.com" '2
 Server.Transfer("i.htm")
end select
%>