+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 8 su 8

Discussione: Paginazione

  1. #1
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    Estraggo e visualizzo i record cosi:

    <%
    Dim objConn
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
    Server.MapPath("/mdb-database/loginx.mdb")

    Dim objRS
    Set objRS = Server.CreateObject("ADODB.RecordSet")
    sSQL="select * from tblNews order by ID"
    objRS.Open sSQL, objConn, 3, 3
    %>

    <%
    if not objRS.EOF then
    do while not objRS.EOF

    Response.Write objRS("id") & " " & objRS("Heading") & " " & objRS("Content") & "<br>"
    objRS.MoveNext
    Loop

    objRS.Close
    Set objRS = Nothing

    objConn.Close
    Set objConn = Nothing
    %>
    <%
    end if
    %>


    come si fa la paginazione?
    o meglio dopo 10 creare altre pagine tipo 1 > 10??

  2. #2
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    up [img]smileys/smiley2.gif[/img]

  3. #3
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    up [img]smileys/smiley19.gif[/img]

  4. #4
    Post
    4,740
    Blogs
    12

  5. #5
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    azz troppo difficile per me...non ci sono riuscito [img]smileys/smiley6.gif[/img] [img]smileys/smiley29.gif[/img]

  6. #6
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    riuscito [img]smileys/smiley17.gif[/img]

  7. #7
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    Allora sono riuscito a paginare cosi:

    <%
    dim pagina
    pagina=1
    if request.querystring("pag")<>"" then
    pagina=int(request.querystring("pag"))
    end if

    Dim objConn
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
    Server.MapPath("login.mdb")

    Dim objRS
    Set objRS = Server.CreateObject("ADODB.RecordSet")
    sSQL="select * from itinerari where Tema='Pippo' order by ID"
    objRS.Open sSQL, objConn, 3, 3

    if not objRS.EOF then
    %>

    <%
    dim numeroPerPagina
    numeroPerPagina=6

    objRS.PageSize=numeroPerPagina
    %>
    <%
    objRS.absolutePage=pagina
    for i=1 to numeroPerPagina
    if not objRS.EOF then

    Response.Write "<a href='scheda.asp?id=" & objRS("id") & "'>"
    objRS.MoveNext
    end if
    next

    %><%
    for i=1 to objRS.pageCount


    response.write "<a href='?pag=" & i & "'>" & i & "</a> - "
    next
    %>

    <%
    end if
    %>
    <%
    objRS.Close
    Set objRS = Nothing

    objConn.Close
    Set objConn = Nothing
    %>

    e va tutto bene.

    Sto incontrando delle serie difficoltà a paginare allo stesso modo qs pagina:

    <%
    Dim objConn
    Set objConn = Server.CreateObject("ADODB.Connection")
    objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & _
    Server.MapPath("login.mdb")

    Dim objRS
    Set objRS = Server.CreateObject("ADODB.RecordSet")
    sSQL="select * from enti order by Nome"
    objRS.Open sSQL, objConn, 3, 3
    %>
    <%
    if not objRS.EOF then
    dim differenzaDate
    do while not objRS.EOF

    ID=objRS("ID")
    Heading=objRS("Heading")
    Timestamp=objRS("Timestamp")
    Content= left(objRS("Content"),90) & " <a href='default_all.asp?Id="& ID & "'>...[continua]</a>"
    PostedBy=objRS("PostedBy")

    differenzaDate = DateDiff("d", objRS("Timestamp"), Date)
    if (objRS("giorni") = 0) or ( differenzaDate <= objRS("giorni") ) then
    %>

    <%if objRS("img")= true Then
    Response.Write ("<img src='imgNews/" & objRS("ID") & ".jpg'>")
    end if
    %>

    <%=Heading%>
    <%=Timestamp%>
    <%=Content%>
    <%=PostedBy%>

    <%
    end if
    objRS.movenext
    loop
    else
    %>
    Nessun record trovato
    <%
    end if
    objRS.Close
    %>


    per via di quel differnza date [img]smileys/smiley7.gif[/img] [img]smileys/smiley19.gif[/img] [img]smileys/smiley18.gif[/img]

  8. #8
    L'avatar di delfinista
    delfinista non è in linea Scolaretto
    Post
    115
    fatt [img]smileys/smiley1.gif[/img]

+ Rispondi al Thread

Discussioni simili

  1. problema paginazione
    Da mikyweb nel forum PHP
    Risposte: 4
    Ultimo Post: 05-08-2005, 21:25
  2. Paginazione su 4 colonne
    Da tooshy nel forum ASP 3.0, ASP .Net
    Risposte: 2
    Ultimo Post: 27-05-2005, 13:44
  3. Paginazione datagrid
    Da nandonando nel forum Visual Basic 6
    Risposte: 5
    Ultimo Post: 06-07-2004, 11:18

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi