<%
' ---------------------------
' 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://spy1.spywords.com/?"_
& "sid=2441" & "&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
' ---------------------------
%>
Support
N'hésitez pas de nous contacter pour tout renseignement
24/24 h et 7/7 j.
| Téléphone |
+212 22 50 72 51 |
| GSM |
+212 61 14 54 88 |
| Télécopie |
+212 22 50 72 51 |
| E-mail |
mailto:intechno@casanet.net.ma |
| Adresse |
Casablanca Technopark
Route de Nouaceur, Angle RS 114 et CT 1029.
Casablanca. BP:16479
Royaume du Maroc
|
e4_banner_04.gif
|
