% 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 \ Jesus Christ Creator |
Jesus
Christ Creator
|
|
| Acknowledgments I gratefully acknowledge the help of my friend and colleague, Dr. Robert Kofahl, who reviewed this manuscript for technical accuracy, and Dr. W. J. DeSaegher, who reviewed the entire manuscript, contributing helpful suggestions. I would also like to thank the men of the Creation Research Society whose firm stand on the Word of God has strengthened my faith and made this book possible. Kelly L. Segraves, M.A., D.R.E. |
|
|