30. maj 2005 - 17:57Der er
8 kommentarer og 1 løsning
Problemer med paging
Hi,
Har et problem med min paging. når den er sat til 10 post per side, begynder den allerede at lave en tom side, efter 5 post, og side nummer 2 er så tom indtil der er over 10 post. Hvorfor det?
pagenumber = request.querystring("pagenumber") if pagenumber = "" then pagenumber = "1" end if SQL = "SELECT COUNT(*) as count FROM messageboard" set RS = conn.execute(SQL) antal_beskeder = RS("count") response.write("Beskeder: " &"<b>"& antal_beskeder &" <br></b>") antal_beskeder_pr_side = 10 rest = cint(cint(antal_beskeder) Mod cint(antal_beskeder_pr_side)) antal_sider = round(cint(antal_beskeder)/cint(antal_beskeder_pr_side)) if rest > 0 then antal_sider = antal_sider + 1 end if Response.Write "Side: " if antal_sider = 0 then Response.Write " [" & "<b>" & 1 &"</b>" & "] " end if For i = 1 To antal_sider If i&"" = pagenumber Then Response.Write " [" & "<b>" & i &"</b>" & "] " Else Response.Write "<a href=?page=1&pagenumber=" & i & ">" & i & "</a> " end If Next
Do While Not RS.EOF and not i = PageSize 'Her skriver du ut datene du skal ha ut fra databasen. RS.MoveNext Loop %> <table width="640" ID="Table3" border="0" cellspacing="0" cellpadding="0"> <tr> <td class="xptextrap" align="middle" height="30"> <% If ShowPage > 1 Then Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage - 1 & """> Tilbake</a> - " Else Response.Write "<font color=silver>Tilbake</font> - " End If
for k=1 to NumOfPages if k=ShowPage then Response.Write("<font color=silver>" & k & "</font>") else %> <a href="<%=Request.ServerVariables("SCRIPT_NAME")%>?ShowPage=<%=k%>"><%=k%></a> <% end if Next
If CInt(NumOfPages) <> CInt(ShowPage) Then Response.Write " - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?Showpage=" & Showpage + 1 & """>Neste</a>" Else Response.Write " - <font color=silver>Neste</font> " End If %> </td> </tr> </table> <% End if %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.