Alguem poderia me passar o codigo corrigido com a explicação do que foi feito .
<!--#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 %>
