Bare til orientering fandt jeg en side på nettet med en lang liste over user-agents.
http://www.siteware.ch/webresources/useragents/db.htmlJeg har derefter organiseret min kode således:
--------------
uAgent=request.Servervariables("HTTP_USER_AGENT")
indeksering=1
if instr(uAgent, "robot")>0 then indeksering=0 end if
if instr(uAgent, "altavista")>0 then indeksering=0 end if
if instr(uAgent, "AnzwersCrawl")>0 then indeksering=0 end if
if instr(uAgent, "Arachnoidea")>0 then indeksering=0 end if
if instr(uAgent, "ArchitextSpider")>0 then indeksering=0 end if
if instr(uAgent, "CherryPicker")>0 then indeksering=0 end if
if instr(uAgent, "Crescent")>0 then indeksering=0 end if
if instr(uAgent, "EmailCollector")>0 then indeksering=0 end if
if instr(uAgent, "EmailSiphon")>0 then indeksering=0 end if
if instr(uAgent, "EmailWolf")>0 then indeksering=0 end if
if instr(uAgent, "Enfish")>0 then indeksering=0 end if
if instr(uAgent, "ExtractorPro")>0 then indeksering=0 end if
if instr(uAgent, "Harvest")>0 then indeksering=0 end if
if instr(uAgent, "GAIS")>0 then indeksering=0 end if
if instr(uAgent, "Googlebot")>0 then indeksering=0 end if
if instr(uAgent, "Gulliver")>0 then indeksering=0 end if
if instr(uAgent, "archiver")>0 then indeksering=0 end if
if instr(uAgent, "alexa")>0 then indeksering=0 end if
if instr(uAgent, "KGValidator")>0 then indeksering=0 end if
if instr(uAgent, "EZResult")>0 then indeksering=0 end if
if instr(uAgent, "T-H-U-N-D-E-R-S-T-O-N-E")>0 then indeksering=0 end if
if instr(uAgent, "MSIECrawler")>0 then indeksering=0 end if
if instr(uAgent, "Kolibri")>0 then indeksering=0 end if
if instr(uAgent, "Namecrawler")>0 then indeksering=0 end if
if instr(uAgent, "Scooter")>0 then indeksering=0 end if
if instr(uAgent, "search")>0 then indeksering=0 end if
if instr(uAgent, "sexsearcher")>0 then indeksering=0 end if
if instr(uAgent, "Slurp")>0 then indeksering=0 end if
if instr(uAgent, "Squid")>0 then indeksering=0 end if
if instr(uAgent, "SwissSearch")>0 then indeksering=0 end if
if instr(uAgent, "Ultraseek")>0 then indeksering=0 end if
if instr(uAgent, "ValueClick")>0 then indeksering=0 end if
if instr(uAgent, "WebCrawler")>0 then indeksering=0 end if
if instr(uAgent, "W3C_Validator")>0 then indeksering=0 end if
if instr(uAgent, "WiseWire")>0 then indeksering=0 end if
if indeksering=1 then
selve statistikoptagelsen (som jeg dog lige vil holde hemmelig)
end if