+ Rispondi alla Discussione
Risultati da 1 a 2 di 2

Paginazione particolare

Ultimo Messaggio di djjunior il:
  1. #1
    User
    Data Registrazione
    Aug 2008
    Messaggi
    35

    Paginazione particolare

    Carissimi,
    ho questo script:
    Codice:
    <%
    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 dalla seconda pagina in poi i dati, dove sbaglio?
    Grazie
    G.

  2. #2
    User
    Data Registrazione
    Aug 2008
    Messaggi
    35
    Non c'è nessuno a questo forum che sa aiutarmi?

+ Rispondi alla 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.