Ciao, ho fatto questo codice preso un po' da una parte e un po' dall'altra e quindi è un pastone.
Voglio impaginare i risultati di una query e quindi il codice usato è il seguente:
l'errore che mi viene dato cliccando ad una pagina successiva alla prima (oppure aprendo una query contenente un numero di records inferiore al PageSize) è:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

Ecco il codice


dim strpagina
strpagina = Request("pagina")

SQL = "SELECT * FROM fotoreal WHERE SubCategoria = '" &strChoice & "' ORDER BY Data DESC, clicks"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorType = adOpenStatic
objRS.Open sql, objconn ,3,3

If strpagina = "" then
strpagina = 1
End if
objRS.AbsolutePage = strpagina

u = 0
objRS.PageSize = 6
if u = objRS.PageSize then
u = 0
end if

Do While not objRS.EOF and not u = objRS.PageSize (MI SA CHE SBAGLIO QUI)

...Vari response write per la creazione del layout....

u = u + 1
objRS.MoveNext
Loop


----- elenco delle pagine ----
For pag = 1 to objRS.PageCount
Response.Write "<A href=""menugallery3.asp?choice="
Response.Write objRS("subcategoria")
Response.Write "&pagina=" & pag
Response.Write """>"
Response.Write pag
Response.Write "</A>"
Next