Allora vi chiedo gentilmente aiuto....!! Ho un problema nella paginazione dei record estratti da una Query. Il problema sta nell' AbsolutePage, nella sua riga il server mi restituisce il seguente messaggio di errore:

ADODB.Recordset error '800a0cb3'

L'operazione richiesta non è supportata dall'oggetto o dal provider.

/admin/test.asp, line 142
(dove si trova RS.AbsolutePage = page)

Questo è lo script:

Dim Conn

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("../database/cj.mdb")

Dim SQL, RS, Id, data, titolo, testo, pag, page, RecordsPerPagina

RecordsPerPagina = 5
page = Request("page")

if page = "" then
page = 1
end if

SQL = " SELECT * FROM notizie Order by data Desc"
Set RS = Conn.Execute(SQL)

RS.PageSize = RecordsPerPagina

RS.AbsolutePage = page 'riga incrimanata

If RS.Eof = True or RS.Bof = True then

Response.Write "<P>Nessun risultato trovato</P>"

else

For i= 1 to RecordsPerPagina
if Not RS.EOF then

RS("data")<br>RS("titolo")

RS.MoveNext
end if
next
end if
Response.Write "<P>Pagine:"
For pag = 1 to RS.PageCount
Response.Write "<A href='test.asp?page=" & pag & "'>"
Response.Write pag
Response.Write "</A> "
Next
Response.Write "</P>"

Chi mi aiuta..!?!??
Grazie in anticipo.....

---

Modificato da matrix74 il 17 luglio 2005 16.22 -