smez Postado Janeiro 24, 2007 Denunciar Share Postado Janeiro 24, 2007 como mudar esse SCRIPT CDONTS para ASPEmail <% 'recupera dados do form usuario = request.form("usuario") 'busca no banco o usuario resgatado Set rs = createobject("adodb.recordset") set rs.activeconnection = abredb SQL = "SELECT email, nome, senha, usuario FROM usuario WHERE usuario='" & usuario & "'" rs.open SQL 'verifica se encontrou algo if not rs.eof then 'Monta Mensagem 'Monta Mensagem HTML ="<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<meta http-equiv=""Content-Type""" HTML = HTML & "content=""text/html; charset=iso-8859-1"">" HTML = HTML & "<title>E MAIS FESTAS » Recuparação de Senha </title>" HTML = HTML & "</head>" HTML = HTML & "<body topmargin='0' leftmargin='0' bgcolor=""#FF6600"">" HTML = HTML & "<table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0""><tr><td width=""100%""><div align=""center""><center>" HTML = HTML & " <table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0"">" HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/1.gif""></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif"" bgcolor=""#FF6600""><b><font size=""1"" face=""Verdana""> MAIS VIP</font></b></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center>" HTML = HTML & " <table border=""0"" width=""98%"" cellpadding=""2"">" HTML = HTML & " <tr>" HTML = HTML & " <td width=""100%""><font size=""1"" face=""Verdana"">olá <b>" & rs("nome") & "<br>" HTML = HTML & " <br>" HTML = HTML & " </b>Você solicitou o envio de senha<br>" HTML = HTML & " <br>" HTML = HTML & " usuário: <b>" & rs("usuario") & "</b><br>" HTML = HTML & " senha: <b>" & rs("senha") & "</b><br>" HTML = HTML & " <br>" HTML = HTML & " Obrigado! </font></td>" HTML = HTML & " </tr></table></center></div></td></tr>" HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center><table border=""0"" width=""98%"" cellspacing=""1""><tr>" HTML = HTML & " <td width=""91%"" class=""texto_pagina"" valign=""top""><b><font size=""1"" face=""Verdana"">E MAIS FESTAS</font>" HTML = HTML & " </b><font size=""1"" face=""Verdana""><br>" HTML = HTML & " © Todos os direitos reservados<br>" HTML = HTML & " <a href=""http://www.emaisfestas.com.br"">www.emaisfestas.com.br</a>" HTML = HTML & " | qnoite@qnoite.com.br</font></td>" HTML = HTML & " <td width=""9%"" valign=""top""><a href=""http://www.agenciagiro.com.br"" target=""_blank""><font size=""1"" face=""Verdana""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/giro.gif""></font></a></td>" HTML = HTML & " </tr></table></center></div></td></tr>" HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/3.gif""></td></tr></table></center></div></td></tr></table>" 'cria objeto de email (vou usar CDONTS) Set Mail = CreateObject("CDONTS.NewMail") Mail.From = "sergio@agenciagiro.com.br" Mail.To = rs("email") Mail.Subject = "E MAIS FESTAS : Recuperação de Senha" Mail.BodyFormat = 0 Mail.MailFormat = 0 Mail.Body = HTML Mail.Send response.redirect "main.asp?senha=enviada" else response.redirect "main.asp?usuario=invalido" response.end end if %> Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 ADL Postado Janeiro 24, 2007 Denunciar Share Postado Janeiro 24, 2007 :D oI Amigo não sei se vai te ajudar tem umlink de funções no forum se eu não me engano deve ter codigo de aspmail eu pegeui mas era de CDONTS tem varias explicações!!!!! vou olhar e pegar o link oktenta esse: scriptbrasil.com.br/forum/index.php?showtopic=17305 ok dsa uma olhada!!! Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 marciombl Postado Janeiro 29, 2007 Denunciar Share Postado Janeiro 29, 2007 opa..como vai...se não funcionar vai mechendo ai que ele fumega beleza...forte abraõ.Set Mail = Server.CreateObject("SMTPsvg.Mailer")Mail.FromName = "SEU_NOME_OU_SITE"Mail.FromAddress = "sergio@agenciagiro.com.br"Mail.RemoteHost = Host ' ip DO SEU HOST OU SERVER SEUMail.AddRecipient "", rs("email")Mail.Subject = "E MAIS FESTAS : Recuperação de Senha"Mail.ContentType = "text/html"Mail.BodyText = HTMLMail.SendMailSet Mail = nothing forte abraço. :D Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
smez
como mudar esse SCRIPT CDONTS para ASPEmail
<%
'recupera dados do form
usuario = request.form("usuario")
'busca no banco o usuario resgatado
Set rs = createobject("adodb.recordset")
set rs.activeconnection = abredb
SQL = "SELECT email, nome, senha, usuario FROM usuario WHERE usuario='" & usuario & "'"
rs.open SQL
'verifica se encontrou algo
if not rs.eof then
'Monta Mensagem
'Monta Mensagem
HTML ="<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">"
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & "content=""text/html; charset=iso-8859-1"">"
HTML = HTML & "<title>E MAIS FESTAS » Recuparação de Senha </title>"
HTML = HTML & "</head>"
HTML = HTML & "<body topmargin='0' leftmargin='0' bgcolor=""#FF6600"">"
HTML = HTML & "<table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0""><tr><td width=""100%""><div align=""center""><center>"
HTML = HTML & " <table border=""0"" width=""100"" cellspacing=""0"" cellpadding=""0"">"
HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/1.gif""></td></tr>"
HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif"" bgcolor=""#FF6600""><b><font size=""1"" face=""Verdana""> MAIS VIP</font></b></td></tr>"
HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center>"
HTML = HTML & " <table border=""0"" width=""98%"" cellpadding=""2"">"
HTML = HTML & " <tr>"
HTML = HTML & " <td width=""100%""><font size=""1"" face=""Verdana"">olá <b>" & rs("nome") & "<br>"
HTML = HTML & " <br>"
HTML = HTML & " </b>Você solicitou o envio de senha<br>"
HTML = HTML & " <br>"
HTML = HTML & " usuário: <b>" & rs("usuario") & "</b><br>"
HTML = HTML & " senha: <b>" & rs("senha") & "</b><br>"
HTML = HTML & " <br>"
HTML = HTML & " Obrigado! </font></td>"
HTML = HTML & " </tr></table></center></div></td></tr>"
HTML = HTML & " <tr><td width=""100%"" background=""http://www.trupeaxe.com.br/2007/img/2.gif""><div align=""center""><center><table border=""0"" width=""98%"" cellspacing=""1""><tr>"
HTML = HTML & " <td width=""91%"" class=""texto_pagina"" valign=""top""><b><font size=""1"" face=""Verdana"">E MAIS FESTAS</font>"
HTML = HTML & " </b><font size=""1"" face=""Verdana""><br>"
HTML = HTML & " © Todos os direitos reservados<br>"
HTML = HTML & " <a href=""http://www.emaisfestas.com.br"">www.emaisfestas.com.br</a>"
HTML = HTML & " | qnoite@qnoite.com.br</font></td>"
HTML = HTML & " <td width=""9%"" valign=""top""><a href=""http://www.agenciagiro.com.br"" target=""_blank""><font size=""1"" face=""Verdana""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/giro.gif""></font></a></td>"
HTML = HTML & " </tr></table></center></div></td></tr>"
HTML = HTML & " <tr><td width=""100%""><img border=""0"" src=""http://www.trupeaxe.com.br/2007/img/3.gif""></td></tr></table></center></div></td></tr></table>"
'cria objeto de email (vou usar CDONTS)
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = "sergio@agenciagiro.com.br"
Mail.To = rs("email")
Mail.Subject = "E MAIS FESTAS : Recuperação de Senha"
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Body = HTML
Mail.Send
response.redirect "main.asp?senha=enviada"
else
response.redirect "main.asp?usuario=invalido"
response.end
end if
%>
Link para o comentário
Compartilhar em outros sites
2 respostass 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.