Do While not rsEmails.eof
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From="webmaster@aspitalia.com"
objMail.To=rsEmails("EmailAddress") 'Indirizzo estratto dal database
objMail.Subject="Prova e-mail"
objMail.Body="Questa è una prova di spedizione e-mail via CDO"
objMail.importance=0
objMail.Send
Set objMail = nothing
rsEmails.movenext
loop

Ciao

Volevo solo sapere se e' il caso di tenere la crezione di CDONTS.NewMail nel ciclo o se e' meglio creare ;'oggetto prima del ciclo.

Grazie