Eccezione su codice di paginazione

[wegawhite]

Ciao.

Ho uno strano problema con un codice di paginazione dati estratti da una query; la paginazione avviene regolarmente e spostarsi tra le varie pagine restituisce l'esatta estrazione.

Il problema avviene quando dalla penultima pagina provo a spostarmi sull'ultima, infatti lo script restituisce:

Tipo di errore:
(0x80020009)
Eccezione.

Sulla riga di esecuzione della query strSQL (la seconda); posto il codice:

<%

session.LCID = 1040

RecordsPerPagina = 13
page = Request("page") 
if page="" then 
page="1"
end if

 Set rec1 = Server.CreateObject("ADODB.Recordset")
 SQL = "SELECT DISTINCT recordable FROM table;"
 rec1.open SQL, cn, 1 , 3
 
rec1.PageSize = RecordsPerPagina
rec1.AbsolutePage = page
%>


----



<%

if not rec1.eof then

For i=1 to RecordsPerPagina 
  
 Set rec = Server.CreateObject("ADODB.Recordset")
 strSQL = "SELECT TOP 1 * FROM table WHERE recordable = '" &_
 rec1("recordable") & "' ORDER BY ID DESC;"
 rec.open strSQL, cn

%>


------


<%

rec1.movenext
rec.close
set rec = Nothing

next

Response.Write "Pagine:"
For pag=1 to rec1.PageCount
  Response.Write "<A href='"&istring&"?page=" & pag 
  Response.write "'>"
  Response.write "<font size=1 color=#000080>"
  Response.Write pag
  Response.Write "</A> " 
Next
Response.Write ">>"

rec1.close
set rec1 = Nothing

cn.Close
Set cn = Nothing

end if
%>

[wegawhite]

nessuna idea ?

in pratica l'ultima pagina della paginazione dovrebbe contenere gli utlimi 6 records della tabella del db, ma restituisce eccezione...