<% ' --------------------------- ' 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
' 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 ' --------------------------- %>
