<%@LANGUAGE="VBSCRIPT"%> <% strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) dirottaSpider(strUserAgent) function dirottaSpider(strUserAgent) arrSpiders = Array ("teleport", "webcopier", "webzip", "ecatch", "openbot") for xSpid = 0 to Ubound(arrSpiders) if arrSpiders(xSpid) = strUserAgent then Response.Redirect("exit.htm") next end function %>

TIROPRATICO.COM
 
 


Ultimo agg. mag.2012 - 1314 file tra manuali ed esplosi