ciao a tutti
ho creato un sistema di newsletter con database access, ovviamente in asp su spazio ARUBA WIN.
per quanto riguarda il sistema di iscrizione e cancellazione dal database...tutto ok.
purtroppo però non mi invia la mail alla lista.
vi posto la pagina.....spero che possiate aiutarmi.
mi restituisce:
Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/send.asp, line 38 (cioè "Set objMail = Server.CreateObject("CDONTS.NewMail")")
800401f3
<<<<send.asp>>>>
<%@ LANGUAGE="VBScript" %>
<%Option Explicit%>
<html>
<head>
</head>
<body>
<%
Dim con, rs, strSql, objMail
If Request.Form("cmdSubmit") <> "" Then
Set con = GetDBConnection()
strSql = "SELECT Email FROM Subscribers"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, con, 1, 2
If rs.EOF Then
%>
non ci sono iscritti
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = Nothing
Response.End
End If
While Not(rs.EOF)
Set objMail = Server.CreateObject("CDONTS.NewMail")
objMail.From = "xxxxxxx@xxxxxx.com"
objMail.To = rs("Email")
objMail.Body = Request.Form("txtEmail")
objMail.Send
rs.MoveNext()
Wend
%>
email spedita
<%
'Clean up database objects
rs.Close()
Set rs = Nothing
con.Close()
Set con = 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
