Ti posto il codice che utilizzo di solito io e che funziona sempre e spedisce mail istantaneamente:

dim mycdo, tbdy
set mycdo=server.createobject("CDONTS.NewMail")
mycdo.from= "inserire mail from"
mycdo.to="inserire mail to"
mycdo.subject="soggetto mail"
tbdy="contenuto del messaggio"
mycdo.body=tbdy
mycdo.send
set mycdo=nothing

Non ho il tempo di guardare il tuo codice, magari è uguale...
Cmq se non ti arrivano le mail o hai altri problemi i casi sono tre:
1)non è installato o impostato correttamente l'oggetto cdonts
2)il provider dell'indirizzo mail da cui spedisci i messaggi ha dei problemi
3)non hai il supporto per l'html nel componente cdonts