+ Rispondi alla Discussione
Risultati da 1 a 2 di 2

Aiuto per invio mail a blocchi

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

    Aiuto per invio mail a blocchi

    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
    
    '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:
    Codice:
    set fo = fs.GetFolder("d:\inetpub\webs\miositoit\public\test\" & periodos & "\")
    cerca nella cartella tutti i file pdf presenti, poi con:
    Codice:
    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.

  2. #2
    User
    Data Registrazione
    Aug 2008
    Messaggi
    35
    Nessun aiuto!!

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