CDO - Now getting errors

I've successfully been using CDO to send e-mails on classic ASP site - now pages using this code throwing errors at objMessage.Send line - no changes have been made to the code in more than a year

Any advice would be appreciated.

Here's the code...

set objMessage = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")

' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
Flds.update


Set objMessage.Configuration = objConfig
objMessage.To = "[email protected]"
objMessage.bcc = "[email protected]"
objMessage.From = "[email protected]"
objMessage.Subject = "Project Management: New Job Started"
objMessage.HTMLBody = body
objMessage.fields.update
objMessage.Send



set objMessage = nothing
set objConfig = nothing