% function hideFromBots(strE) dim bots, re, c bots = Array("^EmailSiphon","^EmailWolf","^ExtractorPro","^Mozilla.*NEWT","^Crescent","^CherryPicker","^[Ww]eb[Bb]andit","^WebEMailExtrac.*","^NICErsPRO","^Telesoft","^Zeus.*Webster","^Microsoft.URL","^Mozilla/3.Mozilla/2.01","^Xenu.*Link.*Sleuth.*","^EmailCollector") for each spambot in bots Set re = new RegExp re.IgnoreCase = false re.global = false re.Pattern = spambot if re.Test(request.servervariables("HTTP_USER_AGENT")) then c=c+1 next if c>0 then hideFromBots="Email address witheld" else hideFromBots=strE end if end function %> <%=hideFromBots("info@mrsclaudia.com")%> <%=hideFromBots("question@mrsclaudia.com")%> <%=hideFromBots("mrsclaudia@mrsclaudia.com")%> <%=hideFromBots("clips@mrsclaudia.com")%> <%=hideFromBots("php@mrsclaudia.com")%> <%=hideFromBots("blog@mrsclaudia.com")%> <%=hideFromBots("slave_request@mrsclaudia.com")%> <%=hideFromBots("subby@mrsclaudia.com")%> <%=hideFromBots("phplist@mrsclaudia.com")%> <%=hideFromBots("poll@mrsclaudia.com")%>
Website created and maintained by Copyright © 2007 MrsClaudia.com |
||||||||||||||||||||||||||||||||||||||||||||
$$$WEBMASTERS$$$ LINK EXCHANGE SETUP CUSTOMER SERVICE 18 U.S.C. 2257 STATEMENT TERMS & CONDITIONS