% 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 3k | --Next>> |
|
| Section 3: Quotations from Scientists |
| Other Problems With the Theory |
All Types Seem Specialized J.S. Huxley, Evolution, the Modern Synthesis (Allen & Unwin, London, 1942), pp. 562, 571.
E.S. Russell, "The Diversity of Animals," Acta Biotheoretica, vol. 13 (Suppl. 1), p. 1.
G.G. Simpson, The Meaning of Evolution (Bantam Books, New York, p. 298.
|
|
|