Newsletter em ASP

gamefe · Maio 24, 2003

Pessoal, depois de muito custo, dei conta de fazer uma newsletter que mostrasse quantos e-mails já foram enviados... sendo os valores atualizados num campo de type text... ele mostra assim

Foram enviados ( campo type text ) e-mail´s de ( quatidade de e-mails no bd )

Só que era pra atualizar aos poucos os valores... tipo 1,2,3,4,5,6 até terminar... isso não acontece, pois quando estou no arquivo newsletter_view.asp e clico em enviar, ele abre uma tela e só aparece a tela que foram enviando todos os e-mails depois de tudo... alguém aqui sabe como que eu tiro essa tela branca ?

O end. da newsletter é http://www.fmc.org.br/gabriel/administrar_...newsletter2.asp

Tipo observem que quando você digita um texto e o assunto da newsletter e clica em enviar, ele dá um preview de como vai ficar, para depois você clicar em enviar de novo para ai sim, enviar a newsletter, mas observem que demora um tempo para chamar a outra página, a página que só aparece quando a newsletter é enviada por completo.

Abaixo seguem os 2 códigos para que você possam ver.

newsletter_view.asp

<%

vtext = replace(request.form("txt"),"<P>","<br>")

vtext = replace(vtext,"</P>","")

vtextur = server.urlencode(server.htmlencode(vtext))

%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML>

<BODY>

<!--

function MM_swapImgRestore() { //v3.0

var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a)&&x.oSrc;i++) x.src=x.oSrc;

}

function MM_preloadImages() { //v3.0

var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();

var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)

if (a.indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a;}}

}

function MM_findObj(n, d) { //v3.0

var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {

d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}

if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[n];

for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers.document); return x;

}

function MM_swapImage() { //v3.0

var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)

if ((x=MM_findObj(a))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}

}

//-->

</script>

<style type="text/css"><!--

.fonte_menor {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #000000}

.fonte_menor_bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #000000}

.fonte_menor_bold_azul {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #003399}

.fonte_menor_azul { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #003399}

-->

</style>

<table width="405" border="0" cellspacing="0" cellpadding="1" height="300" align="center">

<tr>

<td><img src="http://www.fmc.org.br/img/newsletter_topo.gif"></td>

</tr>

<tr>

<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0" height="300" align="center" bordercolor="#3399FF">

<tr>

<td width="450" height="276" bgcolor="#FFFFFF" valign="top">

<table width="421" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>

<td><div style="font-family:Verdana, Arial, Helvetica, sans-serif;font-size:9pt;">

<%=vtext%>

</div></td>

</tr>

</table>

</td>

</tr>

<tr>

<td width="450" bgcolor="#FFFFFF">

<div align="right"> </div>

</td>

</tr>

</table>

</td>

</tr>

</table>

<table width="470" border="0" cellspacing="2" cellpadding="1" align="center">

<tr bgcolor="#FF0000">

<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr valign="middle" align="center">

<td bgcolor="#FFFFFF">

<table width="406" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>

<td width="406">

<p><font face="Arial, Helvetica, sans-serif" size="2"><span class="fonte_menor_bold_azul">

<span class="fonte_menor"><span class="fonte_menor_azul"><b>

<font size="1" color="#FF0000">©

Federação Mineira de Ciclismo 2003- Todos os

</font>

</span></span></b></font><span class="fonte_menor_azul"><span class="fonte_menor">

<font color="#FF0000"><br>

</font>

<font size="1" color="#FF0000">Av: Olegário Maciel, 311 Sala 109 Centro - Cep: 30180.110<br>

Belo Horizonte - MG / Brasil - Tel: 31 3201 3610 </font></span></span>

</span></font></p>

</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

</table>

<table width="470" border="0" cellspacing="2" cellpadding="1" align="center">

<tr bgcolor="#FF0000">

<td>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr valign="middle" align="center">

<td bgcolor="#FFFFFF">

<table width="409" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>

<td width="409">

<p><font face="Arial, Helvetica, sans-serif" size="2"><span class="fonte_menor_bold_azul">

<span class="fonte_menor"><span class="fonte_menor_azul"><b>

<font color="#FF0000">Este e-mail não é um SPAM.<br>

</font>

</b></span></span><span class="fonte_menor_azul"><span class="fonte_menor">

<font size="1" color="#FF0000">Você recebeu este e-mail porque

está cadastrado no site </font>

<font size="1" color="#003399"> <a href="http://www.fmc.org.br">

<font color="#FF0000">www.fmc.org.br</font></a></font><font size="1" color="#FF0000"><br>

Se não deseja receber mais este e-mail, </font>

<font size="1" color="#003399"> <a href='http://www.fmc.org.br/newsletter/newsletter_apaga.asp?user='>

<font color="#FF0000">clique

aqui.</font></a></font></span></span><font color="#FF0000">

</font> </span></font></p>

</td>

</tr>

</table>

</table></table>

<FORM METHOD=POST ACTION="newsletter_enviar.asp">

<INPUT TYPE="hidden" value='<%=request.form("assunto_do_email") %>' name="assunto_do_email" size="20">

<INPUT TYPE="hidden" value='<%=server.htmlencode(vtext)%>' name="txt">

<br><br>

<center>

<table border=0>

<tr><td>

<INPUT TYPE="submit" Value="Enviar">

</center>

</FORM>

<FORM METHOD=POST ACTION="adm_newsletter.asp">

<INPUT TYPE="hidden" value='<%=server.htmlencode(vtext)%>' name="txt">

</td><td valign="top">

<INPUT TYPE="submit" Value="Editar">

</td></tr>

</table>

</form>

</BODY>

</HTML>

newsletter_enviar.asp

<%

Server.ScriptTimeOut=59

Dim strCon

Dim objRec

Dim objCon

Dim vmail

Dim vuser

Dim n

Dim rsMailList

Dim strEmailBody

Dim strAppendToEmail

Dim strSubject

Dim blnEmailSent

Dim blnPreviewEmailSent

Dim lngNumberOfMembers

Dim intEmailSentLoopCounter

blnEmailSent = False

blnPreviewEmailSent = False

vtext = request.form("txt")

'vtext = "TESTE GABRIEL"

'Response.write vtext

'Response.end

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\home\fmc1\dados\news.mdb"

Set objCon = Server.CreateObject ("ADODB.Connection")

set rs = server.createobject("adodb.recordset")

sql = "select n_cod,n_mail from emails"

rs.CursorType = 3

rs.open sql,strCon

lngNumberOfMembers = rs.RecordCount

If rs.EOF Then Response.Write("<b><font size=""4"">The e-mail's are being sent</b><br>Do not Hit Refresh or some members will receive the e-mail twice!</font><br><br>This may take some time depending on the speed of the mail server and how many e-mail's there are to send.<br>")

'Display the number of e-mails sent and how many left to send

Response.Write("<form name=""frmSent"">Foram enviados <input type=""text"" size=""4"" name=""sent"" value=""0""> e-mail's de " & lngNumberOfMembers & "</form>")

n = 0

while not rs.eof

vmail = rs("n_mail")

vuser = rs("n_cod")

n = n + 1

style = ""

HTML = ""

footer = ""

top = ""

Response.Write(vbCrLf & "<script langauge=""JavaScript"">document.frmSent.sent.value = " & n & ";</script>")

style = "<style type='text/css'><!--"

style = style & ".fonte_menor {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #000000}"

style = style & ".fonte_menor_bold {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #000000}"

style = style & ".fonte_menor_bold_azul {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: bold; font-variant: normal; color: #003399}"

style = style & ".fonte_menor_azul { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt; font-style: normal; line-height: normal; font-weight: normal; font-variant: normal; color: #003399}"

style = style & "A:link { "

style = style & "color: #003399; }"

style = style & "A:visited {"

style = style & "color: #003399; }"

style = style & "A:active {"

style = style & "color: #003399; }"

style = style & "A:hover {"

style = style & "color: #003399; }"

style = style & "-->"

style = style & "</style>"

top = "<table width='405' border='0' cellspacing='0' cellpadding='1' height='300' align='center'>"

top = top & " <tr> "

top = top & " <td><img src='http://www.fmc.org.br/img/newsletter_topo.gif'></td>"

top = top & " </tr>"

top = top & " <tr> "

top = top & " <td bgcolor='#023292'> "

HTML = HTML &" <table width='100%' border='0' cellspacing='0' cellpadding='0' height='300' align='center'>"

HTML = HTML & " <tr> "

HTML = HTML & " <td width='450' height='276' bgcolor='#FFFFFF' valign='top'> "

HTML = HTML & " <table width='421' border='0' cellspacing='0' cellpadding='0' align='center'>"

HTML = HTML & " <tr> "

HTML = HTML & " <td><div style='font-family:Verdana, Arial, Helvetica, sans-serif;font-size:9pt;'>"

HTML = HTML & vtext

HTML = HTML & "</div></td>"

HTML = HTML & " </tr>"

HTML = HTML & " </table>"

HTML = HTML & " </td>"

HTML = HTML & " </tr>"

HTML = HTML & " <tr> "

HTML = HTML & " <td width='450' bgcolor='#FFFFFF'> "

HTML = HTML & " <div align='right'></div>"

HTML = HTML & " </td>"

HTML = HTML & " </tr>"

HTML = HTML & " </table>"

HTML = HTML & " </td>"

HTML = HTML & " </tr>"

HTML = HTML & "</table>"

HTML = HTML & "<table width='470' border='0' cellspacing='2' cellpadding='1' align='center'>"

HTML = HTML & "<tr bgcolor='#FF0000'>"

HTML = HTML & " <td>"

HTML = HTML & " <table width='100%' border='0' cellspacing='0' cellpadding='0'>"

HTML = HTML & " <tr valign='middle' align='center'>"

HTML = HTML & " <td bgcolor='#FFFFFF'>"

HTML = HTML & " <table width='406' border='0' cellspacing='0' cellpadding='0' align='center'>"

HTML = HTML & " <tr>"

HTML = HTML & " <td width='406'>"

HTML = HTML & " <p><font face='Arial, Helvetica, sans-serif' size='2'><span class='fonte_menor_bold_azul'>"

HTML = HTML & " <span class='fonte_menor'><span class='fonte_menor_azul'><b>"

HTML = HTML & " Federação Mineira de Ciclismo 2003- Todos os"

HTML = HTML & " </font>"

HTML = HTML & " </span></span></b></font><span class='fonte_menor_azul'><span class='fonte_menor'>"

HTML = HTML & " <font color='#FF0000'><br>"

HTML = HTML & " </font>"

HTML = HTML & " <font size='1' color='#FF0000'>Av: Olegário Maciel, 311 Sala 109 Centro - Cep: 30180.110<br>"

HTML = HTML & " Belo Horizonte - MG / Brasil - Tel: 31 3201 3610 </font></span></span>"

HTML = HTML & " </span></font></p>"

HTML = HTML & " </td>"

HTML = HTML & " </tr>"

HTML = HTML & " </table>"

HTML = HTML & " </td>"

HTML = HTML & " </tr>"

HTML = HTML & "</table>"

footer = footer & "<table width='470' border='0' cellspacing='2' cellpadding='1' align='center'>"

footer = footer & "<tr valign='middle' align='center'>"

footer = footer & " <td bgcolor='#FFFFFF'>"

footer = footer & " <table width='409' border='0' cellspacing='0' cellpadding='0' align='center'>"

footer = footer & " <tr>"

footer = footer & " <td width='409'>"

footer = footer & " <p><font face='Arial, Helvetica, sans-serif' size='2'><span class='fonte_menor_bold_azul'>"

footer = footer & " <span class='fonte_menor'><span class='fonte_menor_azul'><b>"

footer = footer & " <font color='#FF0000'>Este e-mail não é um SPAM.<br>"

footer = footer & " </font>"

footer = footer & " </b></span></span><span class='fonte_menor_azul'><span class='fonte_menor'>"

footer = footer & " <font size='1' color='#FF0000'>Você recebeu este e-mail porque"

footer = footer & " está cadastrado no site </font>"

footer = footer & " <font size='1' color='#003399'> <a href='http://www.fmc.org.br'>"

footer = footer & " <font color='#FF0000'>www.fmc.org.br</font></a></font><font size='1' color='#FF0000'><br>"

footer = footer & " Se não deseja receber mais este e-mail, </font>"

footer = footer & " <font size='1' color='#003399'> <a href='http://www.fmc.org.br/newsletter/newsletter_apaga.asp?n_cod="& vuser &"'>"

footer = footer & " <font color='#FF0000'>clique"

footer = footer & " aqui.</font></a></font></span></span><font color='#FF0000'>"

footer = footer & " </font> </span></font></p>"

footer = footer & " </td>"

footer = footer & " </tr>"

footer = footer & " </table>"

footer = footer & "</table></table>"

Set objMail = Server.CreateObject("CDONTS.NewMail")

objMail.To = vmail

objMail.From = "newsletter@fmc.org.br"

objMail.Subject = request.form("assunto_do_email")

objMail.BodyFormat = 0

objMail.MailFormat = 0

'response.write style & top & HTML & footer

objMail.Body = style & top & HTML & footer

objMail.Send

set objMail = nothing

rs.movenext

wend

'next

rs.close

set rs = nothing

If n = 1 then

msg = "Foi enviado " & n & " e-mail com sucesso"

else

msg = "Foram enviados " & n & " e-mails com sucesso"

end if

call sucesso(msg)

%>

Espero que vocês possam me ajudar.

Gabriel

alack · Maio 24, 2003

gamefe, se você estiver usando response.redirect num vai adiantar nada, pq o servidor processa a página do segundo e-mail enviado e a retorna ao usuário antes do browser montar a primeira. assim acontece com a segunda, com aterceira... até a penúltima, pois a última retorna inteira e sem próxima página.

eu jé fiz um sistema como esse. eu usei um javascript com reload, passando o id do último e-mail enviado. o meu select seleciona todos os registros com id maior que o passado, assim eu não enviarei mais de um e-mail para o mesmo registro.

taí o código:

<!--#include file="connections/universosexual.asp"--><%idusuario = Request.QueryString("idusuario")if idusuario = "" then idusuario = "1"'recordset do e-mail a ser enviadoset RsNews = Server.CreateObject("ADODB.Recordset")RsNews.ActiveConnection = MM_site_STRINGRsNews.Source           = "SELECT * FROM usuarios WHERE idusuario > " & idusuarioRsNews.CursorType       = 3RsNews.CursorLocation   = 2RsNews.LockType         = 3RsNews.Open()RsNews_numRows          = 0'recordset dos e-mails enviadosset RsNewsCheck = Server.CreateObject("ADODB.Recordset")RsNewsCheck.ActiveConnection = MM_site_STRINGRsNewsCheck.Source           = "SELECT * FROM check"RsNewsCheck.CursorType       = 3RsNewsCheck.CursorLocation   = 2RsNewsCheck.LockType         = 3RsNewsCheck.Open()RsNewsCheck_numRows          = 0Response.Buffer = trueIf Not RsNews.EOF Then	Response.Write("enviando solicitação de atualização de cadastro à "&RsNews("email"))Else 'If Not RsNews.EOF	Response.Write("envio de solicitação de atualização de cadastro concluída!")	Response.End()End If 'If Not RsNews.EOFresponse.write("<br><a href='javascript:browser.stop();'>parar</a>")HTML =        "<html>"HTML = HTML & "<head>"HTML = HTML & "<title>Universo Sexual :::::::::::::::::::::::::::::::::::::::</title>"HTML = HTML & "<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>"HTML = HTML & "<link rel='stylesheet' href='http://www.site.com.br/css.css' type='text/css'>"HTML = HTML & "</head>"HTML = HTML & "<body bgcolor='#FFFFFF' text='#000000' leftmargin='0' topmargin='0'>"HTML = HTML & "<table width='638' bgcolor='#FFFFFF'>"HTML = HTML & "  <tr>"HTML = HTML & "    <td> <img src='http://www.site.com.br/imagens/spacer.gif' width='10' height='5'>"HTML = HTML & "<table width='592' border='1' cellspacing='0' cellpadding='0' bordercolor='#d40000' align='center'>"HTML = HTML & "  <tr>"HTML = HTML & "    <td>"HTML = HTML & "      <table width='100%' border='0' cellspacing='0' cellpadding='0'>"HTML = HTML & "        <tr>"HTML = HTML & "                <td><img src='http://www.site.com.br/imagens/top_news.jpg' width='592' height='117'></td>"HTML = HTML & "        </tr>"HTML = HTML & "        <tr>"HTML = HTML & "                <td> <table width='554' border='0' align='center' cellpadding='0' cellspacing='0'>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td colspan='3'> </td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td colspan='3'><div align='left'><img src='http://www.site.com.br/imagens/r_tit.gif' width='550' height='40'></div></td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td colspan='3'> </td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr bgcolor='#D40000'> "HTML = HTML & "                      <td colspan='3'> <table width='100%' border='0' cellspacing='5' cellpadding='5'>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td height='34' class='texto'><font color='#FFFFFF'>Para "HTML = HTML & "                              que possamos estruturar melhor o seu Universo Sexual, "HTML = HTML & "                              a nossa equipe está fazendo um "recall" "HTML = HTML & "                              com os usuários cadastrados em nosso site.</font></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                        </table></td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td colspan='3'> </td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td width='350' valign='top'><p><strong><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>Você "HTML = HTML & "                          só precisa informar-nos a sua data de nascimento:<br>"HTML = HTML & "                          <br>"HTML = HTML & "                          </font></strong></p>"HTML = HTML & "                        <form action='http://www.site.com.br/recall_ok.asp' method='post' name='recall' target='self' id='recall' style='margin-top:0;margin-bottom:0;'>"HTML = HTML & "                          <table width='352' border='0' cellspacing='0' cellpadding='0'>"HTML = HTML & "                            <tr> "HTML = HTML & "                              <td width='130'><div align='right'><font size='1'><strong><font face='Verdana, Arial, Helvetica, sans-serif'><font color='#CC0000'>::</font> "HTML = HTML & "                                  Data de nascimento </font></strong></font></div></td>"HTML = HTML & "                              <td width='128'><div align='left'><strong><font size='1' face='Verdana, Arial, Helvetica, sans-serif'>  "HTML = HTML & "                                  <input name='dia' type='text' id='dia' size='2' maxlength='2' style='font-family: verdana; font-size:11px;'>"HTML = HTML & "                                  / "HTML = HTML & "                                  <input name='mes' type='text' id='mes' size='2' maxlength='2' style='font-family: verdana; font-size:11px;'>"HTML = HTML & "                                  / "HTML = HTML & "                                  <input name='ano' type='text' id='ano' size='4' maxlength='4' style='font-family: verdana; font-size:11px;'>"HTML = HTML & "                                  </font></strong></div></td>"HTML = HTML & "                              <td width='94'> "HTML = HTML & "                                <input type='submit' value='Enviar' style='font-family: verdana; font-size:11px;'><input type='hidden' name='idusuario' value='" & RsNews("idusuario") & "'><input type='hidden' name='recalling' value='true'></td>"HTML = HTML & "                            </tr>"HTML = HTML & "                          </table>"HTML = HTML & "                        </form>"HTML = HTML & "                        <p>  </p></td>"HTML = HTML & "                      <td width='10' valign='top'> </td>"HTML = HTML & "                      <td width='190' valign='top'> <table width='146' border='0' align='center' cellpadding='0' cellspacing='0'>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td> </td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td><img src='http://www.site.com.br/imagens/news/tit_loja.gif' width='145' height='27'></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td> <table width='100%' border='0' cellspacing='0' cellpadding='0'>"HTML = HTML & "                                <tr> "HTML = HTML & "                                  <td width='1'><img src='../imagens/spacer.gif' width='2' height='1'></td>"HTML = HTML & "                                  <td> <table width='100%' border='0' cellspacing='0' cellpadding='0'>"HTML = HTML & "                                      <tr> "HTML = HTML & "                                        <td><font face='Verdana, Arial, Helvetica, sans-serif' size='1'><img src='http://www.site.com.br/imagens/spacer.gif' width='1' height='10'></font></td>"HTML = HTML & "                                      </tr>"HTML = HTML & "                                      <tr> "HTML = HTML & "                                        <td align='center'> <font face='Verdana, Arial, Helvetica, sans-serif' size='1'>  "HTML = HTML & "                                          </font> <div align='right'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'><a href='http://www.site.com.br/produto.asp?idproduto=4' style='text-decoration:none;'><img src='http://www.site.com.br/produtos/mini/max.gif' align='left' border='0'><b><font color='#D40000'>Max "HTML = HTML & "                                            Pênis</font></b></a> <br>"HTML = HTML & "                                            aumento peniano </font></div>"HTML = HTML & "                                          <font face='Verdana, Arial, Helvetica, sans-serif' size='1'>  "HTML = HTML & "                                          </font></td>"HTML = HTML & "                                      </tr>"HTML = HTML & "                                      <tr> "HTML = HTML & "                                        <td><font face='Verdana, Arial, Helvetica, sans-serif' size='1'><img src='http://www.site.com.br/imagens/spacer.gif' width='1' height='10'></font></td>"HTML = HTML & "                                      </tr>"HTML = HTML & "                                      <tr> "HTML = HTML & "                                        <td align='center'> <font face='Verdana, Arial, Helvetica, sans-serif' size='1'>  "HTML = HTML & "                                          </font> <div align='left'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#333333'><a href='http://www.site.com.br/produto.asp?idproduto=3' style='text-decoration:none;'><img src='http://www.site.com.br/produtos/mini/eros.gif' align='right' border='0'><b><font color='#D40000'>Eros "HTML = HTML & "                                            Therapy</font></b></a> <br>"HTML = HTML & "                                            tratamento para falta de orgasmo</font></div>"HTML = HTML & "                                          <font face='Verdana, Arial, Helvetica, sans-serif' size='1'>  "HTML = HTML & "                                          </font></td>"HTML = HTML & "                                      </tr>"HTML = HTML & "                                      <tr> "HTML = HTML & "                                        <td><font face='Verdana, Arial, Helvetica, sans-serif' size='1'><img src='http://www.site.com.br/imagens/spacer.gif' width='1' height='10'></font></td>"HTML = HTML & "                                      </tr>"HTML = HTML & "                                    </table></td>"HTML = HTML & "                                  <td width='1'><img src='../imagens/spacer.gif' width='2' height='1'></td>"HTML = HTML & "                                </tr>"HTML = HTML & "                              </table> "HTML = HTML & "                        </table>"HTML = HTML & "                        <table width='146' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='#ecf4f3'>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td height='50' valign='top'><img src='http://www.site.com.br/imagens/cabecalho_parceiros.gif' width='146' height='36'></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td height='50'> <div align='center'><img src='http://www.site.com.br/imagens/parceiro_sbms.gif' width='144' height='49'></div></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td> <div align='center'><img src='http://www.site.com.br/imagens/spacer.gif' width='10' height='10'></div></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td height='50'> <div align='center'><a href='http://www.alia.org.br' target='_blank'><img src='http://www.site.com.br/imagens/parceiro_alia.gif' width='125' height='75' border='0'></a></div></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td> </td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td height='20' bgcolor='#99CCCC'> <div align='center'><a href='http://www.site.com.br/parceiros.asp'><font face='Verdana, Arial, Helvetica, sans-serif' size='1' color='#003333'><b>Quer "HTML = HTML & "                                ser um parceiro?</b></font></a></div></td>"HTML = HTML & "                          </tr>"HTML = HTML & "                          <tr> "HTML = HTML & "                            <td bgcolor='#FFFFFF'> </td>"HTML = HTML & "                          </tr>"HTML = HTML & "                        </table>"HTML = HTML & "                        <div align='right'></div>"HTML = HTML & "                        <div align='right'></div></td>"HTML = HTML & "                    </tr>"HTML = HTML & "                    <tr> "HTML = HTML & "                      <td colspan='3'> </td>"HTML = HTML & "                    </tr>"HTML = HTML & "                  </table></td>"HTML = HTML & "        </tr>"HTML = HTML & "        <tr>"HTML = HTML & "                <td><img src='http://www.site.com.br/imagens/n_base.gif' width='592' height='61' usemap='#Map' border='0'></td>"HTML = HTML & "        </tr>"HTML = HTML & "      </table>"HTML = HTML & "          </td>"HTML = HTML & "  </tr>"HTML = HTML & "</table>"HTML = HTML & "      <img src='http://www.site.com.br/imagens/spacer.gif' width='10' height='18'></td>"HTML = HTML & "  </tr></table><map name='Map'>"HTML = HTML & "  <area shape='rect' coords='535,31,585,55' href='http://www.webee.com.br' target='_self'>"HTML = HTML & "</map>"HTML = HTML & "</body>"HTML = HTML & "</html>"	Set MailNews        = CreateObject("CDONTS.NewMail")MailNews.BodyFormat = 0 MailNews.MailFormat = 0 MailNews.From       = "email@servidor.com.br"MailNews.To         = RsNews("email")MailNews.Subject    = "NewsLetter"MailNews.Body       = HTMLMailNews.SendSet MailNews        = NothingRsNewsCheck.AddNewRsNewsCheck("idusuario") = RsNews("idusuario")RsNewsCheck.Update%><script LANGUAGE="JavaScript"><!--   function update(){         document.location.href="news_execute.asp?idusuario=<%= RsNews("idusuario") %>"   }   setTimeout("update()",100);//--></SCRIPT>

espero ter ajudado. :D

Entrar

Arquivado

Newsletter em ASP

Recommended Posts

gamefe 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

alack 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante