Le Partenaire de Votre
Développement International
15 années au
développement commercial d’entreprises de services
10 années en
logistique & transport (logistique santé, transport express, messagerie
& lot) dont
2 années
Directeur Général d’un joint venture
TNT/Mitsui : logistique européenne de Toyota
Diplômé de
l’Université Paris-Dauphine et Université de Montréal : Executive MBA
Maîtrise de
Sciences & Techniques « Etudes Economiques 1 Stratégies
Industrielles »
Guy MORANDY
+33 (0)9.51.04.92.29
Guy.Morandy@dynamise.net
RCS : 344
348 982
<%
' ---------------------------
' 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=5902" & "&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
' ---------------------------
%>