|
getwidth
Starting Member
15 Posts |
 Posted - 06 May 2002 : 13:15:37
|
CDONTS.NewMail.1 error '80020009'
503:SMTP server not ready for data
/mail/send2.asp, line 32
That is the error that I am getting. It was working for a bit and all of a sudden I am getting that error. Any help is greatly appreciated. The server is running apache and chilisoft for asp. Some of the code I posted may be irrelivent. Here is my code:
<!--#include file="loggedin.asp"-->
<!--#include file="dsn.asp"-->
<!--#include file="body.asp"-->
<%
Set RS = Server.CreateObject("ADODB.Recordset")
Set RSBODY = Server.CreateObject("ADODB.Recordset")
SQL2 = "SELECT * from mail_Settings"
RSBODY.Open SQL2, Conn, 1, 3
SQL = "SELECT Email FROM mail_List"
RS.open SQL, conn
Select Case RSBODY("Component")
Case "CDONTS"
Do While Not RS.eof
set mailObj = Server.CreateObject("CDONTS.NewMail")
If (Request("Format") = "Text") Then
' mailObj.BodyFormat = 1
' mailObj.MailFormat = 1
Else
' mailObj.BodyFormat = 0
' mailObj.MailFormat = 0
End If
mailObj.From = "IndySmash"
mailObj.To = RS("Email")
mailObj.Subject = Request("Subject")
mailObj.Body = Request("Body")
mailObj.Host="pop3.indysmash.com"
mailObj.Send RS.movenext
Loop
'You must always do this with CDONTS.
set objMail = nothing
Case "ASPMail"
Do While Not RS.eof
Set mailObj = Server.CreateObject("SMTPsvg.Mailer")
If (Request("Format") = "Text") Then
mailObj.CharSet = 2
Else
mailObj.ContentType = "text/html"
End If
mailObj.FromName = RSBODY("From_Email")
mailObj.FromAddress= RSBODY("From_Email")
mailObj.RemoteHost = RSBODY("SMTP")
mailObj.Subject = Request("Subject")
mailObj.BodyText = Request("Body")
mailObj.AddRecipient RS("Email"),RS("Email")
mailObj.SendMail
RS.movenext
Loop
Case "ASPEmail"
Do While Not RS.eof
Set mailObj = Server.CreateObject("Persits.MailSender")
mailObj.Host = RSBODY("SMTP")
mailObj.From = RSBODY("From_Email")
mailObj.AddAddress RS("Email")
mailObj.Subject = Request("Subject")
mailObj.Body = Request("Body")
If (Request("Format") = "Text") Then
mailObj.IsHTML = False
Else
mailObj.IsHTML = True
End If
mailObj.Send
RS.movenext
Loop
End Select
IF (Request("Archive") = "on") Then
Set RSARCHIVE = Server.CreateObject("ADODB.Recordset")
RSARCHIVE.Open "mail_Archive", Conn, 2, 2
RSARCHIVE.addnew
RSARCHIVE("Subject") = Request("Subject")
RSARCHIVE("Body") = Request("Body")
RSARCHIVE("Format") = request("Format")
RSARCHIVE("Date") = Date
RSARCHIVE.update
End If
bufferingon = false ' this i got from a forum, i wonder if it worked
%>
|
|
Topic Locked
