7 messaggi dal 13 dicembre 2001
Ciao a tutti
sono disperata .. ho letto tutti gli articoli e tutto quello che ho trovato nel forum ma non riesco a risolvere il problema della paginazione!!!

Per semplicità metto il codice che ho scritto se qualcuno mi può aiutare ...

rs.PageSize = 20

If Request("pagina") <> "" Then
pagina = Int(Request("pagina"))
Else
pagina = 1
End If

If not rs.EOF Then
rs.AbsolutePage = pagina
End If
' ******************* fine paginazione
If rs.PageCount > 1 Then
'codice riferito alle pagine
For pag = 1 to rs.PageCount
If pag <> rs.AbsolutePage Then
'altre operazioni Else
Response.Write(" " & pag & " ")
End If
Next
Response.Write("</td>")
End If

Response.write("<td width='400' class='normale' align='center' valign='top' colspan='8'>" & "Pagina: " & pagina & "</td></tr></table>")
' ******************* fine visualizzazione pagine della paginazione

Mi da errore sul comando rs.AbsolutePage = pagina .. cosa ho sbagliato? Ho provato di tutto: il file adovbs.inc l'ho incluso .. togliendo la riga di codice mi visualizza la prima pagina ma non mi visualizza quelle dopo...
Grazie a tutti in anticipo e tanti salutoni...

7 messaggi dal 13 dicembre 2001
Precisazione ...
Forse vi può aiutare sapere l'errore che mi ritorna:

ADODB.Recordset (0x800A0CB3)
L'operazione richiesta non è supportata dall'oggetto o dal provider.

Aiutatemi... è un po' urgente!!!

Grazie!!!


7 messaggi dal 13 dicembre 2001
E' bello scrivere e rispondersi da soli....
Comunque ora dopo varie prove sono riuscita a sistemare un po' le cose e l'ultima versione che ho ottenuto è questa:

rs.PageSize = 20

If Request("pagina") <> "" Then
pagina= Int(Request("pagina"))
Else
pagina = 1
End If

If not rs.EOF Then
Riferimento = pagina
End If
' ******************* fine paginazione
Record = rsCount("record")
riferimento = CInt(record)/rs.PageSize
PagineCount = int(riferimento) + 1

' ******************* visualizzazione pagine della paginazione
If PagineCount > 1 Then
Response.Write("<table width='700' border='0' align='center' cellspacing='0' cellpadding='0'>")
Response.Write("<tr><td width='50' class='normale' align='right' valign='top'>")
Response.Write("Pagine: ")
Response.Write("</td><td width='700' class='pagina' valign='top' style='padding-left:5'>")
For pag = 1 to PagineCount
If pag <> pagina Then
If fldOrdina <> "" then
Response.Write(" " & "<a class='pagina' href='index.asp?pagina=" & pag & "&RecPag=" & _
rs.PageSize & "&" & fldFiltro & "Ordina=" & fldOrdina &"'>" & pag & "</a>" & " ")
else
Response.Write(" " & "<a class='pagina' href='index.asp?pagina=" & pag & "&RecPag=" & _
rs.PageSize & "&" & fldFiltro & "'>" & pag & "</a>" & " ")
end if
Else
Response.Write(" " & pag & " ")
End If
Next
Response.Write("</td>")
end if

ora funziona quasi tutto.
L'unico problema è che spostandomi sulle pagine successive (non la prima) mi visualizza gli stessi dati non mi carica i successivi...
e adesso???

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.