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 nullaVVoVe:
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>
Rispondi quotando
:master: 
