Nu har jag inte läst hans kurs men principen jag använder på mina sidor är följande:
Förutsättningar: En SQL-sats som tar ut alla posterna:
rst.Open sql, con, 3, 3 , openType
rst.pagesize = maxrows ' sätter varje block till x records
pages = rst.pagecount ' hur många sidor får vi
pageid = request("pageid"): if pageid = "" then pageid = 1
if pages > 1 then
rst.absolutepage = pageid ' börjar på block page_id
' bygger navigeringsbar för flera sidor
if searchtext \<\> "" then stext = "&searchtext=" & server.urlencode(searchtext)
' visar 2 sidor före och efter (specialare)..
DrawNavBar = "\<b\> "
for a = 1 to pages
if a \> pageid - 3 then
if pageid + 3 \> a then
DrawNavBar = DrawNavbar & "\<a href=" & chr(34) & "maintips7.asp?grp=" & grp & "&subj=" & subj & "&oid=" & usertipsid & "&action=" & action & stext & "&pageid=" & a & chr(34) & "\>" & a & "\</a\> "
end if
end if
next
DrawNavBar = DrawNavBar & "\</b\>"
DrawNavBar = "navigering \[" & DrawNavBar & "\]"
PageInfo = "Träffar: \<b\>" & rst.recordcount & "\</b\> Sida: (\<b\>" & pageid & "/" & pages & "\</b\> )"
else
PageInfo = "Träffar: \<b\>" & rst.recordcount & "\</b\>"
DrawNavbar = ""
end if
------------------
Pelle Johanssson (www.pellesoft.nu)