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>