harbor75
08-28-2005, 09:58 PM
I am not a coder but trying to assist a developer: On this website is an online form that when you click submit should email a message to an account. (.asp page)The website is installed on Windows 2003SP1 and IIS 6.0. The original code stopped working after a server crash. It was: 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 new code he was told to install is:
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()
The error message continually returned is:[B]Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/Destinations/Info.asp, line 847
800401f3
' 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 new code he was told to install is:
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()
The error message continually returned is:[B]Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/Destinations/Info.asp, line 847
800401f3