Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

bufalino

CDONTS - newsletter q mestra noticias dinamicamente ??

Por , em ASP Clássico

Recommended Posts

bufalino    0

bufalino
Postado

ola, tenho q enviar no email dos clientes (cadastrado num banco de dados em access) as ultimas noticas (4 noticias),

COMO FAZE PARA APARECER ESSA PAGINA NO EMAIL DAS PESSOAS ??? ja tentei INCLUDE, , Redireciomanento como esta no codigo agora mas nao deu certo,. Tem como fazer de outra forma de enviar essa pagina dinamica para o email dos clientes ?

 

(seria tipo quando você recebe um email das ultimas promoçoes mercado livre etc, soh q no meu caso somente noticia)

 

<%

Response.Buffer = True

 

'Declara as variaveis a serem usadas neste script

Dim pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, Conexao, status_envio

 

'Numero de registros por pagina (emails a serem enviados, neste caso, 10 por vez)

Const registros_por_pagina = 10

 

'Verifica o numero da pagina 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

 

'Cria conexao com o banco de dados, informe corretamente o caminho do banco de dados

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

Conexao.Open "Data Source=c:\sites\bancodados.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"

 

'Captura o email dos registros da tabela pela ordem alfabética

ComandoSQL = "SELECT email FROM newsletter ORDER BY email ASC"

Set objRS = Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 2

objRS.LockType = 1

objRS.CacheSize = registros_por_pagina

objRS.Open ComandoSQL, Conexao,,, &H0001

objRS.PageSize = registros_por_pagina

status = ""

 

If Not objRS.EOF Then

 

'Informa o numero da pagina a ser utilizada

objRS.AbsolutePage = pagina_atual

 

'Captura o numero total de paginas criadas

total_paginas = objRS.PageCount

 

'Calcula o percentual de emails enviados até o momento

status_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"

 

'Percorre todos os registros da pagina atual para capturar os email a serem enviados a newsletter

For Cont = 1 to objRS.PageSize

 

'Para mensagem em HTML utilize sempre este bloco no inicio da mensagem a ser enviada

Mensagem = ""

Mensagem = Mensagem & "<html><head>"

Mensagem = Mensagem & "<meta http-equiv='refresh' content='0;URL=http://www.site.com.br/noticias.asp'></head>"

Mensagem = Mensagem & "<BODY></BODY>"

Mensagem = Mensagem & "</html>"

 

'Envia a mensagem para o email do registro atual

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

 

 

'Informa o email atual a ser enviado

ObjMail.to = objRS("email")

 

'Informa o email do remetente, o titulo do email e outras configurações

ObjMail.from = "email@terra.com.br"

ObjMail.subject = "titulo"

ObjMail.Importance = 1

ObjMail.BodyFormat = 0

ObjMail.MailFormat = 0

 

'Informa o texto da mensagem

ObjMail.body = Mensagem

 

'Envia o email

ObjMail.send

 

'Elimina variavel da memória

Set ObjMail = nothing

 

'Vai para o proximo registro da pagina

objRS.MoveNext

If objRS.EOF Then Exit For

Next

 

%>

 

<html>

<head>

<title>Newsletter</title>

</head>

<body>

 

<%

If Int(pagina_atual) < Int(total_paginas) Then

 

'Informa o status do envio da newsletter

Response.Write status_envio

 

'Codigo JavaScript para atualizar a pagina e enviar os proximos emails, neste caso, a cada 5 segundos

%>

 

<br>

Aguarde o envio da Newsletter...

<script LANGUAGE="JavaScript">

<!--

function atualiza(){

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

}

setTimeout("atualiza()",5000);

//-->

</SCRIPT>

 

<%

Else

 

'Informa que o envio da newsletter foi concluido

%>

 

Envio da Newsletter concluido.

 

<%

End If

End If

%>

 

</body>

</html>

 

<%

'Fecha a conexao com o banco de dados

objRS.Close

Conexao.Close

 

'Elimina as variaveis da memória do servidor

Set pagina_atual = Nothing

Set total_paginas = Nothing

Set ComandoSQL = Nothing

Set objRS = Nothing

Set objRS_atualiza = Nothing

Set Conexao = Nothing

Set status_envio = Nothing

%>

DA UMA LUZ AEE

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é so montar a pagina e enviar elaapenas defina o corpo como sendo html

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

é so montar a pagina e enviar elaapenas defina o corpo como sendo html

sim, dessa maneira eu sei e a pagina nao ficaria dinamica, você entendeu o pq de redirecinar para a http://www.sincopmt.com.br/noticias/clipping.asp que eh uma pagina dinamicano caso a pergunta seria:qual a melhor maneira de se enviar páginas completas em ASP (dinâmicas) por e-mail usando Cdonts ????????

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

você nao entendeu... nao da pra você mandar uma pagina asp para seu cliente... tipo, ela nao vai ser interpretada...Uma maneira de fazer isso, é criar um xmlhttprequest pra requistar de outra pagina o conteudo.. mas acho q mesmo assim fica inviavel..Agora, o que você pdoe fazer é, gerar uma pagina html com os dados do seu banco e enviar...q é como é feito hj em dia..

onde tem um exemplo desse gerador q manda para a pagina q envia?

Compartilhar este post

Link para o post
Compartilhar em outros sites

bufalino    0

bufalino
Postado

nao tem exemplo cara,tu monta na sua necessidade...tipo, na mensagem do seu email você coloca o asp q você quer, usando o while se for o caso e tal..você dve montar a pagina normal, e depois você transfere ela pro corpo do seu email..

bom pelo menos ja estou tendo uma ideia,, entendi q tenho q fazer uma primeira pagina em asp para gerar o codigo mas to boiando d como fazer para enviar o codigo html para a pagina q envia,, ou seja , como fazer para a pagina q envia para o email resgate o codigo gerado na pagina anterior

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito