Salve,
ho un problema riguarda l'invio di newsletter in formato html.

Uso il seguente codice con il quale estraggo gli indirizzi mail da un DB dopodichè tramite CDONTS invio la mail in formato html usando "objMail.To = email" per il destinatario.
email la valorizzo sfogliando il campo user_mail e newsletter_email, per cui esso deve avere come valore non solo tutti i record di un campo (user_email) ma anche dell'altro (newsletter_email).
Con il codice che uso estraggo solo il primo record dei 2 campi, quindi dentro al mio codice devo inserire il comando dowhile ... movenext ma non so dove posizionarlo.
Mi aiutate.

Poi volevo sapere altre 2 cose:
- Esiste un modo per evitare che si spediscano doppioni, nel senso che se un indirizzo uguale sia presente in entrambe le tabelle la newsletter sia spedita una volta sola e non due ???
- Dopo "objMail.Send" quindi dopo avere completato le operazioni di estrazione dati e invio mail, non bisogna chiudere la connessione al DB ???

Grazie!

Ecco il codice che uso:--------

<%@ Language=VBScript %>
<%

Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "accessDSN"
'estrai gli indirizzi email dalla tabella newsletter e clienti
sqlString = "SELECT user_email, newsletter_email " &_
"FROM Users, newsletter "
SET RS = Con.Execute( sqlString )

email = RS( "user_email" ) & ";" & RS( "newsletter_email" )

' invia la newsletter
Dim objMail
Set objMail = CreateObject("CDONTS.NewMail")

HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<title>Newsletter</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body bgcolor=""white"">"
HTML = HTML & "Questa è la newletter.
"
HTML = HTML & "Questa è la newletter.
"
HTML = HTML & "Prova"
HTML = HTML & "</body>"
HTML = HTML & "</html>"

objMail.From = "newletter@prova.com"
objMail.To = email
objMail.Subject = "Newsletter prova"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = HTML
objMail.Send
%>

<HTML>
<HEAD>

</HEAD>
<BODY>



Le newsletter sono state spedite!</P>

</BODY>
</HTML>