<%
browser=Request.ServerVariables("HTTP_USER_AGENT")
browser=LCase (browser)
dim spider (11)
spider(0)="googlebot"
spider(1)="mercator"
spider(2)="fast.no"
spider(3)="scooter"
spider(4)="inktomi"
spider(5)="slurp"
spider(6)="infoseek"
spider(7)="MSIECrawler"
spider(8)="BaiDuSpider"
spider(9)="The World Wide Web Worm"
spider(10)="Alexa"
spider(11)="GigaBot"
keywords="impianti, depurazione, acque, Impianti di trattamento di acque primarie, monitoraggio, campionamento e analisi"
for i=0 to ubound(spider)
if Instr(1, browser, spider(i), 1)<>0 then
Response.Write ""
Response.Write ""
Response.Write ""
isSpider = true
exit for
end if
next
erase spider
%>
<%
if isSpider = true then Response.Write "
" & keywords & "
"
%>
SITECO
srl - Via degli Olmetti 36, zona Ind.Roma Nord 00060 Formello
(RM) Tel.06-90400372-3 Fax 0690400379
