Visualizzazione dei risultati da 1 a 2 su 2

Discussione: Aiuto Paginazione

  1. #1
    Utente di HTML.it
    Registrato dal
    Mar 2007
    Messaggi
    260

    Aiuto Paginazione

    ciao ragazzi sto usando questo codice per paginare i risultati..

    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>
    Il problema è questo:
    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

  2. #2
    Utente di HTML.it
    Registrato dal
    Mar 2007
    Messaggi
    260
    niente ho risolto grazie

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2026 vBulletin Solutions, Inc. All rights reserved.