Ir para conteúdo

POWERED BY:

Arquivado

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

jcdesigner

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

Por , em ASP Clássico

Recommended Posts

jcdesigner    0

jcdesigner
Postado

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'

Compartilhar este post

Link para o post
Compartilhar em outros sites

jcdesigner    0

jcdesigner
Postado

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'

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