Har ett pagingscript som fungerar delvis. Använder pagesize 10 men den raddar upp 11 på varje sida och den elfte är även den första på nästa sida så att säga...
<%
sida = TRIM( Request( "sida" ) )
If sida = "" Then sida = 1
RecSet.PageSize = 10
RecSet.AbsolutePage = sida
Do until RecSet.EOF OR rowCount > RecSet.PageSize
rowCount = rowCount + 1
color = color + 1
If color mod 2 = 0 then
bgcolor="#51759B"
Else
bgcolor="#4D6E91"
End If
%>
Innehåll som raddas upp.....
<%
RecSet.MoveNext
Loop
If RecSet.PageCount > 1 Then
For a = 1 to RecSet.PageCount
If a <> cINT( sida ) Then
Response.Write "<a href='forum.asp?sida="& a &"'>"& a &"</a>"
Else
Response.Write "<b>"&a&"</b>"
End If
Next
End If
%>