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

Home \ Online Books \ Search for Noah's Ark
The Search for Noah's Ark

But it is!

or is it?

Have you ever wondered if Noah's Ark is really up there -- on Ararat?

A mountain that has captured the imagination of many explorers.

Now you too can join...

The Search For Noah's Ark - by Kelly L. Segraves

Begin reading The Search for Noah's Ark.