<% dim i %>
<% Dim rs, iPage %>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.PageSize=10
rs.CursorType = 3%>
<%'-------définition de la sélection TOUS les lots---------
rs.Open "Select * from mannequins where validation=1 order by date desc" , CnnSimple%>
<%'-------gestion d'une éventuelle table vide--------------------------------
if rs.eof=true then%>
Liste vide
<%else%>
<%i=0
Do while not rs.EOF
rs.MoveNext
i=i+1
Loop%>
Annuaire des Mannequins : Total
: <%= i %>
<%'-------------------affichage des résultats dans un tableau---------------------%>
<%
if Request.QueryString("iPage")="" then
iPage = 1
else
iPage = cint(Request.QueryString("iPage"))
end if
%>
<%
rs.AbsolutePage = iPage
%>
Membres
<%
Dim iNumLigne
Do while not rs.EOF and iNumLigne < rs.PageSize
%>
<%'-------fin de la gestion de la table vide----------------------------------%>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
rs.Close
Set rs = Nothing
CnnSimple.Close
Set CnnSimple = Nothing%>