che c'è sulla riga 530?!
Set objMail = Server.CreateObject("CDONTS.newmail") ?!
mi sa che devi passare a cdosys...