Publicado em 7 de ago.

recuperar a senha, onde está o erro ???

OLÁ AMIGOSESTOU TENDO ALGUNS PROBLEMAS COM UM SISTEMA DE RECUPERAR A SENHAATRAVÉS DE UM FORM E REPASSA-LA AO EMAIL DA PESSOA QUE A ESQUECEU, POR FAVOR QUEM PUDER ME AJUDAR AGRADEÇO DESDE JÁ.O CÓDIGO É ESTE ABAIXO QUE ESTOU USANDO:<%Dim lojaDBset lojaDB = Server.CreateObject("ADODB.Connection")lojaDB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & server.MapPath("loja.mdb")lojaDB.open %><%Dim email, usuario, senhaemail=Request.form("email")usuario = ("SELECT usuario FROM clientes WHERE email=""'email'")senha = ("SELECT senha FROM clientes WHERE email=""'email'")%><%html = ""html = html & "<html>"html = html & "<head>"html = html & "<title>Contato</title>"html = html & "</head>"Response.Write html Dim sMsgErr '***** Executa as ações desta página ***** Sub ProcessaPagina() '***** Declaração das Variáveis ***** Dim Remail sEMail = Request.Form("email") '***** Obtém valores preenchidos no Formulário ***** Remail = Request.Form("email") '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & "E-MAIL: " & Remail & vb script:window.top.close()" & chr(34) & ">Fechar</a><br>"html = html & " </font> </p>"End Ifhtml = html & " </tr>"html = html & " </table>"html = html & "</div>"html = html & "</body>"html = html & "</html>"Response.Write html%>O EMAIL É ENVIADO MAS AO INVÉS DE RECEBER A SENHA E USUARIO ELE CHAGA ASSIM:E-MAIL: email_digitado@com.brUsuario SELECT usuario FROM clientes WHERE email="'email'Senha: SELECT senha FROM clientes WHERE email="'email'

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

jcdesigner· 7 de ago.

> OLÁ AMIGOSESTOU TENDO ALGUNS PROBLEMAS COM UM SISTEMA DE RECUPERAR A SENHAATRAVÉS DE UM FORM E REPASSA-LA AO EMAIL DA PESSOA QUE A ESQUECEU, POR FAVOR QUEM PUDER ME AJUDAR AGRADEÇO DESDE JÁ.O CÓDIGO É ESTE ABAIXO QUE ESTOU USANDO:<%Dim lojaDBset lojaDB = Server.CreateObject("ADODB.Connection")lojaDB.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};DBQ= " & server.MapPath("loja.mdb")lojaDB.open %><%Dim email, usuario, senhaemail=Request.form("email")usuario = ("SELECT usuario FROM clientes WHERE email=""'email'")senha = ("SELECT senha FROM clientes WHERE email=""'email'")%><%html = ""html = html & "<html>"html = html & "<head>"html = html & "<title>Contato</title>"html = html & "</head>"Response.Write html Dim sMsgErr '***** Executa as ações desta página ***** Sub ProcessaPagina() '***** Declaração das Variáveis ***** Dim Remail sEMail = Request.Form("email") '***** Obtém valores preenchidos no Formulário ***** Remail = Request.Form("email") '***** Monta corpo da mensagem a enviar por e-mail sBodyText = sBodyText & "E-MAIL: " & Remail & vb script:window.top.close()" & chr(34) & ">Fechar</a><br>"html = html & " </font> </p>"End Ifhtml = html & " </tr>"html = html & " </table>"html = html & "</div>"html = html & "</body>"html = html & "</html>"Response.Write html%>O EMAIL É ENVIADO MAS AO INVÉS DE RECEBER A SENHA E USUARIO ELE CHAGA ASSIM:E-MAIL: email_digitado@com.brUsuario SELECT usuario FROM clientes WHERE email="'email'Senha: SELECT senha FROM clientes WHERE email="'email'

 ALÉM DO SCRIPT CITADO, TEM UM FORM COM APENAS UM CAMPO QUE SOLICITA O EMAIL CADASTRADO NO BANCO DE DADOS DE NOME 'EMAIL'