|
|
Parc National des 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 = "découverte"
Set dcnDB = server.createObject("ADODB.Connection")
dcnDB.Open "pyrenees65.mdb"
SQL = "SELECT * from decouvertes WHERE (type='"&choixlogement&"') order by vallee"
%>
<%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%>
Village
|
Vallée
|
Nom
|
Cliquez
|
<%Do while Not recordset.EOF%>
<%=recordset("lieu")%> |
<%=recordset("vallee")%> |
<%=recordset("nom")%> |
<%if recordset("lien")<>"" then%>
<%if recordset("image") <> "" then%>
" target="_blank">" BORDER=0 WIDTH=40 HEIGHT=40>
<%else%>
" target="_blank">
<%end if%>
|
<%else%>
|
<%end if%>
<%recordset.movenext
Loop%>
<%end if%>
<%recordset.Close
set recordset = nothing
dcnDB.Close
Set dcnDB = nothing
%>
|
|
|