Erro ao na paginação...

marcelocardoso · Novembro 8, 2006

PESSOAL!

Reformatei toda minha newsletter para ficar fácil de vocês testarem e visualizarem o código, e me ajudarem ver onde está o erro.

SEGUE O CÓDIGO:

<%

'DEIXAMOS O BUFFER LIGADO

RESPONSE.BUFFER = TRUE

'NÚMERO DE REGISTROS POR PÁGINA (setado para 10 emails por vez)

CONST Registros_Por_Pagina = 10

'VERIFICAREMOS O NÚMERO DA PÁGINA DE REGISTROS A SER CONSULTADA

IF Request.QueryString("pagina_atual") = "" OR Request.QueryString("pagina_atual") = "0" THEN

pagina_atual = 1

ELSE

pagina_atual = Request("pagina_atual")

END IF

'CAPTUREMOS AGORA O EMAIL DOS REGISTROS TABELA PELA ORDEM ALFABÉTICA

SQL = "SELECT NewsletterEmail,NewsletterNome, ID FROM SISTEMA_Newsletter ORDER BY NewsletterEmail ASC"

SET ObjRS = Server.CreateObject("ADODB.RECORDSET")

ObjRS.CursorLocation = 3

ObjRS.CursorType = 2

ObjRS.LockType = 1

ObjRS.CacheSize = Registros_Por_Pagina

ObjRS.PageSize = Registros_Por_Pagina

ObjRS.Open SQL, ObjCX,,, &H0001

Status = ""

'VERIFICA SE O OBJETO EXISTE

IF NOT ObjRS.EOF THEN

'INFORMAREMOS O NÚMERO DA PÁGINA A SER UTILIZADA

ObjRS.AbsolutePage = pagina_atual

'CAPTURAREMOS O NÚMERO TOTAL DE PÁGINAS CRIADAS

total_paginas = ObjRS.PageCount

'CALCULAREMOS O PERCENTUAL DE EMAILS ENVIADOS ATÉ O MOMENTO

status_envio = status_envio & Fix((pagina_atual * 100) / total_paginas) & "% concluído.<br>"

'PERCORREREMOS TODOS OS REGISTROS DA PÁGINA ATUAL PARA CAPTURARMOS OS EMAILS A SEREM ENVIADOS PELA NEWSLETTER

FOR Cont = 1 TO ObjRS.PageSize

'CAPTURAREMOS OS DADOS A SEGUIR PARA USARMOS NO SCRIPT

campo_FALA = Replace(Replace(Replace(Request.Form("campo_descricao"),"'",""),"<P>",""),"</P>","")

campo_PASTA = "manager_newsletters/"

campo_NOME = ObjRS("NewsletterNome")

campo_MAIL = ObjRS("NewsletterEmail")

campo_ID = ObjRS("ID")

campo_DATA = Date()

'CRIAMOS AS CONEXÕES

SET Dicas = ObjCX.Execute("SELECT TOP 3 * FROM Dicas WHERE DicasOpcao = TRUE ORDER BY ID DESC")

SET Produtos = ObjCX.Execute("SELECT TOP 2 * FROM Produtos ORDER BY RND(INT(NOW()*[iD])-NOW()*[iD]);")

SET Noticias = ObjCX.Execute("SELECT TOP 4 * FROM Noticias WHERE NoticiaOpcao = TRUE ORDER BY ID DESC")

'MENSAGEM DE ANIVERSARIO

Mensagem = Mensagem & "<HTML>"

Mensagem = Mensagem & "<HEAD>"

Mensagem = Mensagem & "<TITLE>NEWS</TITLE>"

Mensagem = Mensagem & "<META HTTP-EQUIV=""Content-Type"" CONTENT=""text/html; charset=iso-8859-1"">"

Mensagem = Mensagem & "<style type=""text/css"">"

Mensagem = Mensagem & "<!--"

Mensagem = Mensagem & "BODY {"

Mensagem = Mensagem & " font: normal 11px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " color: #999999;"

Mensagem = Mensagem & " margin-left: 0px;"

Mensagem = Mensagem & " margin-top: 0px;"

Mensagem = Mensagem & " margin-right: 0px;"

Mensagem = Mensagem & " margin-bottom: 0px;"

Mensagem = Mensagem & " background: #FFFFFF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".TEXTO_A {"

Mensagem = Mensagem & " font-size: 12px;"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & " color: #FF9900;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "INPUT {"

Mensagem = Mensagem & " COLOR: #333333;"

Mensagem = Mensagem & " background: #EAEEF2;"

Mensagem = Mensagem & " border-top: 1px groove;"

Mensagem = Mensagem & " border-right: 1px groove;"

Mensagem = Mensagem & " border-bottom: 1px groove;"

Mensagem = Mensagem & " border-left: 1px groove;"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".CAMPO_ALERTA"

Mensagem = Mensagem & "{"

Mensagem = Mensagem & " border: 1px solid #0066CC;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "A:LINK {"

Mensagem = Mensagem & " COLOR: #006699;"

Mensagem = Mensagem & " TEXT-DECORATION: none;"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "A:VISITED {"

Mensagem = Mensagem & " FONT-WEIGHT: normal; FONT-SIZE: 10px; COLOR: #666666; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif; TEXT-DECORATION: none"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "A:HOVER {"

Mensagem = Mensagem & " FONT-WEIGHT: normal;"

Mensagem = Mensagem & " FONT-SIZE: 10px;"

Mensagem = Mensagem & " COLOR: #0066CC;"

Mensagem = Mensagem & " FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " TEXT-DECORATION: none;"

Mensagem = Mensagem & " cursor: hand;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "SELECT {"

Mensagem = Mensagem & " color: #333333;"

Mensagem = Mensagem & " background: #EAEEF2;"

Mensagem = Mensagem & " border: 1px solid;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & ""

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "TD {"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " color: #666666;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & "TEXTAREA {"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " color: #333333;"

Mensagem = Mensagem & " background: #EAEEF2;"

Mensagem = Mensagem & " border: 1px groove;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".ADTEXT A:HOVER:UNKNOWN {"

Mensagem = Mensagem & " COLOR: black; TEXT-DECORATION: none"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BOLD {"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BOTAOFORM {"

Mensagem = Mensagem & " FONT-WEIGHT: bold;"

Mensagem = Mensagem & " FONT-SIZE: 8pt;"

Mensagem = Mensagem & " MARGIN-BOTTOM: 1px;"

Mensagem = Mensagem & " COLOR: #666666;"

Mensagem = Mensagem & " FONT-FAMILY: Tahoma;"

Mensagem = Mensagem & " HEIGHT: 19px;"

Mensagem = Mensagem & " BACKGROUND-COLOR: #FDF4D9;"

Mensagem = Mensagem & " border-top: 1px #FF9900;"

Mensagem = Mensagem & " border-right: 1px #FF9900;"

Mensagem = Mensagem & " border-bottom: 1px #FF9900;"

Mensagem = Mensagem & " border-left: 1px #FF9900;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER1 {"

Mensagem = Mensagem & " border-top: 2px solid #FF6600;"

Mensagem = Mensagem & " border-right: 1px solid #FF6600;"

Mensagem = Mensagem & " border-bottom: 1px solid #FF6600;"

Mensagem = Mensagem & " border-left: 1px solid #FF6600;"

Mensagem = Mensagem & " background: #FDFCDF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BOTAOFORM2 {"

Mensagem = Mensagem & " BORDER-TOP-WIDTH: 1px; FONT-WEIGHT: bold; BORDER-LEFT-WIDTH: 1px; FONT-SIZE: 8pt; BORDER-BOTTOM-WIDTH: 1px; MARGIN-BOTTOM: 1px; COLOR: orange; FONT-FAMILY: Tahoma; HEIGHT: 19px; BACKGROUND-COLOR: #F3F3F3; BORDER-RIGHT-WIDTH: 1px"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER2 {"

Mensagem = Mensagem & " border-top: 2px solid #ADD3EF;"

Mensagem = Mensagem & " border-right: 1px solid #ADD3EF;"

Mensagem = Mensagem & " border-bottom: 1px solid #ADD3EF;"

Mensagem = Mensagem & " border-left: 1px solid #ADD3EF;"

Mensagem = Mensagem & " background: #ADD3EF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER3 {"

Mensagem = Mensagem & " border-top: 1px dotted #FF9900;"

Mensagem = Mensagem & " border-right: 1px dotted #FF9900;"

Mensagem = Mensagem & " border-bottom: 1px dotted #FF9900;"

Mensagem = Mensagem & " border-left: 1px dotted #FF9900;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER4 {"

Mensagem = Mensagem & " border-top: 0.5px solid #FDFCDF;"

Mensagem = Mensagem & " border-right: 0.5px dotted #FDFCDF;"

Mensagem = Mensagem & " border-bottom: 0.5px dotted #FDFCDF;"

Mensagem = Mensagem & " border-left: 0.5px dotted #FDFCDF;"

Mensagem = Mensagem & " background: #FBFBFB;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".TEXTO-10P {"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " color: #666666;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".TEXTO-TITULO-10p {"

Mensagem = Mensagem & " font: normal 10px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " color: #FF6600;"

Mensagem = Mensagem & " text-transform: uppercase;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER5 {"

Mensagem = Mensagem & " border-right: 2px solid #DBD9B7;"

Mensagem = Mensagem & " border-bottom: 2px solid #DBD9B7;"

Mensagem = Mensagem & " border-left: 2px solid #DBD9B7;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER6 {"

Mensagem = Mensagem & " border-bottom: 1.5px solid #F7CE82;"

Mensagem = Mensagem & " background: #FDF4D9;"

Mensagem = Mensagem & " border-top: 1.5px solid #F7CE82;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER7 {"

Mensagem = Mensagem & ""

Mensagem = Mensagem & " border-bottom: 1.5px solid #F2F2F2;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER8 {"

Mensagem = Mensagem & " border: 1.5px solid #E6F0F7;"

Mensagem = Mensagem & ""

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".FonteADM1 {"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & " color: #FFFFFF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".FonteADM2 {"

Mensagem = Mensagem & ""

Mensagem = Mensagem & " font-weight: normal;"

Mensagem = Mensagem & " color: #FFFFFF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ""

Mensagem = Mensagem & ".LINK2 {"

Mensagem = Mensagem & ""

Mensagem = Mensagem & " FONT-WEIGHT: normal; FONT-SIZE: 8pt; COLOR: #FFFFFF; TEXT-DECORATION: none"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".CORAZUL {"

Mensagem = Mensagem & " font-size: 9px;"

Mensagem = Mensagem & " color: #0066CC;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ""

Mensagem = Mensagem & ".TEXTO-TITULO2-BOLD {"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & " text-transform: uppercase;"

Mensagem = Mensagem & " color: #0066CC;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".TEXTO-DICAS1 {"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & " text-transform: none;"

Mensagem = Mensagem & " color: #333333;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & " font-size: 9px;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".LINK-DICAS {"

Mensagem = Mensagem & " FONT-WEIGHT: normal; FONT-SIZE: 7px; COLOR: #999999; TEXT-DECORATION: overline"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ""

Mensagem = Mensagem & ".LINK3 {"

Mensagem = Mensagem & " FONT-WEIGHT: normal; FONT-SIZE: 8pt; COLOR: #0066CC; TEXT-DECORATION: none"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".LABEL {"

Mensagem = Mensagem & " border-width: 0px;"

Mensagem = Mensagem & " border-style: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".EnqueteCOR1 {"

Mensagem = Mensagem & " color: #003399;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".EnqueteCOR2 {"

Mensagem = Mensagem & " color: #FF6600;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".EnqueteCOR3 {"

Mensagem = Mensagem & " color: #CC0000;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_Cinza {"

Mensagem = Mensagem & " background: #F2F2F2;"

Mensagem = Mensagem & " border-top: 1px groove;"

Mensagem = Mensagem & " border-right: 1px groove;"

Mensagem = Mensagem & " border-bottom: 1px groove;"

Mensagem = Mensagem & " border-left: 1px groove;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_SEM_STILO {"

Mensagem = Mensagem & " color: #333333;"

Mensagem = Mensagem & " border: 0px none #CCCCCC;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_SEM_NADA {"

Mensagem = Mensagem & " background: #FFFFFF;"

Mensagem = Mensagem & " border: 0px none #FFFFFF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ""

Mensagem = Mensagem & ".CORCINZA {"

Mensagem = Mensagem & " font-size: 9px;"

Mensagem = Mensagem & " color: #CCCCCC;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_SEM_STILO2 {"

Mensagem = Mensagem & " color: #0066CC;"

Mensagem = Mensagem & " background: #FFFFFF;"

Mensagem = Mensagem & " border: 0px none #CCCCCC;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_SEM_STILO3 {"

Mensagem = Mensagem & " color: #FF9900;"

Mensagem = Mensagem & " background: #FFFFFF;"

Mensagem = Mensagem & " border: 0px none #FFFFFF;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER-BOX {"

Mensagem = Mensagem & " border-bottom: 1px solid #ebebeb;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDER9 {"

Mensagem = Mensagem & " border-top: 8px solid #FAEBBC;"

Mensagem = Mensagem & " border-right: 1.5px solid #FAEBBC;"

Mensagem = Mensagem & " border-bottom: 1.5px solid #FAEBBC;"

Mensagem = Mensagem & " border-left: 1.5px solid #FAEBBC;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".INPUT_SEM_STILO4 {"

Mensagem = Mensagem & " color: #FF6600;"

Mensagem = Mensagem & " background: #FAEBBC;"

Mensagem = Mensagem & " border-top: 1px groove;"

Mensagem = Mensagem & " border-right: 1px groove;"

Mensagem = Mensagem & " border-bottom: 1px groove;"

Mensagem = Mensagem & " border-left: 1px groove;"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".BORDA_Linhar {"

Mensagem = Mensagem & " border-bottom: 2px dotted #F2F2F2;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".TEXTO_B {"

Mensagem = Mensagem & " font-size: 12px;"

Mensagem = Mensagem & " font-weight: bold;"

Mensagem = Mensagem & " color: #0066CC;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".Final {"

Mensagem = Mensagem & " font: 9px Verdana, Arial, Helvetica, sans-serif;"

Mensagem = Mensagem & " text-decoration: none;"

Mensagem = Mensagem & " color: #999999;"

Mensagem = Mensagem & "}"

Mensagem = Mensagem & ".style6 {font-size: 12px; font-weight: bold; color: #666666; text-decoration: none; }"

Mensagem = Mensagem & "-->"

Mensagem = Mensagem & "</style>"

Mensagem = Mensagem & "</HEAD>"

Mensagem = Mensagem & "<BODY>"

Mensagem = Mensagem & "<table width=""730"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""Cabecalho"">"

Mensagem = Mensagem & " <tr> "

Mensagem = Mensagem & " <td width=""730"" colspan=""2""></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr> "

Mensagem = Mensagem & " <td colspan=""2""><table width=""700"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""BORDER4"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td colspan=""2""><img src="""& campo_PASTA &"imagem_newsletter_padrao1_-_A1.jpg"" alt="""" width=""700"" height=""156"" border=""0"" usemap=""#MAPA"" /></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""408"" valign=""top"" background="""& campo_PASTA &"imagem_newsletter_padrao1_-_A2.jpg""><table width=""96%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " <td class=""TEXTO_B""> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""6%""> </td>"

Mensagem = Mensagem & " <td width=""94%"" class=""TEXTO_B""><span class=""TEXTO_D"">Olá!, </span><span class=""TEXTO_A"">"& campo_NOME &"</span> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " <td><p><br>"

Mensagem = Mensagem & " <br>"& campo_FALA &"<br>"

Mensagem = Mensagem & " </p> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " <td width=""292"" rowspan=""3"" valign=""top"" background="""& campo_PASTA &"imagem_newsletter_padrao1_-_A3.jpg""><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""2%""> </td>"

Mensagem = Mensagem & " <td width=""93%""><table width=""98%"" border=""0"" align=""center"" cellpadding=""3"" cellspacing=""3"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""39%"" valign=""top""><div align=""center""><a href=""produtos_detalhes.asp?identificacao=1"" target=""_blank""><img src=""site_imagens/imagem_planos_banner_familiares.gif"" width=""220"" height=""150"" border=""0""></a></div></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " <td width=""5%""> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " <td class=""TEXTO_E""> </td>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td height=""31""> </td>"

Mensagem = Mensagem & " <td bgcolor=""#E2F3FC"" class=""TEXTO_A""> <div align=""center"" class=""TEXTO_B""> "

Mensagem = Mensagem & " <div align=""left""> Mais sua vida! </div>"

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

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " <td>"

Mensagem = Mensagem & " <table width=""96%"" border=""0"" align=""center"" cellpadding=""4"" cellspacing=""6"">"

Mensagem = Mensagem & "<tr>"

DO WHILE NOT Produtos.EOF

Produtos_ID = Produtos("ID")

Produtos_Imagem = Produtos("ProdutosImagemPequena")

Produtos_Descricao = Produtos("ProdutosDescricao")

Produtos_Titulo = LEFT(Produtos("ProdutosTitulo"),160) & " ..."

Mensagem = Mensagem & "<td width=""643"" height=""100%""><table width=""100%"" border=""0"" cellpadding=""1"" cellspacing=""0"">"

Mensagem = Mensagem & " <tr> "

Mensagem = Mensagem & " <td width=""15%"" height=""30"" valign=""top""><font face=""Arial"" size=""1""> </font><font face=""Arial"" size=""1""><a href=""produtos_detalhes.asp?identificacao="& PadraoProdutos_ID &""" target=""_blank""><img src=""site_imagens/"& PadraoProdutos_Imagem &""" width=""188"" height=""96"" border=""0"" align=""absmiddle""></a></font></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td height=""100%"">"& PadraoProdutos_Titulo &"<br>"

Mensagem = Mensagem & " <br>"

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

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td><div align=""right""><a href=""produtos_detalhes.asp?identificacao="& PadraoProdutos_ID &""" target=""_blank"" class=""BOLD"">Saber mais</a></div></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table>"

Mensagem = Mensagem & " </td>"

Mensagem = Mensagem & "</tr>"

Produtos.MoveNext

Loop

Mensagem = Mensagem & "</table></td>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td valign=""baseline""><img src="""& campo_PASTA &"imagem_newsletter_padrao1_-_A4.jpg"" width=""408"" height=""44"" border=""0"" alt="""" /></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td background="""& campo_PASTA &"imagem_newsletter_padrao1_-_A5.jpg""><table width=""100%"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""8%""> </td>"

Mensagem = Mensagem & "<td width=""92%"">"

DO WHILE NOT Noticias.EOF

Noticias_ID = Noticias("ID")

Noticias_Titulo = Noticias("NoticiaTitulo")

Noticias_Data = FormatarData(Noticias("NoticiaData"))

Noticias_Descricao = LEFT(Noticias("NoticiaDescricao"),130) & " ..."

Mensagem = Mensagem & "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td width=""90%"" valign=""top""><table width=""350"" border=""0"" cellspacing=""2"" cellpadding=""2"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td height=""22"" valign=""top""><span class=""TEXTO-TITULO-10p""><strong>"& PadraoNoticias_Data &"</strong> </span></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td><span class=""NOTLINK""><a href=""noticias_detalhes.asp?codnoticia="& PadraoNoticias_ID &""" target=""_parent"">"& PadraoNoticias_Descricao &"</a></span><span class=""LINK3""><a href=""noticias_detalhes.asp?codnoticia="& PadraoNoticias_ID &""" target=""_parent""></a></span></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td> </td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & "</table>"

Noticias.MoveNext

Loop

Mensagem = Mensagem & "</td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td colspan=""2"" valign=""top""><img src="""& campo_PASTA &"imagem_newsletter_padrao1_-_A6.jpg"" width=""700"" height=""45"" border=""0"" alt="""" /></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " <tr> "

Mensagem = Mensagem & " <td colspan=""2""><div align=""center"">"

Mensagem = Mensagem & " <table width=""700"" border=""0"" align=""center"" cellpadding=""2"" cellspacing=""2"">"

Mensagem = Mensagem & " <tr>"

Mensagem = Mensagem & " <td><div align=""right""><span class=""Final"">Você está recebendo este email por estar cadastrado em nossa newsletter para receber novidades.<br>"

Mensagem = Mensagem & " Caso não queira mais receber emails como este, clique <a href=""remove_email.asp?email="& campo_MAIL &"&id="& campo_ID &""" target=""_blank"" class=""TEXTO-DICAS1"">aqui</a></span> </div></td>"

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & " </table>"

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

Mensagem = Mensagem & " </tr>"

Mensagem = Mensagem & "</table>"

Mensagem = Mensagem & "<map name=""MAPA""><area shape=""rect"" coords=""22,7,171,87"" href=""http://www.testecurso.com.br"" target=""_blank"" alt=""teste - SITE"">"

Mensagem = Mensagem & "</map>"

Mensagem = Mensagem & "</BODY>"

Mensagem = Mensagem & "</HTML>"

'Response.Write Mensagem

'Response.End

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::

': :

': COMPONENTE DE EMAIL O CDOSYS - INICIAREMOS :

': :

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::

SET CDOSYS = Server.CreateObject("CDO.Message")

'INFORMAREMOS O EMAIL DO REMETENTE, O TÍTULO DO EMAIL E OUTRAS INFORMAÇÕES DE CONFIGURAÇÕES DO OBJETO DE CDOSYS

'Criaremos o objeto para configuração do SMTP

SET CDOSYS_CONFIG = Server.CreateObject ("CDO.Configuration")

'SMTP

CDOSYS_CONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp2.locaweb.com.br"

'PORTA DO SMTP

CDOSYS_CONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'PORTA DO CDO

CDOSYS_CONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'TIMEOUT

CDOSYS_CONFIG.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30

CDOSYS_CONFIG.Fields.Update

'Atualizaremos a configuração do CDOSYS para o envio do e-mail

SET CDOSYS.Configuration = CDOSYS_CONFIG

'EMAIL DO REMETENTE

CDOSYS.From = "teste <teste@testecursos>"

'EMAIL DO DESTINATARIO

CDOSYS.TO = campo_MAIL

'ASSUNTO DA MENSAGEMS

CDOSYS.Subject = "Newsletter Informativo - [ " & campo_DATA & " ]"

'CONTEÙDO DA MENSAGEM

CDOSYS.HtmlBody = Mensagem

'ENVIAREMOS O EMAIL

CDOSYS.Send

'ELIMINAREMOS APÓS O ENVIO DA MENSAGEM A VARIAVEL DA MEMÓRIA

SET CDOSYS = Nothing

SET CDOSYS_CONFIG = Nothing

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::

': :

': COMPONENTE DE EMAIL O CDOSYS - FINALIZAMOS :

': :

'::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

:::::::::::

'IREMOS AGORA PARA O PRÓXIMO REGISTRO DA PÁGINA, OU SEJA; PARA O PRÓXIMO EMAIL DO BANCO DE DADOS

ObjRS.MoveNext

IF ObjRS.EOF THEN EXIT FOR

<HTML>

<HEAD>

<TITLE>Newsletter</TITLE>

<!--

.style1 {color: #336699;font-weight: bold;}

.style2 {color: #CC0000}

-->

</style>

</HEAD>

<BODY>

<%

IF Int(pagina_atual) < Int(total_paginas) THEN

'APÓS O CÓDIGO JAVASCRIPT PARA ATUALIZARMOS A PÁGINA PARA ENVIAR OS PRÓXIMOS EMAILS, NESTE CASO; A CADA 5 SEGUNDOS

%>

<tr>

<tr>

</tr>

<tr>

</tr>

</table></td>

</tr>

</table>

function atualiza(){

document.location.href = "<%=REQUEST.SERVERVARIABLES("SCRIPT_NAME") %>?pagina_atual=<%= pagina_atual + 1 %>"

}

setTimeout("atualiza()",5000);

</SCRIPT>

<%

'CASO CONTRÁRIO SE O ENVIO JÁ TENHA CHEGADO AO FIM, APRESENTAREMOS O CÓDIGO ABAIXO

ELSE

'INFORMAREMOS QUE O ENVIO DA NEWSLETTER FOI CONCLUIDO

%>

<tr>

<tr>

</tr>

</table></td>

</tr>

</table>

<%

END IF

%>

</BODY>

</HTML>

<%

'FECHA A CONEXÂO COM O BANCO DE DADOS

ObjRS.Close

ObjCX.Close

'ELIMINAREMOS AS VARIÁVEIS DA MEMÓRIA DO SERVIDOR

SET pagina_atual = NOTHING

SET total_paginas = NOTHING

SET SQL = NOTHING

SET CDOSYS = NOTHING

SET Dicas = NOTHING

SET Noticias = NOTHING

SET Produtos = NOTHING

SET ObjRS = NOTHING

SET ObjRS_atualiza = NOTHING

SET ObjCX = NOTHING

SET status_envio = NOTHING

%>

marcelocardoso · Novembro 8, 2006

Me esqueci de informar no email anterior ao código....

VAMOS LÁ!

1) O script está funcionando tudo normal, sem problemas aparentemente...

2) Ele envia para todos os emails do banco na boa.

3) Só tem um problema posterior é no recebimento do email quando abrimos e recebemos no outlook, pois ele nos traz a mensagem que foi enviado pelo script duplicado.

Ex:

Ele pega a variavel chamada MENSAGEM do script, e faz isso:

MENSAGEM

MENSAGEM

O script simplesmente ao enviar para os emails do banco, (repete) ou seja; se tem 5 emails cadastrados no banco, ele envia para os 5 emails, a mensagem repetidas 5x, ... (é como se eu tivesse um LOOP)entenderam????

Acho que é algum erro de paginação no código que postei, mas eu não tenho experiência nisso, portanto solicito ajuda aos colegas, pois vai servir para todos nós... o código.

Obrigado!

suzi · Novembro 8, 2006

Ola http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Uma pergunta, no for para enviar os e-mails, o codigo ObjRS("NewsletterEmail") ele pega um e-mail de cada vez, ou todos os e-mails da pagina??

Porque se ele pegar todos os e-mails da pagina então o erro esta no parametro do for ObjRS.PageSize, pois com ele a pagina vai rodar de acordo com o numero de registros e não com o numero de paginas.. se o caso for esse troca por ObjRS.PageCount, que assim ele vai rodar esse codigo por pagina e não por registro.

Se eu estiver falando besteira me perdõe hehe eu so estou tentando ajudar..

da uma olhadinha...

'PERCORREREMOS TODOS OS REGISTROS DA PÁGINA ATUAL PARA CAPTURARMOS OS EMAILS A SEREM ENVIADOS PELA NEWSLETTER FOR Cont = 1 TO ObjRS.PageSize 'CAPTURAREMOS OS DADOS A SEGUIR PARA USARMOS NO SCRIPT campo_FALA   = Replace(Replace(Replace(Request.Form("campo_descricao"),"'",""),"<P>",""),"</P>","") campo_PASTA  = "manager_newsletters/" campo_NOME   = ObjRS("NewsletterNome") campo_MAIL   = ObjRS("NewsletterEmail") campo_ID	 = ObjRS("ID") campo_DATA   = Date()				.			.			.

Espero ter ajudado http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

marcelocardoso · Novembro 8, 2006

Olá SUZI!

Muito obrigado, mas não entendi muito oque você me falou... poderia me ajudar mais....

Aquele dados que me passou sobre:

ObjRS("NewsletterEmail") - este aqui sim, seria para pegar os emails do banco e colocar no componente CDOSYS:

Exemplo:

campo_MAIL = ObjRS("NewsletterEmail")

CDOSYS.TO = campo_MAIL

E fiz como você disse:

trocar FOR Cont = 1 TO ObjRS.PageSize por FOR Cont = 1 TO ObjRS.PageCount.

MAs suzi, será que não vai dar grilo, pois daí vair ter 2 PageCount, no código, veja:

'CAPTURAREMOS O NÚMERO TOTAL DE PÁGINAS CRIADAS

total_paginas = ObjRS.PageCount

'PERCORREREMOS TODOS OS REGISTROS DA PÁGINA ATUAL PARA CAPTURARMOS OS EMAILS A SEREM ENVIADOS PELA NEWSLETTER

FOR Cont = 1 TO ObjRS.PageCount

Se puder fazer um teste e me ajudar, agradeço!

Pois já estou desesperado, pois não conheço muito de programação....

Conheço muito pouco, por isso é que fico perdido.

ACABEI DE TESTAR OQUE VOCE ME PASSOU PARA TROCAR, MAS CONTINUA NA MESMA, DUPLICA TUDO....

suzi · Novembro 8, 2006

ola http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Então me diz uma coisa, se esta linha de codigo abaixo pega os e-mails do banco,

"campo_MAIL = ObjRS("NewsletterEmail")"

o porque ela esta dentro do for?

Se ela já esta com os valores dos emails, então não é necessario inicializar ela todas as vezes que for capturar alguma informação não é?

Desculpe se estou falando alguma bobagem, so estou tentando ajudar..

inté http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

marcelocardoso · Novembro 8, 2006

Mas suzi, eu não sei te informar... apenas peguei o script e estou tentando fazer funcionar?Sim a variavel acredito que ali pega os emails, mas como vamos pegar todos os emails do banco se não for daquele jeito....Pois senão vai mandar só um email, e não para todos os emails cadstrados...Me ajuda amiga, acho que algo na paginação

marcelocardoso · Novembro 8, 2006

Conseguei alguma coisa SUZI??????

marcelocardoso · Novembro 9, 2006

Pô galera!Alguém aí para me ajudar, pois sozinho não estou conseguindo arrumar este código...Me falaram se não estava em algum loop, mas unica coisa que tem no meu código é NEXT e WEND com WHILE Dêem uma luzzzzzzzzz aí.....

Arquivado

Erro ao na paginação...

Recommended Posts

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

suzi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

suzi 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

marcelocardoso 6

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante