dei cambiare:

INVIA.Body = messaggio;

in

INVIA.TextBody = messaggio;

INVIA = new ActiveXObject("CDONTS.NewMail");

in

INVIA = new ActiveXObject("CDO.Message");

in generale ecco le differenze tra i due:

codice:
Vecchio CDONTS
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDONTS.NewMail")
MiaMail.From = "tuoindirizzo@aaa.it"
MiaMail.To = "aaa@aaa.it"
'MiaMail.Cc = "altroindirizzo@aaa.it;ancora@aaa.it"
'MiaMail.Bcc = "altroindirizzo@aaa.it;ancora@aaa.it"
MiaMail.Subject = "invio tramite CDONTS NewMail"
MiaMail.BodyFormat = 1
MiaMail.MailFormat = 0
MiaMail.Importance = 2
MiaMail.Body = "invia email tramite CDONTS NewMail" &_
"oggetto dismesso da Microsoft"
'MiaMail.Attachfile "d:\inetpub\webs\miodominio\file.gif", 1
MiaMail.Send
Set MiaMail = Nothing
%>

CDOSYS
<%
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = "tuoindirizzo@aruba.it"
MiaMail.To = "4test@aaaa.it"
'MiaMail.Cc = "altroindirizzo@aruba.it;ancora@aaa.it"
'MiaMail.Bcc = "altroindirizzo@aruba.it;ancora@aaa.it"
MiaMail.Subject = "Invio tramite cdosys"
MiaMail.TextBody = "Invia tramite CDOSYS " &_
"paragone con cdonts "
'MiaMail.AddAttachment "d:\inetpub\webs\tuodominiocom\file.zip"
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
%>