Esqueci A Senha

[py2tz]

Isso é tudo que tenho, alguém poderia clarear minha visão, porque já estou embaranhando todos os neuronios.

<%

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "

DSNtemp=dsntemp & "DBQ=" & server.mappath("db/arvore.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sqlstmt, DSNtemp, 3, 3

%>

<%

Set Conexao = CreateObject("ADODB.CONNECTION")

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub

%>

<%

usuario = request.form("email")

SQL = "Select email, senha from Admin where email='" & usuario & "'"

set rs = conexao.execute(sql)

if not rs.eof then

Set Mail = CreateObject("CDONTS.NewMail")

Mail.From = "email@seudominio.com.br"

Mail.To = rs("email")

Mail.Subject = "Recuperação de Senha"

Mail.Body = "Sua Senha é " & rs("senha")

Mail.Send

else

response.write "Usuario não encontrado!!"

response.end

end if

%>

Fausto

[.Andreia.]

não entendi sua duvida

[py2tz]

Olá, fuçando no forum achei um esqueleto de "esqueci a senha" e tentei monta-lo, mas não sei quem vem primeiro e segundo, etc...

Tem duas paginas uma com o form e outra que esta ai acima.

Não sei a lógica, mas sei por enquanto que:

1 - Conexao com BD

2 - Abre a conexão

3 - Faz a pesquisa de dados

4 - Compara os dados

3 - Executa a funçao - envia a senha pro usuario

Porem em resumo - To perdido.

Fausto

[Marcos-rj]

No código passado, você cria uma página com o campo Email, onde a pessoa digitará o email cadastrado p/ receber a senha no email.

[py2tz]

Olá Marcos, bom dia a todos,

já existe esta pagina, chama-se esqueci1.asp, porem não funciona, dá pau, não abre nada.

<form action="esqueci2.asp" method="post">

<input type="text" name="email" size="29" ><input type="submit" value="Solicitar Senha" style="border:1px solid #FFFFFF">

</form>

[Marcos-rj]

Mas qual o erro que dá?

[py2tz]

Tenta ai, pra mim mostra

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

[Marcos-rj]

Para você ver a mensagem de erro desabilita a opção mostrar mensagens de erros amigaveis do internet explorer.

tenta assim:

<%
DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; "
DSNtemp=dsntemp & "DBQ=" & server.mappath("db/arvore.mdb")
%>

<%
Set Conexao = CreateObject("ADODB.CONNECTION")
ConexaoAberta = FALSE
Sub AbreConexao()
if not ConexaoAberta then
Conexao.Open DSNtemp
ConexaoAberta = True
end if
end sub
Sub FechaConexao()
if ConexaoAberta then
Conexao.close
ConexaoAberta = False
end if
end sub 
%>

<%abreconexao
usuario = request.form("email")
SQL = "Select email, senha from Admin where email='" & usuario & "'"
set rs = conexao.execute(sql)
if not rs.eof then
Set Mail = CreateObject("CDONTS.NewMail")
Mail.From = "email@seudominio.com.br" 
Mail.To = rs("email")
Mail.Subject = "Recuperação de Senha"
Mail.Body = "Sua Senha é " & rs("senha")
Mail.Send
else
response.write "Usuario não encontrado!!"
response.end
end if
%>

[py2tz]

Voce a partir de hoje foi promovido a capitão,

Parabens Marcos, funcionou......

Pode ficar assim ou mudo algo?