Aiuto per invio mail a blocchi

djjunior

Aiuto per invio mail a blocchi

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

'conteggio totali

for each y in fe
tot=tot+1
Next


for each y in fe

if cicli >= maxtemp and cicli < perpagtemp then
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_cliente = '" & extfile & "' AND attivo = 'SI' AND fattura = 'SI'"
        rst.Open criterio, conn, adOpenKeyset

If NOT Rst.EOF Then
%>
<table width="400" cellpadding="2" cellspacing="2" border="1">
<tr>
<td colspan="2">SIMULAZIONE EMAIL:</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_cliente")%></td>
</tr>
<tr>
<td>E-mail:</td>
<td><%=rst.fields("email")%></td>
</tr>
<tr>
<td>Allegato:</td>
<td><%=nomefile%></td>
</tr>
</table>


<%
END IF

end if

cicli=cicli+1

Next

avanti=offset+1

%>
<body>
<%if (offset*perpag) < tot then%> <a href="?offset=<%=avanti%>">Avanti</a><%end if%>
</body>

che sfruttando la paginazione dovrebbe inviarmi email a blocchi divise a pagine.
Ora questo script cerca mediante questa parte:


set fo = fs.GetFolder("d:\inetpub\webs\miositoit\public\test\" & periodos & "\")

cerca nella cartella tutti i file pdf presenti, poi con:


extfile = left(split(y.Name,".pdf")(0),14)

Mi estrapolo i primi 14 caratteri del nome del file che corrispondono ad un codice cliente.
DaL codice cliente (extfile) tramite una query sql ricerco nel db che il codice cliente indicato corrisponda ad alcuni parametri indicati nella query.
Ecco mi servirebbe la paginazione dei soli risultati della query sql, come posso fare?
Come impostare correttamente il ciclo?
Grazie per l'aiuto.
G.

djjunior

Nessun aiuto!!