<% Dim host Set host = Request.Servervariables("HTTP_HOST") Select Case Right(host, Len(host)-4) Case "businesscardaccess.com" Response.Redirect ("http://wwq.directcardaccess.com/mark/home/business/") Case Else Response.Redirect ("http://wwq.directcardaccess.com/mark/home/") End Select %>