%
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
%>
Science Kit 3 Introduction
| Section 3: Quotations
from Scientists |
| Introduction |
| The quotations
on the following pages are mainly from scientists, with some from a few philosophers and
commentators, who for the most part hold to evolution. Consequently, we do not agree with
all of the conclusions of these authors. Nevertheless, these quotations reveal the
theoretical and speculative character of the evolutionary perspective in science. When one
remembers the evolutionary bias of the large majority of these authors, their exposure of
the lack of evidence to confirm evolutionary theories becomes striking. |