Reccordset og paging
Hej jeg har et recordset som jeg bruger til at lave paging som jeg plejer... men denne gang udskriver jeg flere records per movenext. og det laver rod i mit paging...Paging:
-------------------------------------------------------
If Not (SpmRS.BOF or SpmRS.EOF) Then
SpmRS.PageSize = 5
SpmRS.AbsolutePage = intPage
intRecCount = SpmRS.PageSize
intPageCount = SpmRS.PageCount
Do While Not SpmRS.EOF And intRecCount > 0
%>
<tr>
<td width="200" align="left" style="border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1; border-right: 1px solid #999999;"><% =SpmRS("Titel") %></td>
<td width="200" align="left" style="border-right: 1px solid #999999;"><% =SpmRS("Kat") %></td>
<td width="150" align="center" style="border-right: 1px solid #999999;"><% =SpmRS("Dato") %></td>
<td width="50" align="right">5</td>
</tr>
<%
SpmRS.MoveNext
If SpmRS.EOF Then Exit Do
%>
<tr>
<td width="200" bgcolor="#F8F1ED" align="left" style="border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1; border-right: 1px solid #999999;"><% =SpmRS("Titel") %></td>
<td width="200" bgcolor="#F8F1ED" align="left" style="border-right: 1px solid #999999;"><% =SpmRS("Kat") %></td>
<td width="150" bgcolor="#F8F1ED" align="center" style="border-right: 1px solid #999999;"><% =SpmRS("Dato") %></td>
<td width="50" bgcolor="#F8F1ED" align="right">5</td>
</tr>
<%
intRecCount = intRecCount - 1
SpmRS.MoveNext
Loop
End If
-------------------------------------------------------
når jeg nu angiver at der skal være 5 reccords per side så viser den 10... men det gør i sig selv ikke noget... problemert er at når jeg så rykker til næste side så viser den de fem sidste fra sidste visning... hvilket er ligisk nok...
der er selvfølgelig den måde at gange side op med to så den rykker:
page = 1
Page = 3
Page = 5 osv...
men jeg skal også have den til at vise det rigtige sideantal...
