Newsletter em formato em HTML

[lezão 0]

Ola galera boa noite.

Galerinha estou precisando de uma ajudinha em um script aki

Gostaria de enviar email não é "SPAN" em formato HTML, estou usando este script como faço para enviar.

 

veja o código....

 

<!--#include file = "config.asp"-->
<%
'Abre a conexao com o banco de dados
Set Conex = Server.CreateObject ("ADODB.Connection") 
Conex.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../database/dados.mdb")

'Pega os dados digitados no form
assunto = request("assunto")
mensagem = request("mensagem")

'Faz a listagem dos usuarios para pegar o nome
Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios"
listar.open sql, conex, 1,1

'Faz um while
while not listar.eof

'Pega o nome e o email do usuario
Set nome = Server.CreateObject("ADODB.Recordset")
sql = "Select * from usuarios where cod="&listar("cod")
nome.open sql, conex, 1,1

while not nome.eof
'envia o e-mail
	Set objmail = Server.CreateObject("CDONTS.NewMail") 
		objmail.from = nome_admin & "<"&email_admin&">"
		objmail.to = nome("email")
		objmail.subject = assunto
		objmail.body = "Olá <b><FONT FACE=VERDANA SIZE=2 COLOR=#FF0000>"& nome("nome") & "</b></font><br><br>    " & mensagem
		objMail.Bodyformat = 0
		objMail.MailFormat = 0
	objmail.send
	
'Move para o próximo registro
nome.movenext
wend

listar.movenext
wend

'Exibe a mensagem de que os emails foram enviados com sucesso
response.Write("<SMALL><CENTER><B><FONT FACE=VERDANA SIZE=2 COLOR=#FF0000>Os E-mails foram enviados com sucesso!!!</B></font></small></CENTER>")
%>

[PhoEniXFirE 0]

CDONTS ? No servidor q hospedo nem se utilizava mais, mas acho q da p usar no IIS de seu windows...