[Rafael Gomes]

olá pessoal

tenho o suinte code que envia a newsletter só que preciso que ele pegue o nome da pesso no banco e apareça no corpo do e-mail, será que alguem poderia me dar uma mão no code abaixo.

valeuuu

<!-- #include file="Config.asp"-->
<!-- #include file="abrirconexao.asp"-->
<!--#INCLUDE file="topogeral.inc" -->
<%
Response.write "<div align=""center"">"
Function Plic(strTexto)
Temp = Replace(strTexto, "'", "''")
Plic = Replace(Temp, """", """")
End Function

'Assunto = Request("Assunto")
Mensagem = Request("Mensagem")
Data = Date()
sSQL="SELECT * FROM Masters"
Set rs=ConnStr.Execute(sSQL)
emailadministrador=rs("email")
Set rs=Nothing
sql_select = "select * from Lista"
no = 0
Set rs_sendmail = Server.CreateObject("ADODB.Recordset")
rs_sendmail.Open sql_select, ConnStr
if rs_sendmail.EOF then
Response.write "<br><br><center><font face=arial size=2>" & Msg_NenhumEmail & "</font></center>"
Else
strSQL = "INSERT INTO HistoricoLista (Assunto, Mensagem, Data) VALUES ('" & Assunto & "', '" & Plic(Mensagem) & "', '" & Data & "')"
ConnStr.Execute(strSQL)
Response.write "<br><br><font face=arial size=""2"">" & Msg_HistoricoAdicionado & "</font><br>"
While Not rs_sendmail.EOF
Set mail = Server.CreateObject("CDONTS.NewMail")
mail.From=emailadministrador
mail.To=rs_sendmail("email")
mail.Subject=Assunto
Mail.BodyFormat=0
Mail.MailFormat=0
mail.Body = Mensagem & "<BR><BR><font face=arial size=2><a href=""" & Msg_Cancelamento & "/deletar.asp?modo=Email&id=" & rs_sendmail("id") & "&Serial=" & rs_sendmail("SerialNumber") & """>Para remover seu e-mail desta lista CLIQUE AQUI!</a></font>"
mail.Send
Set mail = Nothing
no = no + 1
rs_sendmail.MoveNext
Wend
Response.Write "<br><font face=arial size=2>Total de Emails enviado: " & no & " email(s).</font>"
rs_sendmail.Close
Set rs_sendmail = Nothing
End If
Response.write "</div>"
%>
<!-- #include file="undergeral.inc"-->
<!-- #include file="fecharconexao.asp"-->