% 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 \ Resources \ Science Kit \ Section 3g | --Next>> |
|
| Section 3: Quotations from Scientists |
| Science, Religion, Creation and Evolution |
Some Comments on Evolutionary Speculation M.T. Ghiselin, "Models in Phylogeny," Models in Paleobiology, T.J.M. Schopf, editor (Freeman, Cooper & Co., San Francisco, 1972), p. 131.
W.R. Thompson, Studia Entomologica, vol. 3, Dec. 1960, p. 498.
Ledyard Stebbins, "Adaptive Shifts and Evolutionary Novelty," Studies in the Philosophy of Biology, F.J. Ayala and Theodosius Dobzhansky, editors (University of California Press, Berkeley, 1974), p. 298.
|
|
|