Paginazione Database

[Igor Baldacci]

Salve ragazzi,

utilizzo il seguente codice per far visualizzare il contenuto di un database su più pagine (PAGINAZIONE DI UN DATABASE):

<% 

RecordsPerPagina = 5 
page = Request("page") 
IF page="" THEN page=1 

' STRINGA SQL 
SQL = "SELECT * FROM SchedaPaziente ORDER BY ID DESC" 

'apri recordset con valore 1,3 
rs.open sql, conn, 1, 3 

' paginazione 
rs.PageSize = RecordsPerPagina 
rs.AbsolutePage = page 

If rs.Eof=True or rs.Bof=True then 
Response.Write "

Nessun risultato trovato</P>" 
Else 
For i=1 to RecordsPerPagina 
if Not rs.EOF then 
'mostra record 
rs.MoveNext 
end if 
Next 
End if 

Response.Write "

Pagine: " 
For pag=1 to rs.PageCount 
Response.Write "<A href='pagina.asp?page=" & pag 
Response.Write "&ricerca=" & Server.UrlEncode(strRicerca) 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 

%>

Eseguendolo mi viene restituito il segunte messaggio di errore

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: ''

e poi indica il numeor di riga che corrisponde all'istruzione:

rs.open sql, conn, 1, 3

Qualcuno sa dirmi come intervenire per eliminre questo errore, prima che affoghi nel mare della mia ignoranza?

GRAZIE

[ZeroCool981]

rs.open sql, conn, 1, 3

prova a scrivere

rs.open sql, 1, 3

[ZeroCool981]

anzi =) sarebbe meglio 3, 3

[Igor Baldacci]

Grazie provo subito e ti faccio sapere