Pessoal sou eu denovo, tenho um script aqui de um cartao virtual mas ele esta com o componente CDONTS mas meu server não 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ão
Randomize
cod = int((9000000 * RND)+1)
'Capturo os dados do formulário
nome = 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 banco
if session("envia") = true then
Set 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("musica") = musica
salvar("img") = img
salvar("fonte") = fonte
salvar("tamanho") = tamanho
salvar.update
'Envia o e-mail utilizando o coponente C'donts
mensagem = "<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 mesmo 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 = 0
objmail.send
'Apago a seção utilizada
session("envia") = false
alerta = ("O cartão foi enviado com sucesso!")
else
alerta = ("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>
Pergunta
baladaclick
Pessoal sou eu denovo, tenho um script aqui de um cartao virtual mas ele esta com o componente CDONTS mas meu server não 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ão Randomize cod = int((9000000 * RND)+1) 'Capturo os dados do formulário nome = 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 banco if session("envia") = true then Set 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("musica") = musica salvar("img") = img salvar("fonte") = fonte salvar("tamanho") = tamanho salvar.update 'Envia o e-mail utilizando o coponente C'donts mensagem = "<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 mesmo 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 = 0 objmail.send 'Apago a seção utilizada session("envia") = false alerta = ("O cartão foi enviado com sucesso!") else alerta = ("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>Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.