Salve a tutti,
sto provando ad inviare delle email prelevando i vari indirizzi da un db con il loro relativo allegato
tramite il seguente codice:

codice:
<%
Dim Conn,eMail,rs,sql
Set Conn = Server.CreateObject("ADODB.Connection") 
  
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("db/site.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
Set eMail = CreateObject("CDO.Message") 
sql = "SELECT * FROM Catalogo"
rs.Open sql, Conn
volantino = rs("Cat")
rs.Close
sql = "SELECT * FROM Email"
rs.Open sql, Conn

Do while NOT rs.EOF = true

eMail.From = "info@epdambrosio.com"
eMail.To = rs("email")
eMail.Subject = "Epdambrosio"
eMail.TextBody = "Testo"
eMail.Fields("urn:schemas:httpmail:importance").Value = 1
eMail.Fields.Update()
eMail.AddAttachment (trim(server.mappath(volantino)))
eMail.Send()

rs.MoveNext		
Loop

rs.Close
Conn.Close 
Set eMail = Nothing
Set rs = Nothing
Set Conn = Nothing

%>
funziona tutto...tranne il fatto che sembra che mi concateni gli allegati ad ogni invio.
Sapete dirmi dove sbaglio?

Grazie in anticipo