Problema Newsletter Asp Database

[plasticity]

Ho creato questo codice per inviare (Sarebbe una newsletter) le email a tutti gli indirizzi presenti nel mio database (Più Precisamente nella tabella email) ma non funziona!

<%
dim strCode
strCode="innovatel"

Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("****************")
strConn=strConn & ";pwd=" & strCode
Conn.Open strConn
sql = "SELECT * FROM Email"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3

oggetto = Request.Form("oggetto");
messaggio = Request.Form("messaggio");

if trim(oggetto) <> "" and trim(messaggio) <>"" then

var OggettoCDONTS = new ActiveXObject("CDONTS.NewMail");
OggettoCDONTS.From = "Newsletter";
OggettoCDONTS.To = rs(1);
OggettoCDONTS.Subject = "oggetto";
OggettoCDONTS.Body = "messaggio";
OggettoCDONTS.Send();

end if

rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>

[Roby_72]

1) Qui

OggettoCDONTS.From = "Newsletter";

devi mettere un indirizzo riconosciuto dal server SMTP non una parola a caso.

2) Non hai messo un loop per scorrere tutte le email presenti pertanto, se ti dice bene, ne invia una soltanto.

Roby

[plasticity]

E cioè come sarebbe il giosto codice?

[Roby_72]

http://www.w3schools.com/js/js_looping.asp

Roby