 |
<%
Dim dcnDB 'As ADODB.connection
Dim recordset 'As ADODB.Recordset
Dim numero, produit, village, nom, qualite, persmini, persmaxi, telephone, fax, email, site, SQL, SQL2, Nmax, Ncur, Ndeb, Npag 'As ADODB.String
Set dcnDB = server.createObject("ADODB.Connection")
dcnDB.Open "eq37848"
village="salles-argelès"
produit="aire naturelle"
set recordset = server.createObject("ADODB.Recordset")
SQL = "SELECT * from liste where (village='"&village&"') and (produit='"&produit&"') order by nom"
recordset.Open SQL, dcnDB, 3, 3
if recordset.eof = true then%>
Il n'existe
aucune
aire naturelle
à Salles-Argelès
<%else%>
<%
Nmax = 5 ' nombre par page
Ncur = 0 ' n° de la fiche courante
Ndeb = 0 ' 1ère fiche transmise par l'URL
if request.queryString("num")<>"" then _
Ndeb = Cint(request.queryString("num"))%> <%while not recordset.eof and Ncur= Ndeb then%> <%=recordset("nom")%>
<% qualite = recordset("qualite")
if qualite <> "" then%> <%if qualite = "3epis" then%>
<%end if%> <%if qualite = "2epis" then%>
<%end if%> <%if qualite = "1epi" then%>
<%end if%> <%if qualite = "***" then%> *** <%end if%> <%if qualite = "**" then%>
** <%end if%> <%if qualite = "*" then%> * <%end if%> <%if qualite = "3cles*" then%>
<%end if%> <%if qualite = "2cles" then%> 
<%end if%> <%if qualite = "1cle" then%> 
<%end if%> <%else%> - non classé <%end if%>
village : <%=recordset("village")%>
Téléphone : <%=recordset("telephone")%> - Fax : <%=recordset("fax")%>
<% if recordset("email") <> "" then%> "><%=recordset("email")%>
<%else%> Pas d'email <%end if%> - <% if recordset("site") <> "" then%>
" target="_blank">Site
<%else%> Pas de site web <%end if%> 
<%end if%> <%' fiche suivante
recordset.movenext
' une de plus
Ncur = Ncur + 1
wend%> |
<% ' Navigation Des fiches avant ?%>
| <% ' N° des pages
Npag = int(recordset.recordCount/Nmax)
if Npag < recordset.recordCount/Nmax then Npag = Npag + 1
for i = 1 to Npag
' Page courante ?
if Ndeb = (i-1)*Nmax then%> <%=i%>
<%else%> <%=i%>
<%end if%> <%next%> |
<%end if%> <%recordset.Close
set recordset = nothing
dcnDB.Close
Set dcnDB = nothing
%>
|
 |
