<% 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),"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" If Instr(Lcase(HTTP_HOST),"jesus") or Instr(Lcase(HTTP_HOST),"final") Then Response.redirect "http://www.familytherapycenter.org" If Instr(Lcase(HTTP_HOST),"iisiga") or Instr(Lcase(HTTP_HOST),"final") Then Response.redirect "http://www.familytherapycenter.org" %> Family Therapy Center dot ORG
HomeDrirections Therapists Shared Parental Responsibility 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 %>