Sidetal vha. ASP

Du skal benytte paging. Se evt. http://activedeveloper.dk/aspdigital/kapitel2/paging.asp

er der ikke et alternativ?

Jeg har forsøgt at bevæge mig fremad med din fremgangsmåde, men det lader ikke til at virke som det skulle. Beklager at jeg ikke har givet flere point til den her tråd. Jeg havde troet at dette var mere lige til og lettere at bruge paging. Nå, men håber dog I kan hjælpe mig alligevel :)

<%
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select  * From wall order by id desc"
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/wall.mdb")
rs.Open strSQL, strDSN, 1
If Not (rs.BOF Or rs.EOF) Then
    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount
    Response.Write "<p><b>Side " & intPage & " af " & intPageCount & "</b></p>"
    Do While Not rs.EOF And intRecCount > 0
%>

      .. <b><a class="gbog" href="mailto:<% Response.Write "" & rs("mail") & "" %>"><% Response.Write "" & rs("navn") & "" %></a></b> | 
      <a href="http://<% Response.Write "" & rs("hp") & "" %>" target="_blank">www</a>
      <br>
      <% Response.Write "" & Replace(rs("besked"),chr(13),"<br>") & "" %>
      <br>
      <font color=#666666><% Response.Write "" & rs("dato") & " " %><% Response.Write "" & rs("tid") & "" %></font>   
      <br>
      <br>
      <br>
     
<%
    intRecCount = intRecCount - 1
    rs.MoveNext
    Loop
    End If
    rs.Close
    Set rs = Nothing

Response.Write "Gå til side "
For intNum = 1 To intPageCount
    Response.Write "<a href=paging.asp?page=" & intNum & ">" & intNum & "</a> "
Next

Response.Write ""
If Clng(intPage) > 1 Then
    Response.Write "<a href=paging.asp?page=" & intPage - 1 & ">&lt;&lt;</a>"
Else
    Response.Write "&lt;&lt;"
End If

Response.Write "&nbsp;"

If Clng(intPage) < Clng(intPageCount) Then
    Response.Write "<a href=paging.asp?page=" & intPage + 1 & ">&gt;&gt;</a> "
Else
    Response.Write "&gt;&gt;"
End If

%>

hvilken fejl får du?
/Steen

Den melder følgende fejl:

Fejltype:
ADODB.Recordset (0x800A0BB9)
Argumenterne har en forkert type eller er uden for det angivne område, eller der er opstået en konflikt mellem dem.
/darh/Default.asp, line 26

Hvilket er linien der omrking :

    rs.PageSize = 10
    rs.AbsolutePage = intPage
    intRecCount = rs.PageSize
    intPageCount = rs.PageCount

lukket