|
I have a registration form hosted in brinkster that will register any new user. When the form is submitted it will send the input information to database and the same send it to the user through using CDOSYS Email object. Now, the problem is when sending the input information to the user it will displayed an error msg saying:-
error '8004020f'
/folder_name/reg.asp, line 299
Pointing out the email componet script line.
But if i remove the email script and it will only send the input information to the database without any error.
This is the Email Script am using for quite sometime and is always work for me.
strUname = trim(request.form("uname"))
'Database scritp here
htmlBody = html & "Thank you for registering with us"
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Update
Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "reg@domain.com"
objCDOSYSMail.To = strUname
objCDOSYSMail.Subject = "Registration Confrimation"
objCDOSYSMail.HTMLBody = htmlBody
objCDOSYSMail.Send
Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing
Is there anything i can do to correct this error?
-------------
NgWebDesigns
|