locations saisonnières Cauterets - locations vacances hautes pyrénées
Ski SKI
Thermalisme THERMALISME
locations saisonnières Cauterets - locations vacances hautes pyrénées 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 / cauterets
Locations Cauterets locations saisonnières Cauterets - locations vacances 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 choixlogement = "Cauterets" Set dcnDB = server.createObject("ADODB.Connection") dcnDB.Open "pyrenees65.mdb" SQL = "SELECT * from hebergements WHERE (vallee='"&choixlogement&"') order by type1, personnesmaxi DESC" %> <%Set recordset = server.createObject("ADODB.recordset") recordset.Open SQL, dcnDB, 1, 1 %>
<%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é 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("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=100 HEIGHT=100>

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