<% dim strHost, strURL strHost= Request.ServerVariables("HTTP_HOST") select Case strHost case "downloads.c-dreams.com" strURL = "" case "press.c-dreams.com" strURL = "http://www.riccardomantelli.com/details/details.htm" case "eyes.c-dreams.com" strURL = "eyes.htm" case "lab.c-dreams.com" strURL = "/lab/" case else strURL = "index.html" end select Response.Redirect (strURL) %>