<%
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
%>
The Search For Noah's Ark - For Further Study
