<%
Dim mail, subject, message, no

no = 0
subject = Request.Form("subject")
message = Request.Form("message")
message = message & vbcrlf & vbcrlf & "Se ti vuoi cancellare dalla Mailing list clicca il link sottostante"
message = message & vbcrlf & "http://www.ngsserice.it/del.asp?email="
Set conn = Server.CreateObject("ADODB.connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/database/mail.mdb")
sql = "select * from utenti"
Set rs = Server.CreateObject("ADODB.recordset")
rs.open sql, conn, 3, 3

do until rs.EOF
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.ngsservice.it"
Mail.From = "ngsservice"
Mail.AddAddress rs.fields("email")
Mail.Subject = subject
Mail.Body = message & rs.fields("email")
Mail.Send
Set mail = Nothing
Response.Write "Email inviata a : " & rs.fields("email") & "<br>"
no = no + 1
rs.MoveNext
loop
Response.Write "Emails inviate a " & no & " utenti."
rs.Close
Set rs = Nothing
conn.Close
set conn = nothing


%>

Problemone!

questo che vedete è il codice per l'invio della mail di una mailing list
il codice legge le mail presenti in un db access ma invia la mail solo ad un indirizzo!mi sapete spiegare dove sta l'errore?io non riesco a trovarlo!