Ir para conteúdo

POWERED BY:

Arquivado

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

zanelati2002

não esta mandando o id do cartão

Por , em ASP Clássico

Recommended Posts

zanelati2002    0

zanelati2002
Postado

olá amigos tenho um codigo de cartão virtual mais ele não esta mandao o id do cartão só manda o cod, o que esta acontecendo. vejam o codigo, ops cada vez que um cartão é enviado gera um novo id e um novo cod tipo 145 - 487855 outro 666 - 654654 e assim por diante mais o codigo vai para o email e o id não

 

<!--#include file = "conexao.asp"--><!--#include file="config.asp"--><%'Gero um código para o cartãoRandomizecod = int((9000000 * RND)+1)'Capturo os dados do formulárionome = request("nome")de_email = request("de_email")para = request("para")para_email = request("para_email")assunto = request("assunto")fonte = request("fonte")musica = request("musica")tamanho = request("tamanho")mensagem = request("mensagem")img = request("img")data = request("date") hora = time ()'Set salvar = Server.CreateObject("ADODB.Recordset")'sql = "Select * from enviados INNER JOIN fontes on (fontes.id = enviados.fonte) where enviados.id=1"'salvar.open sql, conex, 3,3'Salva os dados no bancoif session("envia") = true thenSet salvar = Server.CreateObject("ADODB.Recordset")sql = "Select * from enviados"salvar.open sql, conex, 3,3	salvar.addnew		salvar("cod") = cod		salvar("nome") = nome		salvar("de_email") = de_email		salvar("para") = para		salvar("para_email") = para_email		salvar("assunto") = assunto		salvar("mensagem") = mensagem		salvar("data") = date		salvar("hora") = time()		salvar("musica") = musica		salvar("img") = img		salvar("fonte") = fonte		salvar("tamanho") = tamanho	salvar.update'Envia o e-mail utilizando o coponente C'donts	Set objmail = Server.CreateObject("CDONTS.NewMail") corpo = "<html>" & vbcrlfcorpo = corpo & "<head>" & vbcrlfcorpo = corpo & "<div align='center'>" & vbcrlfcorpo = corpo & "<table border='0' cellpadding='0' cellspacing='0' width='600'>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='69' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='31' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='134' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='130' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='121' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='26' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='27' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='62' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='1' height='1' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "   <td colspan='2' background='http://www.sitedozanelati.com/cartao/imagens/index_r1_c1.png'> </td>" & vbcrlfcorpo = corpo & "   <td background='http://www.sitedozanelati.com/cartao/imagens/index_r1_c3.png'> </td>" & vbcrlfcorpo = corpo & "   <td background='http://www.sitedozanelati.com/cartao/imagens/index_r1_c4.png'> </td>" & vbcrlfcorpo = corpo & "   <td background='http://www.sitedozanelati.com/cartao/imagens/index_r1_c5.png'> </td>" & vbcrlfcorpo = corpo & "   <td colspan='3' background='http://www.sitedozanelati.com/cartao/imagens/index_r1_c6.png'> </td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='1' height='243' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "   <td colspan='8' background='http://www.sitedozanelati.com/cartao/imagens/index_r2_c1.png'> </td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='1' height='43' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "   <td rowspan='2' background='http://www.sitedozanelati.com/cartao/imagens/index_r3_c1.png'> </td>" & vbcrlfcorpo = corpo & "   <td rowspan='2'><font size='1' face='Verdana'><img name='http://www.sitedozanelati.com/cartao/images/index_r3_c2' src='http://www.sitedozanelati.com/cartao/imagens/index_r3_c2.png' width='31' height='114' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td colspan='4' background='http://www.sitedozanelati.com/cartao/imagens/index_r3_c3.png'>" & vbcrlfcorpo = corpo & "	<font face='Verdana' color='#000000' size='1'>Olá <b>"¶&"</b>,<br>" & vbcrlfcorpo = corpo & "	Acabou de chegar um cartão virtual para você quem mandou foi<br>" & vbcrlfcorpo = corpo & "	<b>"&nome&"</b>, Foi enviado dia <b>"&date&"</b> ás <b>"&time&"</b>" & vbcrlfcorpo = corpo & "	<a style='COLOR: #a50102'><font face='Verdana' color='#000000' size='1'>Você " & vbcrlfcorpo = corpo & "	pode vê-lo por 30 dias. " & vbcrlfcorpo = corpo & "	</font></a>Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a> " & vbcrlfcorpo = corpo & "	Este Cartão é da Categoria <b> Bebês</b> e o código dele é ID: <b> "&id&"</b>" & vbcrlfcorpo = corpo & "	Código: <b> "&cod&"</b> Caso queira visualizar ele outro dia é só entrar" & vbcrlfcorpo = corpo & "	na categoria <b>Bebês</b> e digitar o código que esta acima." & vbcrlfcorpo = corpo & "<br>" & vbcrlfcorpo = corpo & "	Foi um prazer entregar este cartão. Acesse <a href='http://www.sitedozanelati.com'>www.sitedozanelati.com</a> </font></td>" & vbcrlfcorpo = corpo & "   <td rowspan='2'><a href='mailto:cartao@sitedozanelati.com'><font size='1' face='Verdana'><img name='http://www.sitedozanelati.com/cartao/images/index_r3_c7' src='http://www.sitedozanelati.com/cartao/imagens/index_r3_c7.png' width='27' height='114' border='0' alt=''></font></a></td>" & vbcrlfcorpo = corpo & "   <td rowspan='2' background='http://www.sitedozanelati.com/cartao/imagens/index_r3_c8.png'> </td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='1' height='100' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "  <tr>" & vbcrlfcorpo = corpo & "   <td colspan='4'><font size='1' face='Verdana'><img name='http://www.sitedozanelati.com/cartao/images/index_r4_c3' src='http://www.sitedozanelati.com/cartao/imagens/index_r4_c3.png' width='411' height='14' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "   <td><font size='1' face='Verdana'><img src='http://www.sitedozanelati.com/cartao/imagens/spacer.gif' width='1' height='14' border='0' alt=''></font></td>" & vbcrlfcorpo = corpo & "  </tr>" & vbcrlfcorpo = corpo & "</table>" & vbcrlfcorpo = corpo & "</div>" & vbcrlfcorpo = corpo & "<p align='center'><font size='1' face='Verdana'>Nossos Colaboradores</font></p>" & vbcrlfcorpo = corpo & "<p align='center'><font size='1' face='Verdana'><script src='http://www.sitedozanelati.com/troca_banner/js.asp'></script>" & vbcrlfcorpo = corpo & "</font>" & vbcrlfcorpo = corpo & "</p>" & vbcrlf'Envia uma mensagem de boas-vindas ao usuário cadastrado (Por e-mail)		objmail.from = nome&"<"& de_email &">"		objmail.to = para_email		objmail.BCC = "sitedozanelati@ig.com.br"		objmail.subject = "Cartão virtual!"		objmail.body = corpo		objMail.Bodyformat = 0		objMail.MailFormat = 0	objmail.send'Apago a seção utilizadasession("envia") = falsealerta = ("O cartão foi enviado com sucesso!")elsealerta = ("Não é perimito fazer SPAM!")end if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

voce está concatenando ambos no corpo da mensagem???

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