gli errori rilevato sono qui

'devi sostituire "CDOSYS.NewMail" con "CDO.message"
<% Set objMail = server.createObject("CDOSYS.NewMail")

'Immissione del destinatario
objMail.To = "xxxx"
'immissione del mittente
objMail.From = "xxx"
'immissione del soggetto della mail
objMail.Subject = "xxx"
'immissione del testo della mail
' e devi sostituire objMail.Body con objMail.htmlBody
objMail.Body = ""
objMail.Send() %>