Lo que hace a este código capaz de enviar con formato HTML el email son las lineas de BodyFormat y MailFormat. Por default estan en 1, y si las omitimos, el mail que se envia será plano.
Espero les sea útil
<% Set objMail = Server.CreateObject("CDONTS.NewMail")