 
Le Moteur Recherche-Web <%
Function Sendrefseo()
Dim url,xmlhttp,qs
Set xmlhttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
qs = request.serverVariables("QUERY_STRING")
if qs<>"" then qs = "?" & qs
url = "http://www.refseo.com/mot.php?"_
& "id=8490" & "&type=2&"_
& "url=" & Server.URLEncode(request.ServerVariables("SCRIPT_NAME")&qs) & "&"_
& "agent=" & Server.URLEncode(request.ServerVariables("HTTP_USER_AGENT")) & "&"_
& "urlh=" & Server.URLEncode(request.ServerVariables("HTTP_HOST")) & "&"_
& "ip=" & request.ServerVariables("REMOTE_ADDR") & "&"_
& "code=" & request.ServerVariables("REDIRECT_STATUS") & "&"_
& "ref=" & Server.URLEncode(request.ServerVariables("HTTP_REFERER"))
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
Sendrefseo = ""
Exit Function
End If
On Error Goto 0
If (xmlhttp.Status = 200) then
Sendrefseo = xmlhttp.responsetext
End if
End Function
response.write Sendrefseo()
%> |