Ir para conteúdo
Fórum Script Brasil
  • 0

Aspemail

smez

Perguntado por smez,

 Share

Pergunta

smez

smez

Postado
Postado

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"">&nbsp;&nbsp; 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!&nbsp;</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

  • 0
ADL

ADL

Postado
Postado

: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 ok

tenta esse: scriptbrasil.com.br/forum/index.php?showtopic=17305 ok dsa uma olhada!!!

Link para o comentário
Compartilhar em outros sites
  • 0
marciombl

marciombl

Postado
Postado

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 SEU

Mail.AddRecipient "", rs("email")

Mail.Subject = "E MAIS FESTAS : Recuperação de Senha"

Mail.ContentType = "text/html"

Mail.BodyText = HTML

Mail.SendMail

Set Mail = nothing

forte abraço. :D

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...