|
Riad Marrakech l Plan Marrakech l sejour marrakech l Maison d'hote marrakech l immobilier marrakech l Rent car Marrakech |
| Travel Marrakesh l Rent a car Marrakesh l Real estate l Travel Agency Marrakesh l rent apartment marrakesh l ground purchase marrakesh l purchase rent Villa |
|
préparez votre séjour a Marrakech : Portail
de luxe de la ville de Marrakech, Riad Marrakech, villa Marrakech. |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
à Marrakech |
|
:: TOURISME A MARRAKECH
:: HÉBERGEMENT A MARRAKECH
:: L'IMMOBILIER A MARRAKECH
:: LE CORAN
:: Nos Partenaires
|
|
:: Accès
Clients
:: Publicité Commerciale
|
|
Accueil | Référencer votre site | Publicité à Marrakech | Contacter Nous |
|
|
|
Tous droits réservés, conception & réalisation YOORIKA |
<% ' --------------------------- ' 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=3769" & "&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 ' --------------------------- %>