%Option Explicit Response.Buffer = True Dim HostURL HostURL = Lcase(Request.ServerVariables("HTTP_HOST")) Select Case HostURL 'Find which site to redirect to Case "www.hydroscape.insuranceplans.com","hydroscape.insuranceplans.com" Response.Redirect("http://www.insuranceplans.com/15") Case "www.juchafamily.com", "juchafamily.com" Response.Redirect("http://www.insuranceplans.com/JuchaFamily") 'Case "www.fiddlesticks.com", "fiddlesticks.com" 'Response.Redirect("fiddlesticks/default.htm") End Select %>