Problem med paging

Det første jeg falder over er at
rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount

står i din løkke den skal stå foran løkken
Set Rs = Conn.Execute(sql)
rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
Do While NOT rs.EOF And intRecCount > 0
LN

Så melder siden fejl. Står lige et andet sted, så jeg poster lige fejlen når jeg kommer til min egen pc.

Ja det gør den nok
efter :

Set Rs = Conn.Execute(sql)
skal du lige have sat den her ind:
If Not (rs.BOF Or rs.EOF) Then


  objrs.PageSize = 9
    objrs.AbsolutePage = intPage
    intRecCount = objrs.PageSize
    intPageCount = objrs.PageCount
Do While Not objrs.EOF And intRecCount > 0

Husk end if når du er færdig

LN

Fejlen den kommer med er:
ADODB.Recordset error '800a0cb3'

Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.

/test3/include/display.asp, line 68

som skulle være  rs.AbsolutePage = intPage

Jeg poster lige hele min kode.


Sub PrintTabel(Sql, TType)
intPage = Request("page")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Application("Provider")
   
        Set Rs = Conn.Execute(sql)
If Not (rs.BOF Or rs.EOF) Then
  rs.PageSize = 30
  rs.AbsolutePage = intPage
  intRecCount = rs.PageSize
  intPageCount = rs.PageCount
                  Response.Write("<table cellpadding='0' cellspacing='0'>")
                    Response.Write("<tr>")
                      Response.Write("<td><img src='grafik/koebnu.gif' alt='Køb filmen'> = Klik for at købe filmen online")
                      Response.Write("</td>")
                    Response.Write("</tr>")
                    Response.Write("<tr>")
                      Response.Write("<td colspan='2' width='698'><img src='grafik/filmkarakter.gif' alt=''></td>")
                    Response.Write("</tr>")
                    Response.Write("<tr>")
                      Response.Write("<td width='400' class='ListHeadline'><strong>Titel</strong>")

                      Response.Write("</td>")
                      Response.Write("<td>År</td>")
                    Response.Write("</tr>")

        Do While NOT rs.EOF And intRecCount > 0

                    Response.Write("<tr>")
                      Response.Write("<td class='ListContent'>")
Response.Write("<a class='ListLink' href='redirect.asp?mode=movie&amp;Id="&rs("Id")&"'>"&left(rs("Titel"),80)&"</a></td>")
                      Response.Write("<td class='ListContentThree'>"&rs("prodaar")&"&nbsp;</td>")
                    Response.Write("</tr>")
  intRecCount = intRecCount - 1
        rs.MoveNext
        Loop
                    Response.Write("<tr>")
                      Response.Write("<td height='2' colspan='2'>")
                      Response.Write("Du er nu på side" & Request.Querystring("page") & "")
For intNum = 1 To intPageCount

  Response.Write "<a href='forum.asp?mode=view&id="&Request.Querystring("id")&"&page=" & intNum & "'>" & intNum & "</a> "
Next
                    Response.Write("</td></tr>")
                  Response.Write("</table>")
end if
rs.close
set rs = nothing
End Sub

1. Brug adovbs.inc  / hav den i roden af webstedet
og brug:

<!--#include virtual="/adovbs.inc"-->

I din sun printtabel skal du prøve noget lign.
StrDSN = database
strSQL = "SELECT * FROM tabel"
rs.Open strSQL, strDSN, 1

Ikke så vigtigt hvordan
men 1 tallet efter er vigtigt du det
gør dit recordset understøtter paging

LN

Så får jeg:
Microsoft VBScript compilation  error '800a0411'

Name redefined

/adovbs.inc, line 14

Const adOpenForwardOnly = 0

Så har du
<!--#include virtual="/adovbs.inc"-->

2 gange i det script
se efter i dine incl filer eller dine sub
så du kan roligt pille den

<!--#include virtual="/adovbs.inc"-->
Ud du har stående det ene sted , du har den nok i din
sunprintabel eller lign


LN

Tak for hjælpen. Smider du lige et svar?

Godt det lykkedes
hej
LN