Snippet: Pagesize, AbsolutePage en AbsolutePosition
De Pagesize, AbsolutePage en AbsolutePosition eigenschappen van een recordset kunnen worden gebruikt voor het indelen van de recordset in meerdere pagina's. Dat maakt het mogelijk om webpagina's kort te houden door bijvoorbeeld slechts 10 records per pagina weer te geven.
Deze snippet is onderdeel van 'the database story', zie die artikelen voor de uitgewerkte code.
<%
'// Tien records per pagina.
objRS.PageSize = 10
bPageSize = 10
'// Pagina nr 1 weergeven.
objRS.AbsolutePage = 1
bPage = 1
%>
<table border="0" cellspacing="1" cellpadding="1" width="100%">
<tr>
<td><font face="Arial, Helvetica" size="2">Artikel</font></td>
<td><font face="Arial, Helvetica" size="2">Prijs</font></td>
</tr>
<%
'// In een loop de rijen voor de html-tabellen maken met gegevens uit de recordset,
'// todat het einde van deze pagina in de recordset is bereikt.
Do While Not objRS.EOF And (objRS.AbsolutePosition <= (bPage * bPageSize)) %>
<tr>
<td><font face="Arial, Helvetica" size="2"><%= objRS("Artikelnaam") %></font></td>
<td><font face="Arial, Helvetica" size="2"><%= objRS("Prijs") %></font></td>
</tr>
<%
objRS.MoveNext
Loop
%>
</table>
|