<% 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
HomeDrirections Therapists Counseling
<% 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 %>