Mailing list utilizzando un database

Questo semplice script permette di creare un mailing list tramite database:

<%
'Mi collego al db ed estraggo gli indirizzi email
Dim rs, conn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
conn = "DSN=nomeDSN;"
sql = "SELECT email FROM tabella"
rs.Open sql, conn 
'Inserisco dentro la variabile bcc tutti i destinatari
x = 0
do until rs.eof
&nbsp;&nbsp; x = x + 1
&nbsp;&nbsp; if x = 1 then
&nbsp;&nbsp;&nbsp;&nbsp;bcc = rs("email")
&nbsp;&nbsp;else
&nbsp;&nbsp;&nbsp;&nbsp;bcc = bcc & ", 
" & rs("email")
&nbsp;&nbsp;end if
rs.moveNext
loop
rs.close
Set rs = Nothing
'Invio l'email
Dim miaMail
Set miaMail = CreateObject("CDONTS.NewMail")
miaMail.From = "mittente@della.mail"
miaMail.To = "destinatario@della.mail"
miaMail.bcc = bcc
miaMail.Subject = "Oggetto della mail"
miaMail.BodyFormat = 0 
miaMail.MailFormat = 0
miaMail.Body = "Testo della mail" 
miaMail.Send
Set miaMail = Nothing
%>