Ir para conteúdo

POWERED BY:

Arquivado

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

elicaj

[Resolvido] Recuperar senha

Por , em ASP Clássico

Recommended Posts

elicaj    0

elicaj
Postado

Olá

 

Tenho uma página e quando um usuário esquece a senha, ele clica em "esqueci minha senha" ele é direcionado numa página aonde ele digita o seu email e "supostamente" deveria receber a senha em seu email cadastrado. Ocorre que até aparece a mensagem para a pessoa que foi enviado a senha em seu email, mas não envia. Segue abaixo o código:

 

 

<%Set db = Server.CreateObject("ADODB.Connection") 
db.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};Server=mysql.forumgeral.com.br;Port=3306;Database=forumgeral04;User=foru
mgeral04;Password=p123x457;Option=3;"
db.Open 
session.lcid=1046
email=request("email")
set email=db.execute("select nome, email, senha from usuarios where email = '"&email&"'")
while not email.eof
on error resume next
if email("email")<>"" then
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
		Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpautdenticate") = 1 
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contato@forumgeral.com.br"
		objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "forumgeral"
		objCDOSYSCon.Fields.update
		Set objCDOSYSMail.Configuration = objCDOSYSCon
		objCDOSYSMail.From = "contato@forumgeral.com.br"
		objCDOSYSMail.to = email("email")
		objCDOSYSMail.Subject = "Recuperação de senha Forum Geral"
		objCDOSYSMail.htmlbody = "<html><style type=text/css>body,td,th {font-family: Verdana, Arial, Helvetica, sans-serif;font-size: 10px;}.style1 {color: #9F9F9F}.style2 {font-family: Verdana, Arial, Helvetica, sans-serif;color: #000000;}.style3 {color: #FF0000}</style><table width=590 border=0 cellpadding=0 cellspacing=0><tr><td><table border=0 width=100% cellspacing=0 cellpadding=0><tr><td height=35><table width=590 border=0 cellspacing=0 cellpadding=0><tr><td colspan=3 align=left><table width=590 border=0 cellspacing=0 cellpadding=0><tr><td width=22% ><img src=http://www.forumgeral.com.br/imagens/logoforumgeral.jpg alt= width=200 height=68 /></td><td width=78% align=center valign=middle><span class=style1>Teste<br />teste<br />teste<br />teste</span></td></tr></table></td></tr><tr><td> </td><td> </td><td> </td></tr><tr><td width=155><img src=http://www.forumgeral.com.br/imagens/menu_confirm.gif width=155 height=35 /></td><td width=424 background=http://www.forumgeral.com.br/imagens/02.gif> </td><td width=11><img src=http://www.forumgeral.com.br/imagens/menu_cadastro03.gif width=11 height=35 /></td></tr></table></td></tr></table></td></tr><tr><td align=center bgcolor=#CCCCCC><table width=588 height=230 border=0 cellpadding=0 cellspacing=0 class=box_body  style=border:1px solid #bfbfbf; border-width:0px 1px 0px 1px;margin-bottom:8px;><tr><td align=left valign=top bgcolor=#FFFFFF  style=padding:9px 6px 2px 6px;><p class=style2><strong>Você solicitou a recuperação de senha</strong>.<br /><br />Seu login é:<span class=style3> <strong>"&email("email")&"</strong><br /></span>Sua senha é:<span class=style3> <strong>"&email("senha")&"</strong></span><br /><br />Você pode alterar sua senha e seus dados de cadastro a qualquer momento. Basta efetuar o login no site e clicar no botão "alterar dados" que fica no "Painel do usuário" na lateral direita superior do site.<br /><br />Fique a vontade para enviar criticas e sugestões para melhorarmos cada vez mais os serviços.<br />Qualquer dúvida entre em contato através do e-mail <a href=mail:contato@forumgeral.com.br>contato@forumgeral.com.br</a> ou clique <a href=http://www.forumgeral.com.br/contato.php>aqui</a>.</p></td></tr></table></td></tr><tr><td height=3><table width=100% border=0 cellpadding=0 cellspacing=0 background=http://www.forumgeral.com.br/imagens/line6.gif style=background-repeat:no-repeat><tr><td height=10> </td></tr></table></td></tr></table></html>"
objCDOSYSMail.Send
	Set objCDOSYSMail = Nothing
	Set objCDOSYSCon = Nothing
%>
<script language="Javascript"> 
alert("Verifique seu e-mail! Você receberá uma mensagem com a recuperação de sua senha!");java script:location.href="index.php"; 
</script>
<%else%>
<script language="Javascript"> 
alert("Campo e-mail incompleto. Favor verificar.");java script:location.href="index.php"; 
</script>
<%end if
email.movenext
wend
%>

 

 

Se alguém puder me dizer aonde está o póssível erro.

 

Agradeço

 

Eli

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Retire o ON ERROR RESUME NEXT e verifique o real erro, depois poste novamente.

Compartilhar este post

Link para o post
Compartilhar em outros sites

elicaj    0

elicaj
Postado

Ted K

 

Vivendo e aprendendo!

 

 

erro '8004020f'

/recuperasenha.asp, line 26

 

 

Essa linha é:

 

26 objCDOSYSMail.Send

27 Set objCDOSYSMail = Nothing

28 Set objCDOSYSCon = Nothing

 

Outra coisa, esse site está hospedado na kinghost.

 

 

Eli

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Posta a mensagem de erro toda. Se não souber o que postar, copie a página inteira e coloque aqui.

Compartilhar este post

Link para o post
Compartilhar em outros sites

elicaj    0

elicaj
Postado

Hargon

 

 

Fiz uma alteração no email e agora aparece o seguinte erro:

 

 

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

 

[MySQL][ODBC 3.51 Driver]Unknown MySQL server host 'mysql.forumgeral.com.br' (11004)

 

/recuperasenha.asp, line 3

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

O problema é que, aparentemente, o nome do banco MySQL está errado ou não existe BD com esse nome. Verifique com o suporte de sua hospedagem.

Compartilhar este post

Link para o post
Compartilhar em outros sites

elicaj    0

elicaj
Postado

Salgado

 

 

 

 

Agradeço pela sua atenção e dos outros também.

 

Enviei email ao suporte e vamos ver a resposta.

 

 

Bom domingo a todos.

 

 

Eli

Compartilhar este post

Link para o post
Compartilhar em outros sites

elicaj    0

elicaj
Postado

Amigos do Imasters

 

 

Resolvi o meu problema e posto aqui a solução, de repente serve de ajuda a outros:

 

 

Realmente o provedor teve que migrar para um servidor com mysql versão 5.1. no servidor antigo funcionava e na KingHost não deu certo, com a migração o problema foi resolvido.

 

Outro detalhe, funcionou, mas não enviava o email com a senha, Antes o código era assim:

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"

 

ou

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.forumgeral.com.br" (forumgeral = fictício)

 

Tive que alterar para:

 

objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp-web.uni5.net"

 

 

Com isso funcionou perfeitamente.

 

Quero agradecer as pessoas que me ajudaram aqui no Imasters

 

Parabéns a todos

 

 

Eli

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