need help in smtp asp mail send

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Hi all, my first post. yeah
ok, i am dtg an Online System using Asp w Sqlpserver2k for my project. i am trying to test out a script  to enable my system to send email. however , there is this error : 

Error Type:
(0x8004020F)
/sendEmail.asp, line 42
can i request help in solving this mystery? thanks!
***********the script*******************

<!--#include file="connectDB.asp"-->

<% ' send email to Requester using external smtp server using cdo
CONST SMTPServer = "localhost"
CONST cdoURL = "http://schemas.microsoft.com/cdo/configuration/"
HTML = HTML & "<HTML>"
HTML = HTML & "<BODY>"
HTML = HTML & "<P>This Email is sent to you by james. </P>"

HTML = HTML & "For your info. thank you. "
HTML = HTML & " System"
HTML = HTML & "(This is an auto generated Email. Please do not reply to this message.)"
'HTML = HTML & "</HTML>"subject = "Smtp email test:""</HTML>

HTML = HTML & "For your info. please, thank you. "
HTML = HTML & "</HTML>"
HTML = HTML & "Online System"
HTML = HTML & "(This is an auto generated Email. Please do not reply to this message.)"
HTML = HTML & "</BODY>"
HTML = HTML & "</HTML>"
subject = "Testing mail sending" 
set cdoM = CreateObject("CDO.Message")
set cdoC = CreateObject("CDO.Configuration")
Set cdoF = cdoC.Fields
With cdoF
.Item(cdoURL & "sendusing") = 2
.Item(cdoURL & "smtpserver") = SMTPServer
.Item(cdoURL & "smtpconnectiontimeout") = 20
.Update
End With
With cdoM
Set .Configuration = cdoC
.From = "thebmwz4@yahoo.com"
.To = "thebmwz4@yahoo.com"
.Subject = Subject
.HTMLBody = HTML
.Send        ******problem appears to be here when i load this script
End With
Set cdoM = Nothing
Set cdoS = Nothing
Set cdoF = Nothing %>