ciao ragazzi sto usando questo codice per paginare i risultati..
Il problema è questo:codice:<% Dim Conn Dim Rs Dim SQL Dim PageSize Dim AbsolutePage Dim Page RecordsPerPagina = 1 page = Request("page") if page="" then page=1 Set Conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("mdb-database/annunci.mdb") SQL = "SELECT * from annunci WHERE categoria = 'veicoli' ORDER BY data ASC" Set Rs = Server.CreateObject("ADODB.Recordset") RS.Open SQL, Conn, 1 RS.PageSize = RecordsPerPagina RS.AbsolutePage = page If RS.Eof=True or RS.Bof=True then response.Write("<font face='Arial' color='#D35B09'>Non ci sono annunci in questa categoria.</font>" & " ") Response.Write("Sfoglia le altre categorie.") response.end Else %> </font> <% For i=1 to RecordsPerPagina if Not RS.EOF then %> <table> <tr> <td class="titoli_annuncio_numero" width="70px">Data</td> <td class="titoli_annuncio_numero" width="50px">Modalità</td> <td class="titoli_annuncio_numero" width="70px">Categoria</td> </tr> <tr class="titoli_annuncio_numero"> <td class="dati_descr_utenti" width="70px"><%Response.Write RS("data")%></td> <td class="dati_descr_utenti" width="50px"><%Response.Write RS("modo")%></td> <td class="dati_descr_utenti" width="70px"><%Response.Write RS("categoria")%></td> </tr> <% RS.movenext end if Next End if %> </table> <table> <tr> <td> <% ' Pagina precedente If Not Page = 1 Then %> Pagina precedente | <% End If ' Ciclo per recupero numerico delle pagine For Page = 1 To Rs.PageCount %> <% = Page%> <%Next ' Pagina successiva If Not Page = Rs.PageCount Then %> | Pagina successiva <% End if Rs.close set Rs = nothing conn.close set conn = nothing %> </td> </tr> </table>
se mi posiziono sulla pagina uno, la scritta pagina precedente giustamente scompare e se sono su una qualsiasi altra pagina e clicco su pagina precedente questa esegue page - 1 e si sposta indietro correttamente.
se clicco invece su pagina successiva questo mi indirizza sempre a "totale pagine +1" e posizionandomi sull'ultima pagina questo non scompare.
Spero di essere stato chiaro
Grazie

Rispondi quotando