refrente ao tuto do imasters

[Arrasted 0]

O Tuto

http://www.imasters.com.br/artigo.php?cn=2609&cc=165

 

A pagina como fica depois de enviar http://www.digitaldna.com.br/Pronto/enviar.asp?pagina=2

o codigo... ponmde faço o include, ele apareça na minha tela

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="email.txt" --><%Set Conn = Server.CreateObject("ADODB.CONNECTION")Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=blablabla.mdb"Set rs = Server.CreateObject("ADODB.RECORDSET")Sql = "Select * FROM maladireta"rs.Open Sql, Conn, 3, 3	If Request.QueryString("pagina") = "" Thenpagina = 1Elsepagina = Request.QueryString("pagina")End ifconst registros = 20rs.PageSize = registrosrs.AbsolutePage = paginatotpaginas = rs.PageCounttotregistros = rs.RecordCount	i = 1While Not rs.EOF And Not i > registros	Set Mailer = Server.CreateObject("SMTPsvg.Mailer")Server.ScriptTimeout = 50000Mailer.ContentType = "text/html"Mailer.RemoteHost = "smtp.digitaldna.com.br"Mailer.FromName = "Pronto Saúde Corretora"Mailer.FromAddress = "erico@acrtecnologia.com.br"Mailer.AddRecipient rs("nome"), rs("email")Mailer.Subject="E-mail com paginação"Mailer.Bodytext = HTM	x = Mailer.SendMailIf x = true thenSession("Bem") = Session("Bem") + 1ElseSession("Mal") = Session("Mal") + 1motivo = Mailer.ResponseEnd Ifi = i + 1rs.MoveNextWendIf Not (pagina > totpaginas) ThenResponse.AddHeader "Refresh", "2;URL=enviar.asp?pagina="&pagina+1Response.Write("<strong><font face=verdana color=red>5 e-mails enviados.<BR>")Response.Write("Aguarde, preparando script para enviar mais 5 e-mails...</font></strong>")	Else	Response.Write("<font face=verdana color=red>Todos os e-mails enviados.</font><br><br>") Response.Write("<font face=verdana color=blue>Estatísticas</font><br>---------------------------------<br>")Response.Write("<font face=verdana color=black>E-mails enviados com sucesso: "&Session("Bem")&"<br>")Response.Write("E-mails enviados sem sucesso: "&Session("Mal")&"<br>")Response.Write("Erro: <b>"&motivo&"</b><br>--<br>")Response.Write("Total de e-mails no banco de dados: "&totregistros&"</font>")Session("Bem") = 0Session("Mal") = 0Set Mailer = NothingSet rs = NothingSet Conn = NothingEnd If%>

[Salgado 4]

Retire esse )" daquela linha e teste.

[Arrasted 0]

HTM = HTM = HTM & HTM = HTM & HTM = HTM & HTM = HTM & HTM = HTM & HTM = HTM & Apenas um teste.... HTM = HTM & HTM = HTM & Todos os e-mails enviados.Estatísticas---------------------------------E-mails enviados com sucesso: 1E-mails enviados sem sucesso: Erro: --Total de e-mails no banco de dados: 1Nao funfou