Tô fazendo +- assim:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!--#include file="./includes/conex.asp" --> <% Set rs = conexao.execute("select * from teste_emails") titulo = Request("titulo") msg = Replace(Request("msg"),VbCrLf,"<br>") %> <html> <head> <title>Untitled Document</title> </head> <body> <% while not rs.eof html_email="<html>"&vbnewline html_email=html_email+"<head>"&vbnewline html_email=html_email+"<meta http-equiv=Content-Type content=text/html; charset=iso-8859-1>"&vbnewline html_email=html_email+"<title>Site</title>"&vbnewline html_email=html_email+"<table bgcolor=c0c0c0 width=500>"&vbnewline html_email=html_email+"<tr>"&vbnewline html_email=html_email+"<td><b>"&titulo&"<b></td>"&vbnewline html_email=html_email+"</tr>"&vbnewline html_email=html_email+"</table>"&vbnewline Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "Meu Site." Mailer.FromAddress= "contato@site.com.br" Mailer.RemoteHost = "smtp2.locaweb.com.br" Mailer.AddRecipient rs("emails"), rs("emails") Mailer.Subject = Request("assunto") Mailer.ContentType = "text/html" Mailer.Bodytext = html_email If Mailer.SendMail Then Response.Write "Mensagem enviada com sucesso "& rs("emails") & "<br>" Else Response.Write "Erro " & Mailer.Response End If Set Mailer = Nothing rs.movenext wend %> </body> </html>
Se alguém souber como se faz poste aí