+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 2 su 2

Paginazione particolare

  1. #1
    djjunior non è in linea Novello
    Carissimi amici del forum, questo è il mio post qui e volevo chiederVi se potete aiutarmi con questo script sulla paginazione un pò particolare
    <%
    perpag=3
    periodos = "allegati"
    
    
    offset=request.QueryString("offset")
    if offset="" then
    offset=1
    end if
    
    tot=0
    cicli=0
    maxtemp=(perpag*offset)-perpag
    perpagtemp=perpag*offset
    
    
    set fs = Server.CreateObject("Scripting.FileSystemObject")
    set fo = fs.GetFolder("d:\inetpub\webs\miositoit\public\test\" & periodos & "\")
    set fe = fo.files
    
    for each y in fe
    
    
    extfile = left(split(y.Name,".pdf")(0),14)
    nomefile = y.Name
    
    Dim strPath
    
        strPath = "D:\inetpub\webs\miositoit\mdb-database\prova.mdb"
        strConnect = "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & strPath
    
    
        Set conn = Server.CreateObject("ADODB.Connection")
        Set rst = Server.CreateObject("ADODB.Recordset")
            conn.open  strConnect
    criterio = "SELECT * FROM user WHERE codice= '" & extfile & "' AND attivo = 'SI' AND arch = 'SI'"
            rst.Open criterio, conn, adOpenKeyset
            
     if cicli >= maxtemp and cicli < perpagtemp then
     
     While rst.EOF = False And cicli < perpag
    
    
    %>
    <table width="400" cellpadding="2" cellspacing="2" border="1">
    <tr>
    <td colspan="2">RECORD: <%=progressivo+1%></td>
    </tr>
    <tr>
    <td>Nome:</td>
    <td><%=rst.fields("nome")%></td>
    </tr>
    <tr>
    <td>Cognome:</td>
    <td><%=rst.fields("cognome")%></td>
    </tr>
    <tr>
    <td>Cod. Cliente:</td>
    <td><%=rst.fields("codice")%></td>
    </tr>
    <tr>
    <td>E-mail:</td>
    <td><%=rst.fields("email")%></td>
    </tr>
    <tr>
    <td>Allegato:</td>
    <td><%=nomefile%></td>
    </tr>
    </table>
    <%
    Progressivo = Progressivo +1
    rst.MoveNext
      cicli=cicli+1
             
        Wend 
        end if   
        tot=tot+1
        Next    
             
     avanti=offset+1
    %>
    <body>
    <%if (offset*perpag) < tot then%> <a href="?offset=<%=avanti%>">Avanti</a><%end if%>
    </body>
    
    Non mi stampa a video i risultati dalla seconda pagina in poi, dove sbaglio?
    Grazie
    G.

  2. #2
    djjunior non è in linea Novello
    Nessun aiuto?

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. paginazione automatica
    Da maxottav nel forum PHP
    Risposte: 1
    Ultimo Post: 24-05-2012, 10:34
  2. Paginazione immagini
    Da sistemista nel forum PHP
    Risposte: 0
    Ultimo Post: 09-08-2010, 17:33
  3. Paginazione dati
    Da alice1 nel forum PHP
    Risposte: 22
    Ultimo Post: 02-10-2009, 20:42
  4. Paginazione dati
    Da condor1972 nel forum PHP
    Risposte: 1
    Ultimo Post: 18-11-2006, 07:56
  5. paginazione
    Da kaste81 nel forum ASP 3, ASP .Net
    Risposte: 0
    Ultimo Post: 15-12-2005, 23:06