Salve a tutti ho questo codice ke prende le mail da un db e le dovrebbe inviare.. nn mi da nessuno errore all'invio.. ma nn invia un bel nulla VVoVe: dove sbaglio?:

<% Response.Buffer = False %>
<html>
<head>

</head>
<body>

<%

Db1 = "/mdb-database/newsletterprova.mdb"
StringaConnessione_db1 = "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath(Db1)

Set Connessione = Server.CreateObject("ADODB.Connection")
Connessione.Open StringaConnessione_db1

Set RS= Server.CreateObject("ADODB.Recordset")


If Request.Form("cmdSubmit") <> "" Then

Query = "SELECT Email FROM Subscribers"
RS.Open Query, Connessione, adOpenKeyset


If RS.BOF and RS.EOF Then
%>
Nessun utente iscritto alla ML!
<%
Else

For I = 1 to rs.eof


Set objCDO = Server.CreateObject("CDO.Message")
With objCDO
.To = RS("email")
.From = "dachi@miodomio.boh"
.Subject = "test"
.TextBody = "body del messaggio"
.Send()
End With


Set objCDO = Nothing
response.Write("Email inviata a -->" & RS("email") & " .
")
rs.MoveNext()
Next

%>
Tutte le email sono state inviate con successo
<%
end if

RS.Close()
Set RS = Nothing
Connessione.Close()
Set Connessione = Nothing
Else
%>
<form action="send.asp" method="post" id=form1 name=form1>
<div align="center">
Enter the email message to send:

<textarea name="txtEmail" cols="50" rows="30"></textarea>

<input type="submit" name="cmdSubmit" value="Submit">
</div>
</form>
<%
End If
%>

</body>
</html>