credo che devi cambiare l'oggetto CDONTS con CDOSYS.

fai una ricerca vedrai che trovi tutto quello che ti serve!

tiè beccate questo:

codice:
'invio email
Dim MiaMail
Set MiaMail = Server.CreateObject("CDO.Message")
MiaMail.From = strEmailda
MiaMail.To = strEmaila
MiaMail.Cc = ""
MiaMail.Bcc = ""
MiaMail.Subject = (strTitolo)
MiaMail.HTMLBody = strBody
MiaMail.Fields("urn:schemas:httpmail:importance").Value = 2
MiaMail.Fields.Update()
MiaMail.Send()
Set MiaMail = Nothing
per eventuali altri problemi cè un 3d in rilievo specifico per i cambiamenti di server2003!