In una pagina del "portale" in fase di realizzazione ho inserito una pagina per la visualizzazione dei messaggi inviati tra i vari utenti.
Per impedire un pagina chilometrica volevo poter "paginare" i risultati della query.
Il codice della pagina è il seguente:
<%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.Mappath("../../mdb-database/Segreteria.mdb")
RecordsPerPagina = 5
page = Request("page")
if page="" then page=1
utente = session("Utente")
' STRINGA SQL
strRicerca = Request("ricerca")
SQL = "SELECT * FROM Messaggi Where Mittente='" & utente & "'"
Response.write "" & sql & ""
Response.write "" & RecordsPerPagina & ""
Response.write "" & page & ""
'apri recordset con valore 1,3
' es 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
Response.Write "
Trovato</P>"
rs.MoveNext
end if
Next
End if
%>
Quando eseguo la pagina mi compare questo errore.
Microsoft VBScript runtime error '800a01a8'
Object required: ''
/segreteria/comuni/msginarr.asp, line 53
La riga 53 corrisponde a questa:
rs.PageSize = RecordsPerPagina
Cortesemente qualcuno può aiutarmi?
Grazie.
Il server è aruba...
Rispondi quotando