+ Rispondi alla Discussione
Risultati da 1 a 3 di 3

Aiuto: Paginazione asp!

Ultimo Messaggio di sraone77 il:
  1. #1
    User L'avatar di sraone77
    Data Registrazione
    Jun 2006
    Località
    Prov. di Lecce
    Messaggi
    383

    Aiuto: Paginazione asp!

    Ragazzi, scusate ho un problema con uno script.
    Ho creato un semplicissimo guestbook, ma non riesco a capire perchè quando clicco per cambiare pagina lo script mi visualizza soltato i primi record?

    Qualcuno mi può da dare un'occhiata allo script?

    ...
    <%@ LANGUAGE = VBScript %>
    <%
    Dim Cn
    Set Cn=Server.CreateObject("ADODB.Connection")
    Cn.Open "PROVIDER=MSDASQL;" & _
    "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
    "DBQ=" & server.mappath("mdb-database/guestbook.mdb")
    Dim objRS
    Set objRS = Server.CreateObject("ADODB.Recordset")

    'imposto il numero di record da visualizzare in una pagina
    RecordsPerPagina = 5

    page = Request("page")
    if page="" then page=1
    Sql = "Select * from messaggi order by ID Desc ;"
    objRS.open Sql, Cn, 1
    objRS.PageSize = RecordsPerPagina
    objRS.AbsolutePage = page

    if objRS.Eof=True or objRS.Bof=True then
    Response.Write "<P>Nessun risultato trovato</P>"
    Else

    For i=1 to RecordsPerPagina
    if Not objRS.EOF then
    %>
    <table align="center" width="100%" cellpadding="1" cellspacing="0">
    <tr>
    <td width="100%">Inviato da <b><%=objRS("nickname")%></b><%=objRS("messaggio")%>il <%=objRS("data")%>
    </td>
    </tr>
    </table>

    <%

    objRS.MoveNext

    end if
    next
    End if

    'stampo le pagine da visulizzare
    For pag=1 to objRS.PageCount
    Response.Write "<a href= 'guestbook.asp? page=" & pag & "'>"
    Response.Write pag
    Response.Write "</a> "
    Next

    objRS.Close
    Set objRS = Nothing
    Cn.Close
    Set Cn=Nothing
    %>
    ...

  2. #2
    Moderatore L'avatar di paocavo
    Data Registrazione
    Mar 2006
    Località
    Lecce, Italy
    Messaggi
    1,016
    Aggiungi paocavo su Facebook Aggiungi paocavo su Linkedin
    Citazione Originariamente Scritto da sraone77
    ...
    'stampo le pagine da visulizzare
    For pag=1 to objRS.PageCount
    Response.Write "<a href= 'guestbook.asp?page=" & pag & "'>"
    Response.Write pag
    Response.Write "</a> "
    Next
    ...
    L'errore stava (credo) nella generazione dei link di navigazione delle varie pagine. C'era uno spazio in più che invalidava l'URL

  3. #3
    User L'avatar di sraone77
    Data Registrazione
    Jun 2006
    Località
    Prov. di Lecce
    Messaggi
    383
    Citazione Originariamente Scritto da paocavo
    L'errore stava (credo) nella generazione dei link di navigazione delle varie pagine. C'era uno spazio in più che invalidava l'URL
    Infatti non me ne ero accorto, grazie!

+ Rispondi alla Discussione

Tag per Questa Discussione

^ Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •  
  • Il codice BB è Attivato
  • Le faccine sono Attivato
  • Il codice [IMG] è Attivato
  • Il codice [VIDEO] è Attivato
  • Il codice HTML è Disattivato
  • Trackbacks Attivato
  • Pingback Attivato
  • Refback Attivato

SEO by vBSEO 3.6.0 PL2 ©2011, Crawlability, Inc.