% 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 %>
![]() |
||||||
Home \ Online Books \ Whaling Through Jonah |
|
Incredible as it may seem, men have been swallowed by whales and lived to tell the tale. This is one whale's story of a mysterious trip to Ninevaeh. Inside the whale is the prophey Jonah. On the following page is a delightful story for your whole family to enjoy. A whale of a tale, as told by the whale. |
Begin reading Whaling
through Jonah
|
|
|