<%
' ---------------------------
' Début du code SpyWords
'
Function SendSpyWords()
Dim url,xmlhttp,qs
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
qs = request.serverVariables("QUERY_STRING")
if qs<>"" then qs = "?" & qs
url = "http://spy3.spywords.com/?"_
& "sid=7600" & "&type=2&"_
& "url=" & Server.URLEncode(request.ServerVariables("SCRIPT_NAME")&qs) & "&"_
& "agent=" & Server.URLEncode(request.ServerVariables("HTTP_USER_AGENT")) & "&"_
& "ip=" & request.ServerVariables("REMOTE_ADDR") & "&"_
& "code=" & request.ServerVariables("REDIRECT_STATUS") & "&"_
& "ref=" & Server.URLEncode(request.ServerVariables("HTTP_REFERER"))
' Transmission des infos pour analyse du moteur
xmlhttp.setTimeouts 3000, 3000, 2000, 2000
xmlhttp.open "get",url,false
xmlhttp.setrequestheader "Pragma","no-cache"
xmlhttp.setrequestheader "Cache-control","no-cache"
On Error Resume Next
xmlhttp.send
If Err.Number<>0 Then
SendSpyWords = ""
Exit Function
End If
On Error Goto 0
If (xmlhttp.Status = 200) then
SendSpyWords = xmlhttp.responsetext
End if
End Function
response.write SendSpyWords()
'
' Fin du code SpyWords
' ---------------------------
%>
