Paging System
Hej EksperterJeg har et paging system som er tilknyttet til et gæstebogs system jeg har på min side..
Men systemet viser kun "Næste side" Knappen hvis der er 3 poster på den næste side..
Her er den kode jeg bruger.
<%
AntalKolonner = 1
rowCounter = 0
counter = 0
AktuelSide = "0" & cstr(Request.QueryString("side"))
AntalPrSide = 5
startRow = AktuelSide * AntalPrSide
bMoreRows = false
do until rs.eof
if rowCounter >= startRow and rowCounter < startRow + AntalPrSide then
response.Write ""
%>
Her bliver posten Skrevet!
<%
' Går videre til næste meddelse
RS.MoveNext
counter = counter + 1
if counter mod AntalKolonner = 0 then
response.Write ""
if not RS.eof then
response.Write ""
end if
end if
else
RS.MoveNext
if rowCounter > startRow + AntalPrSide then
bMoreRows = NOT RS.EOF
exit do
end if
end if
rowCounter = rowCounter + 1
loop
%>
