Ir para conteúdo

POWERED BY:

Arquivado

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

baladaclick

Cartao Virtual com CD ou CDOSYS

Por , em ASP Clássico

Recommended Posts

baladaclick    0

baladaclick
Postado

Pessoal sou eu denovo, tenho um script aqui de um cartao virtual mas ele esta com o componente CDONTS mas meu server nao aceita, ele só funciona com CDO ou CDOSYS alguém tem ideia como posso reformar esse script ? VAlewwwwwwwww

 

<!--#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")'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,3salvar.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("musica") = musica salvar("img") = img salvar("fonte") = fonte salvar("tamanho") = tamanhosalvar.update'Envia o e-mail utilizando o coponente C'dontsmensagem = "<html><head><title>Cartão virtual</title><style type='text/css'>a:link { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:visited { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}a:hover { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: underline;}a:active { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 11px; color: #000000; text-decoration: none;}</style></head><body bgcolor='#999999'><table width='100%' border='0' cellspacing='0' cellpadding='0' style='Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;'>  <tr>     <td height='141' valign='middle' bgcolor='#CCCCCC'>       <div align='center'>         <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0' bgcolor='efefef' style='Border-top:#000000 1px solid;Border-bottom:#000000 1px solid;'>          <tr>             <td height='112' valign='middle'>               <table width='98%' border='0' align='center' cellpadding='0' cellspacing='0'>                <tr>                  <td height='92'> <p><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><strong>"¶&"<br>                      <br>                      </strong><font size='1'>    Você                       acaba de receber um cartão virtual de ""&nome&"",                       ele ficará salvo em nosso banco de dados por um período                       de "&dr&" dias, passado este período o memso será                       removido de nosso sistema!</font></font></p>                    <p align='center'><font size='2' face='Verdana, Arial, Helvetica, sans-serif'><font size='1'>                       Para ler seu cartão <a href='"&endereco&"/ver.asp?id="&salvar("id")&"&cod="&cod&"' target='_blank'>clique aqui</a></font></font></p></td>                </tr>              </table>                          </td>          </tr>        </table>      </div></td>  </tr></table><br><br><div align='center'><font color='#CCCCCC' size='1' face='Verdana, Arial, Helvetica, sans-serif'>--------------------------------------------------------- <br><br>Developed by Diógenes Götz<br>E-mail-diogotz@bol.com.br<br>Http://www.salamito.fdp.com.br/forum</font> </div></body></html>"'Envia uma mensagem de boas-vindas ao usuário cadastrado (Por e-mail)Set objmail = Server.CreateObject("CDONTS.NewMail")  objmail.from = nome&"<"& de_email &">" objmail.to = para_email objmail.subject = "Cartão virtual!" objmail.body = mensagem objMail.Bodyformat = 0 objMail.MailFormat = 0objmail.send'Apago a seção utilizadasession("envia") = falsealerta = ("O cartão foi enviado com sucesso!")elsealerta = ("Não é perimito fazer SPAM!")end if%><meta http-equiv="refresh" content="5;URL=index.asp"><title><%=titulo%></title><body bgcolor="#999999"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr>   <td><table width="40%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC" style="Border-top:#666666 1px solid;Border-left:#666666 1px solid;Border-right:#666666 1px solid;Border-bottom:#666666 1px solid;">       <tr>          <td height="22" bgcolor="#666666"><div align="center"><font color="#FFFFFF" size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Alerta</strong></font></div></td>       </tr>       <tr>         <td height="90"><div align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=alerta%><br>             Redirecionando ...</font></div></td>       </tr>     </table></td> </tr></table></body>

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