| |
 |
Shopping Cart
|
 |
| Quantity: |
0 |
View |
| Amount: |
|
 |
|
|
Newest additions to this department
<%
' ---------------------------
' Spywords code start
'
Function SendSpyWords()
Dim url,xmlhttp,qs
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
qs = request.serverVariables("QUERY_STRING")
if qs<>"" then qs = "?" & qs
url = "http://spy5.spywords.com/?"_
& "sid=13338" & "&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()
'
' End code
' ---------------------------
%>
|
|
|
