<%
HTTP_HOST = CharStripper(lcase(Request.ServerVariables("HTTP_HOST"))) 'Domain Name
If Instr(Lcase(HTTP_HOST),"fastoys") Then Response.redirect "http://fastoys.50megs.com/"
If Instr(Lcase(HTTP_HOST),"terra") or Instr(Lcase(HTTP_HOST),"quat") or Instr(Lcase(HTTP_HOST),"lake") or Instr(Lcase(HTTP_HOST),"soup") Then Response.redirect "http://www.TerraQuatics.com/"
If Instr(Lcase(HTTP_HOST),"fastoys") Then Response.redirect "http://fastoys.50megs.com/"
If Instr(Lcase(HTTP_HOST),"grotto") Then Response.redirect "http://www.nw-cybermall.com/grotto.htm"
If Instr(Lcase(HTTP_HOST),"faces") Then Response.redirect "http://www.rubberfaces.com"
If Instr(Lcase(HTTP_HOST),"part") Then Response.redirect "http://memory.loc.gov/learn/features/election/partysys.html"
%>
Family Therapy Center dot ORG
<%
Function CharStripper(DaString)
DaString = Replace(DaString,"%","")
DaString = Replace(DaString,"<","")
DaString = Replace(DaString,">","")
DaString = Replace(DaString,"{","")
DaString = Replace(DaString,"}","")
DaString = Replace(DaString,"[","(")
DaString = Replace(DaString,"]",")")
DaString = Replace(DaString,";",",")
CharStripper = LCase(DaString)
End Function
%>
