I am not a developer but a network technician. We host a website for a travel agency. An online form request for information (.ASP page) submits a request with to an email address. The following error is returned when that is submitted: Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/Destinations/Info.asp, line 847
800401f3
After a server crash the following did not work:
Dim oMailMessage
' Instantiate a NewMail object
Set oMailMessage = Server.CreateObject("CDONTS.NewMail")
' Send an email to to@somewhere.com from from@somewhere.com
oMailMessage.from = "info@bestcruises.com"
oMailMessage.to = "leads@bestcruises.com"
oMailMessage.subject = "Online Information Request"
oMailMessage.body = body
oMailMessage.Send()
The developer was told to change it to this:
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "info@bestcruises.com"
objCDO.To = "leads@bestcruises.com"
objCDO.Subject = "Online Information Request"
objCDO.Body = body
objCDO.Send()
Set objCDO = Nothing
'Dim oMailMessage
' Instantiate a NewMail object
'Set oMailMessage = Server.CreateObject("CDONTS.NewMail")
' Send an email to to@somewhere.com from from@somewhere.com
'oMailMessage.from = "info@bestcruises.com"
'oMailMessage.to = "leads@bestcruises.com"
'oMailMessage.subject = "Online Information Request"
'oMailMessage.body = body
'oMailMessage.Send()
It still does not work. Same error message.
Server.CreateObject Failed
/Destinations/Info.asp, line 847
800401f3
After a server crash the following did not work:
Dim oMailMessage
' Instantiate a NewMail object
Set oMailMessage = Server.CreateObject("CDONTS.NewMail")
' Send an email to to@somewhere.com from from@somewhere.com
oMailMessage.from = "info@bestcruises.com"
oMailMessage.to = "leads@bestcruises.com"
oMailMessage.subject = "Online Information Request"
oMailMessage.body = body
oMailMessage.Send()
The developer was told to change it to this:
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = "info@bestcruises.com"
objCDO.To = "leads@bestcruises.com"
objCDO.Subject = "Online Information Request"
objCDO.Body = body
objCDO.Send()
Set objCDO = Nothing
'Dim oMailMessage
' Instantiate a NewMail object
'Set oMailMessage = Server.CreateObject("CDONTS.NewMail")
' Send an email to to@somewhere.com from from@somewhere.com
'oMailMessage.from = "info@bestcruises.com"
'oMailMessage.to = "leads@bestcruises.com"
'oMailMessage.subject = "Online Information Request"
'oMailMessage.body = body
'oMailMessage.Send()
It still does not work. Same error message.