Paging laver mærkelig visning.
Koden:-----------------------------------------------------------
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
Set RS_topics = Server.CreateObject("ADODB.RecordSet")
RS_topics.open "Select * From [forum_topic] WHERE forum = " & Request.QueryString("id") & " ORDER BY sidst_aktiv DESC" , Conn_sites, 1
If Not (RS_topics.BOF Or RS_topics.EOF) Then
RS_topics.PageSize = 10
RS_topics.AbsolutePage = intPage
intRecCount = RS_topics.PageSize
intPageCount = RS_topics.PageCount
%>
<div style="background-color: #CDE4FC; padding:2px;" class="greymenubox">
<%
Response.Write "<b>Side " & intPage & " af " & intPageCount & "</b>"
%>
</div>
<%
Do While Not RS_topics.EOF And intRecCount > 0
Set RS_posts = Server.CreateObject("ADODB.RecordSet")
RS_posts.open "Select Count(*) AS post From [forum_posts] WHERE topic_id = " & RS_topics("id") & "", Conn_sites
%>
<table border="0" cellpadding="3" cellspacing="0" width="100%">
<tr class="tyktopcelle" onmouseout="this.style.backgroundColor='#ffffff'; window.status=' ';" onmouseover="this.style.backgroundColor='#DEF2FE';">
<td align="left" width="20%"><a href="forum_topic.asp?forum=<%=request.QueryString("id")%>&id=<%=RS_topics("id")%>"><%=RS_topics("dato")%></a></td>
<td align="left"><a href="forum_topic.asp?forum=<%=request.QueryString("id")%>&id=<%=RS_topics("id")%>"><%=RS_topics("titel")%></a></td>
<td align="left" width="15%"><a href="forum_topic.asp?forum=<%=request.QueryString("id")%>&id=<%=RS_topics("id")%>"><%=RS_posts("post")%> svar</a></td>
</tr>
</table>
<%
RS_topics.movenext
loop
End if
Response.Write "<p>Gå til side "
For intNum = 1 To intPageCount
Response.Write "<a href=forum_traade.asp?id=" & request.QueryString("id") & "&page=" & intNum & ">" & intNum & "</a> "
Next
Response.Write "<p>"
If Clng(intPage) > 1 Then
Response.Write "<a href=forum_traade.asp?id=" & request.QueryString("id") & "&page=" & intPage - 1 & "><<</a>"
Else
Response.Write "<<"
End If
Response.Write " "
If Clng(intPage) < Clng(intPageCount) Then
Response.Write "<a href=forum_traade.asp?id=" & request.QueryString("id") & "&page=" & intPage + 1 & ">>></a> "
Else
Response.Write ">>"
End If
%>
--------------------------------------------------------
Der opstår ikke nogle direkte fejl, men den opfører sig noget sjøst, den viser ikke 10 records pr. side. Men derimod er det som om den fjerne ti af gangen som man bevæger sig igennem page=1, page=2 osv... håber en eller anden kan hjælpe.
