<% 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 id,nom,prenom from whois where iview=1 and sexe='f' order by dateview 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%>
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 %> Interviews

<% Dim iNumLigne Do while not rs.EOF and iNumLigne < rs.PageSize %> <%rs.MoveNext iNumLigne = iNumLigne + 1 loop%> <% i=iPage%>

<% Set fs = Server.CreateObject ( "Scripting.FileSystemObject" ) fichier = rs("id") & "_" & rs("prenom") & "_" & rs("nom") & ".jpg" repertoire = "photos/" chemin = Server.MapPath(repertoire & fichier)%> <% If fs.FileExists (chemin) then %> _<%=rs("prenom")%>_<%=rs("nom")%>.jpg" width="50" height="43"> <% Else Response.Write "Photo ND" End if %>

"> <%=rs("prenom")%>  <%=rs("nom")%>

<% if ipage > 1 then %> <% else %> <% end if %> <%For i = ipage To iPage+10 %> <% if (i <= rs.PageCount) then %> <%end if %> <%Next%> <% if (ipage <% else %> <% end if %>

First

Back

First

Back

|<%=i%>

Next

Last

Next

Last