
|
|
<%
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%>
|
Qualité
|
Type
|
personnes
|
Nom
|
Cliquez
|
<%Do while Not recordset.EOF%>
<%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")%> |
<% if recordset("personnesmini")<>"" then%>
<%=recordset("personnesmini")%> |
<%else%>
|
<%end if%>
<%=recordset("nom")%> |
<%if recordset("lien")<>"" then%>
<%if recordset("photo") <> "" then%>
" target="_blank"> " BORDER=0 WIDTH=100 HEIGHT=100>
<%else%>
" target="_blank">
<%end if%>
|
<%else%>
" BORDER=0 WIDTH=100 HEIGHT=100> |
<%end if%>
<%recordset.movenext
Loop%>
<%end if%>
<%recordset.Close
set recordset = nothing
dcnDB.Close
Set dcnDB = nothing
%>
|
|
|