alterar senha

[mestre fyoda 1]

Esta acontecendo o seguinte , quando o usuario ele altera a sua senha acaba alterando todas as senhas no banco de dados .

Alguem poderia me passar o codigo corrigido com a explicação do que foi feito .

 

 

ASP [/tr][tr]

<!--#include file="restrito.asp"-->

<!--#include file="conectar.asp"-->

<% AbreConexao

If Request.Form("enviado") = "sim" Then

senha = Replace(Request.Form("senha"), "'", "/")

nova_senha = Replace(Request.Form("nova_senha"), "'", "/")

confirma_nova_senha = Replace(Request.Form("confirma_nova_senha"), "'", "/")

 

 

Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'")

If RS.EOF Then

Response.Write "Senha Atual incorreta!<BR><a href=alterar.asp>Voltar</a>"

Else

If nova_senha = confirma_nova_senha Then

Conexao.Execute("UPDATE usuarios SET senha = '"&nova_senha&"'")

Response.Write "Dados alterados"

Else

Response.Write "Erro na Confirmação da Nova Senha"

 

End If

End IF

Else

Set dados = Conexao.Execute("SELECT * FROM usuarios WHERE login = '"&Session("login")&"'")%>

<form method="POST" action="alterar_senha.asp">

<input type="hidden" name="enviado" value="sim">

Senha Atual: <input type="text" name="senha" size="20"><BR>

Nova Senha: <input type="password" name="nova_senha" size="20"><BR>

Redigite a Nova Senha: <input type="password" name="confirma_nova_senha" size="20"><BR>

 

<input type="submit" value="Alterar">

</form>

<% End If

FechaConexao %>

[/tr]

[Penna 0]

Vou apenas te apontar o erro.Na linha onde você faz o UPDATE você esta alterando, o que? Tudo, você não especificou o que quer alterar, por exemplo:Você tem uma tabela com um campo ID, você quer alterar todos os campos (Nome) maiores de 3:UPDATE Tabela SET Nome = 'Não Disponivel' WHERE ID > 3Mesmo para fazer uma alteração que não tem tamanho é necessário especificar.Se você quer alterar o nome de um usuário especifico você terá que especificar o email ou id dele, ou qualquer coisa que o identifique, motivo principal pelo qual o Access na hora de salvar a tabela ele pede o campo Código, ou autonumeraçõa, que identifica o registro dos demais.UPDATE Tabela SET Nome = 'Alex' WHERE ID = 3O ID 3 vai mudar o nome para Alex. Isso se aplica também para verificações. Com base nesse observe essa linha de seu código:Set RS = Conexao.Execute("SELECT * FROM usuarios WHERE senha = '"&senha&"'")Vamos supor que a minha senha seja 123 e a sua também. Vai dar conflitos. Pegue algo especifico, algo que diferencie dos outros registros.