database per mailing list

[Marco7303]

Salve ho questo script per l'invio ad una mailing list... il problema è che l'invio viene effettuato solamente al primo nominativo presente nel database... Vi prego aiutatemi!

<%
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open "DSN=Mailing"
  	set Rsmail = Server.CreateObject("ADODB.Recordset")
  	strsql= "SELECT email FROM utenti"
  	Rsmail.Open strsql,conn,1,1

    Email = RSmail.Fields.Item("Email").Value


		Dim miaMail 
		Set miaMail = CreateObject("CDONTS.NewMail") 
		
		miaMail.From = "mail.it"
		miaMail.To = ""
		miaMail.Bcc = email
 		
		dim strOggMail