Paginazione particolare

djjunior

Paginazione particolare

Carissimi,
ho questo script:



<%
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.

djjunior

Non c'è nessuno a questo forum che sa aiutarmi?