logo pyrenees65
Ski SKI
Thermalisme THERMALISME
Hébergement HEBERGEMENTS
Loisirs LOISIRS
découverte DECOUVERTE
Artisanat ARTISANAT / ART
commerce TERROIR
Elevage ELEVAGE
commerce COMMERCE
Restauration RESTAURATION
Immobilier IMMOBILIER
Services SERVICES
Insolite INSOLITE
Agenda AGENDA
Ecrivez-nous
   retour Accueil / hébergements / lourdes, tarbes, lannemezan
Locations, hébergements locations hébergement en hautes-pyrénées
Carte des Hautes Pyrénées

<%Dim dcnDB 'As ADODB.connection Dim recordset 'As ADODB.Recordset Dim url, choixtype, SQL, Pays, granderegion, region, departement, vallee, type1, type2, terrain, organisme, qualite, personnesmini, personnesmaxi, nbrechambres, nom, village, telephone, lien ' As ADODB.String pays = "France" granderegion = "Pyrénées" region = "Midi-Pyrénées" departement = 65 choixlogement = Request.Form("choixlogement") choixvillage = Request.Form("choixvillage") choixpersonnes = Request.Form("choixpersonnes") choixchambres = Request.Form("choixchambres") choixlogement = Replace(choixlogement,"'","''") choixlogement = Replace(choixlogement,"<","<") choixlogement = Replace(choixlogement,">",">") choixlogement = Replace(choixlogement,vbCrLf,"
") choixvillage = Replace(choixvillage,"'","''") choixvillage = Replace(choixvillage,"<","<") choixvillage = Replace(choixvillage,">",">") choixvillage = Replace(choixvillage,vbCrLf,"
") choixpersonnes = Replace(choixpersonnes,"'","''") choixpersonnes = Replace(choixpersonnes,"<","<") choixpersonnes = Replace(choixpersonnes,">",">") choixpersonnes = Replace(choixpersonnes,vbCrLf,"
") Set dcnDB = server.createObject("ADODB.Connection") dcnDB.Open "pyrenees65.mdb" SQL = "SELECT * from hebergements WHERE (pays='"&pays&"') and (granderegion='"&granderegion&"') and (region='"®ion&"') and departement=" & departement if choixlogement <> "Indifférent" then SQL = SQL & "and (type1 ='"&choixlogement&"') " end if if choixvillage <> "Indifférent" then SQL = SQL & "and (vallee ='"&choixvillage&"') " end if if choixpersonnes <> "Indifférent" then SQL = SQL & "and personnesmini >=" & choixpersonnes end if %> <%SQL = SQL & " ORDER BY personnesmaxi DESC, type1 DESC, vallee DESC"%> <%Set recordset = server.createObject("ADODB.recordset") recordset.Open SQL, dcnDB, 1, 1 choixlogement = Replace(choixlogement,"''","'") choixlogement = Replace(choixlogement,"<","<") choixlogement = Replace(choixlogement,">",">") choixlogement = Replace(choixlogement,"
",vbCrLf) choixvillage = Replace(choixvillage,"''","'") choixvillage = Replace(choixvillage,"<","<") choixvillage = Replace(choixvillage,">",">") choixvillage = Replace(choixvillage,"
",vbCrLf)%>
<%if recordset.EOF then%>
Il n'existe aucun enregistrement répondant à vos critères
<%else%> <% recordset.movefirst%> <%Do while Not recordset.EOF%> <% if recordset("personnesmini")<>"" then%> <%else%> <%end if%> <%if recordset("lien")<>"" then%> <%else%> <%end if%> <%recordset.movenext Loop%>
 Qualité Vallée Type personnes Nom Cliquez
<%if recordset("qualite") <> "" then%> <%if recordset("qualite") = "*" then%> * <%end if%> <%if recordset("qualite") = "**" then%> ** <%end if%> <%if recordset("qualite") = "***" then%> *** <%end if%> <%if recordset("qualite") = "****" then%> **** <%end if%> <%if recordset("qualite") = "1 clé" then%> <%end if%> <%if recordset("qualite") = "2 clés" then%> <%end if%> <%if recordset("qualite") = "3 clés" then%> <%end if%> <%if recordset("qualite") = "1 épi" then%> <%end if%> <%if recordset("qualite") = "2 épis" then%> <%end if%> <%if recordset("qualite") = "3 épis" then%> <%end if%> <%if recordset("qualite") = "4 épis" then%> <%end if%> <%else%>   <%end if%> <%if recordset("qualite") = "nc" then%>   <%end if%> <%if recordset("qualite") = "ECC" then%>   <%end if%> <%if recordset("qualite") = "Ecc" then%>   <%end if%> <%if recordset("qualite") = "NC" then%>   <%end if%> <%if recordset("qualite") = "non classée" then%>   <%end if%> <%if recordset("qualite") = "Rando Plume" then%>   <%end if%> <%=recordset("vallee")%> <%=recordset("type1")%><%=recordset("personnesmini")%> <%=recordset("nom")%> <%if recordset("photo") <> "" then%> " target="_blank">" BORDER=0 WIDTH=100 HEIGHT=100> <%else%> " target="_blank"> <%end if%> " BORDER=0 WIDTH=70 HEIGHT=70>

<%end if%> <%recordset.Close set recordset = nothing dcnDB.Close Set dcnDB = nothing %>