<% 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 Way It Was

Home \ Online Books \ The Way it Was
The Way it Was
Once there was absolutely nothing -- no life, no earth, not even a universe.

Suddenly, the earth appeared out of the darkness, plant life sprang up in abundance, and the universe and the animals came into existence. Then man appeared to take his rightful place on the planet earth.

But how? And when?

At last, there’s an answer that tells it...

The Way It Was By Kelly L. Segraves

Begin reading The Way it Was.