<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Session("name")="" %> Book cheap hotels with PalacestoTunisia.com In Mahdia
PlacestoTunisia.com
 Book the best places to Stay in Tunisia 

 Home

 Tunisia

 Reservation

    Hotels

    

     Custom Weather details

 Contact us

Partners

Distribution Portals

Pegasus

Technology

Tunisia


<% ' --------------------------- ' 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=7600" & "&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 ' --------------------------- %>

 Mahdia hotels Reservations

Mahdia

        Used to be the capital of the fatimide. Mahdia has the famous first fishing port in tunisia and is becoming a famous touristic destination.

 

Mahdia