<%@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 %> www.Tiropratico.comŽ
TIROPRATICO.COM