Erro ao longar

[aprendizes 0]

Oi amigos, preciso saber se podem me ajudar com este sistema de login, que este dando erro.

 

O erro é este: Microsoft JET Database Engine error '80004005'

 

Operation must use an updateable query.

 

/admin/aprovar.asp, line 52

 

pagina aprovar.asp:

 

<%
login = request.form(Replace("frm_login", "'", "''"))
senha = request.form(Replace("frm_senha", "'", "''"))
if login = "" then
response.redirect "index.asp"
response.end()
end if
if senha = "" then
response.redirect "index.asp"
response.end()
end if
login = replace(login,"'","''")
login = replace(login,"#","''")
login = replace(login,"$","''")
login = replace(login,"%","''")
login = replace(login,"¨","''")
login = replace(login,"&","''")
login = replace(login,"'or'1'='1'","''")
login = replace(login,"--","''")
login = replace(login,"insert","''")
login = replace(login,"drop","''")
login = replace(login,"delet","''")
login = replace(login,"xp_","''")
login = replace(login,"select","''")
login = replace(login,"*","''")
senha = replace(senha,"'","''")
senha = replace(senha,"#","''")
senha = replace(senha,"$","''")
senha = replace(senha,"%","''")
senha = replace(senha,"¨","''")
senha = replace(senha,"&","''")
senha = replace(senha,"'or'1'='1'","''")
senha = replace(senha,"--","''")
senha = replace(senha,"insert","''")
senha = replace(senha,"drop","''")
senha = replace(senha,"delet","''")
senha = replace(senha,"xp_","''")
senha = replace(senha,"select","''")
senha = replace(senha,"*","''")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("d/bd_senha.mdb")&";"
conexao.open
SQL = "select * from usuarios where login_usuario = '"&login&"' and senha_usuario = '"&senha&"' "
Set RS = Conexao.Execute(SQL)
If RS.EOF Then
 response.Redirect("index.asp")
 Response.End()
End If
session("usr_log_ok") = RS("id_usuario")
ip_usuario = Request.ServerVariables("REMOTE_ADDR")
SQL2 = "Update usuarios set ip_usuario='"&ip_usuario&"' where id_usuario="&rs("id_usuario")
conexao.execute(sql2)
rs.close
set rs = nothing
conexao.close
If Session("pagina_restrita") = "" then
response.Redirect("admin.asp")
else
response.Redirect Session("pagina_restrita")
end if
%><title>Confirmar</title>
<p> </p>

Obrigado

[Vinicius Ianni 189]

A pasta onde se localiza o banco de dados precisa ter permisão de escrita e leitura.

[aprendizes 0]

Dei permissão, mas o erro continua... o que mais pode ser hein?

[xanburzum 169]

dá uma olhada neste artigo

pode te ajudar