Ir para conteúdo

POWERED BY:

Arquivado

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

Crystal

Corpo de email

Por , em ASP Clássico

Recommended Posts

Crystal    0

Crystal
Postado

Estou fazendo uma newsletter que tem uma tabela em seu body mas ao querer recuperar as variáveis que são transmitidas via "session variables" da página de origem, não consigo fazer com que a tabela assuma os valores das variáveis.

Onde estou errando? O email transmitido fica coms os campos da variáveis em branco....

obrigado

Vejam o codigo....

 

<%Response.Buffer = TrueDim pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, Conexao, status_envioConst registros_por_pagina = 1If (Request.QueryString("pagina_atual") = "") Or (Request.QueryString("pagina_atual") = "0") then pagina_atual = 1 Else pagina_atual = Request("pagina_atual") End IfSet Conexao = Server.CreateObject("ADODB.Connection")Conexao.Open "Data Source=E:\Webspace\crystalino\adm-bancarios\bancarioslitoral.org.br\www\dados\bancarios.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"ComandoSQL = "SELECT email FROM teste ORDER BY email ASC"Set objRS = Server.CreateObject("ADODB.Recordset")objRS.CursorLocation = 3objRS.CursorType = 2objRS.LockType = 1objRS.CacheSize = registros_por_paginaobjRS.Open ComandoSQL, Conexao,,, &H0001objRS.PageSize = registros_por_paginastatus = ""If Not objRS.EOF ThenobjRS.AbsolutePage = pagina_atualtotal_paginas = objRS.PageCountstatus_envio = status_envio & Fix((pagina_atual*100)/total_paginas) & "% enviado<br>"For Cont = 1 to objRS.PageSizeMensagem = ""Mensagem = Mensagem &"<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.0 Transitional//EN'>"Mensagem = Mensagem & "<HTML><HEAD>"Mensagem = Mensagem & "<META content='text/html; charset=iso-8859-1' http-equiv=Content-Type>"Mensagem = Mensagem & "<META content='MSHTML 5.00.2614.3500' name=GENERATOR>"Mensagem = Mensagem & "<link href='http://www.bancarioslitoral.org.br/css/modelo4.css' rel='stylesheet' type='text/css'></HEAD>"Mensagem = Mensagem & "<BODY leftmargin=0 rightmargin=0 bottommargin=0 topmargin=0>"Mensagem = Mensagem & "<table width='75%' border='0' align='center'>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td colspan='3'>"Mensagem = Mensagem & "<img src=http://www.bancarioslitoral.org.br/imagens/barras/barranova.jpg width='770' height='80'></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td colspan='3'><table width='100%'  border='0' cellspacing='2' cellpadding='1'>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td width='25%' rowspan='2' bgcolor='#FAF5F5' class='titulo_GR'><div align='center'>"Mensagem = Mensagem & [color=#FF0000]Response.Write(Session("foto"))[/color]Mensagem = Mensagem & "<span class='legendafoto'><br>"Mensagem = Mensagem & Request.Form("legenda")Mensagem = Mensagem & "</span></div></td>"Mensagem = Mensagem & "<td width='75%' bgcolor='#F3F3F3' class='titulo_GR'>"Mensagem = Mensagem & "<div align='left'>"Mensagem = Mensagem & [color=#FF0000]Response.Write(Session("titulo"))[/color]Mensagem = Mensagem & "</div></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td bgcolor='#F5F5F5' class='corpodetexto10'>"Mensagem = Mensagem & "<div align='justify' class='noticia_just8'>"Mensagem = Mensagem & [color=#FF0000]Response.Write(Session("resumo1"))[/color]Mensagem = Mensagem & "</div></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "</table></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td colspan='3' bgcolor='#FFFFFF'><table width='100%'  border='1' cellpadding='3' cellspacing='0' bordercolor='#000000'>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & " <td width='23%' bgcolor='#000066'>"Mensagem = Mensagem & "<div align='center' class='titulo_GR style1'>"Mensagem = Mensagem & "<span class='corpodetexto10 style2 style1'>Último Minuto:"Mensagem = Mensagem & "</span></div></td>"Mensagem = Mensagem & "<td width='77%' class='titulo_coluna'>&Destaque 4 "Mensagem = Mensagem & "</td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "</table></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td colspan='3' bgcolor='#FFFFFF'>"Mensagem = Mensagem & "<table width='100%'  border='0' cellspacing='5' cellpadding='3'>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td width='33%' background='imagens/vinhetas/not02.gif'>"Mensagem = Mensagem & "<div align='center'><span class='style4'>%.: Destaque 3:."Mensagem = Mensagem & "</span></div></td>"Mensagem = Mensagem & "<td width='33%' background='imagens/vinhetas/not01.gif'>"Mensagem = Mensagem & "<div align='center'><span class='style4'>.: Destaque 2: ."Mensagem = Mensagem & "</span></div></td>"Mensagem = Mensagem & "<td width='33%' background='imagens/vinhetas/not03.gif'>"Mensagem = Mensagem & "<div align='center'><span class='style4'>Destaque 1.: "Mensagem = Mensagem & "</span></div></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr>"Mensagem = Mensagem & "<td class='noticia_just8'>"Mensagem = Mensagem & "Destaque 3"Mensagem = Mensagem & "</td>"Mensagem = Mensagem & "<td bgcolor='#EEEEEE' class='noticia_just8'>Destaque 2 "Mensagem = Mensagem & "</td>"Mensagem = Mensagem & "<td class='noticia_just8'>"Mensagem = Mensagem & "</td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr bgcolor='#CC0000'>"Mensagem = Mensagem & "<td colspan='3' class='legenda_br style3'>"Mensagem = Mensagem & "<img src='imagens/vinhetas/not01.gif' width='450' height='4'></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "</table></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "<tr bgcolor='#F7F7F7'>"Mensagem = Mensagem & "<td height='41' colspan='3'>"Mensagem = Mensagem & "<div align='center'><span class='corpotexto6'>www.bancarioslitoral.org.br - Todos os Direitos Reservados: Sindicato dos Bancários do Litoral Norte/RS<br>"Mensagem = Mensagem & "Projeto e Execução do Site: Crystalino (51)3662-5385</span></div></td>"Mensagem = Mensagem & "</tr>"Mensagem = Mensagem & "</table>"Mensagem = Mensagem & "</BOBY>"Mensagem = Mensagem & "</HTML>"Set JMail = Server.CreateObject("JMail.message")JMail.logging=TrueJMail.AddRecipient objRS("email")JMail.from = "contato@bancarioslitoral.org.br"JMail.subject = "Notícias - Bancários do Litoral Norte/RS"Jmail.HTMLBody = MensagemJMail.send ("mail.bancarioslitoral.org.br")Set JMail = nothingobjRS.MoveNextIf objRS.EOF Then Exit For Next%><html><head><title>Newsletter</title></head><body>	<p>  <%If Int(pagina_atual) < Int(total_paginas) ThenResponse.Write status_envio%>  <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%>  Envio da Newsletter concluido.  <%End If%></p><p>  </p></body></html><%set pagina_atual = NothingSet total_paginas = NothingSet ComandoSQL = NothingSet objRS = NothingSet objRS_atualiza = NothingSet Conexao = NothingSet status_envio = NothingEnd If %>

Por favor, utilize as tags code Imagem Postada para postar seus codigos. Obrigado

Lucasbr

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

cara.. nao entendi onde você esta com duvida..explica melhor ae..você nao ta conseguindo recuperar algum dado de formulario, ou informações do servidor:?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Crystal    0

Crystal
Postado

cara.. nao entendi onde você esta com duvida..explica melhor ae..você nao ta conseguindo recuperar algum dado de formulario, ou informações do servidor:?

Alô Acho que já consegui.Precisava recuperar uma session para incluir como variável em um corpo de email. Acho que consegui usando o seguinte:# Dim resumo1, pagina_atual, total_paginas, ComandoSQL, objRS, objRS_atualiza, Conexao, status_envio...# resumo1 = (Session("resumo1"))... Mensagem = Mensagem & resumo1Obrigadão!

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