---

Jeg /vi har opbygget et forum... og det virker over al
forventing. Nu er situationen bare den at der er ved at være
temmelig mange sider der kan linkes til.

Det ser sådan her ud nu:

1|2|3|4|5|6... osv.

-Men med 35 sider er det både ufixt og uoverskueligt

Vi kunne faktisk godt tænke os noget i denne retning:

<Forrige 1|2|3|4|5|6|7|8|9|10 Næste>

hvor det så går videre til de næste 10 sider:

<Forrige 11|12|13|14|15|16|17|18|19|20 Næste>

Hvad skal vi have tilføjet, den opdeler antallet i 10 stk.s eller
lign?
Håber der er nogen der kan hjælpe os...

**************************************
Nuværende kode:
**************************************
Selve siden:
**************************************

iPageSize = 14
iPage = cint(Request.QueryString("Page"))
if iPage = 0 then iPage = 1
rs.open cmd, , 3, 3
if not rs.Eof and not rs.bof then
rs.MoveLast
lTotalRecords = rs.RecordCount
iTotalPages = int(lTotalRecords / iPageSize)
if lTotalRecords MOD iPageSize <> 0 then iTotalPages =
iTotalPages + 1
if lTotalRecords <= iPageSize then
   rs.MoveFirst
   bOnePage = true
   lPageEnd = lTotalRecords
   lPageStart = 1
   iTotalPages = 1
else
   lPageStart = ((iPage - 1) * iPageSize) + 1
   lPageEnd = lPageStart + (iPageSize - 1)
   if lPageEnd >= lTotalRecords Then
      lPageEnd = lTotalRecords
      bLastPage = true
   end if

   if iPage > 1 then
      rs.AbsolutePosition = ((iPage - 1) * iPageSize) + 1
   else
      rs.MoveFirst
   end if
end if
else
   bNoRecords = true
end if
%>
*****************************************
Bunden af siden, hvor sidetal opremses...
*****************************************
<%
setlocale("da")
if bNoRecords then
   response.write "<td colspan=4><B>Der er ingen meddelelser i
øjeblikket.</B></TD>"
else
for lCtr = lPageStart to lPageEnd
   response.write "<td><a href='ShowMessage.asp?ID=" & rs("ID") &
"'><img src=grafik/"&grafik&"/forumemne.gif border=0> " &
rs("Topic") & "</a></font></td>"
   response.write "<td>"
   response.write " "& rs("AuthorName") & " "
   response.write "</font></td>"
   response.write "</td><td align=center>" & rs("ReplyCount") &
"</font></td>"
   response.write "</td><td align=right>" & rs("LastThreadPost") &
"</font></td></tr>"
   rs.movenext
   Next
   end if
   response.write "</table>"

if bOnePage = false and bNoRecords = false then

response.write "<p><center><font color='#000000'>"
for iCtr = 10 to iTotalPages
sPageQuery = "Page=" & iCtr & sQuery
if iCtr <> iPage then
response.write "<a href = 'index.asp?inc=forum&" & sPageQuery &
"'>"
else

response.write "<b>"
end if
response.write iCtr

if iCtr <> iPage then
response.write "</a>"
else
response.write "</b>"
end if
if iCtr < iTotalPages then response.write "&nbsp;|&nbsp;"

Next
response.write "</font></center>"
end if
%>


--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job