Amigos boa tarde.
Preciso da ajuda de vcs, seguinte, depois de uma manutenção feita pelo meu servidor meu site apresentou uns problemas tenho a pagina que escrevo uma notícia e o arquivo enviar.asp quando eu tento enviar uma notícia aparece o erro:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.
/admin/enviar-noticia-sem-foto.asp, line 47
sendo que antes da manutenção funcionava perfeitamente. segue o código para analise:
<%If session("usr_log_ok")="" Then
Response.Write "Você está Logado no sistema!"
Response.redirect "index.asp"
Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
Response.End()
End If
set conexao = Server.CreateObject("ADODB.Connection")
conexao.provider= "Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados/dados.mdb")&";"
conexao.open
SQL = "select * from usuarios where id_usuario ="&session("usr_log_ok")
Set RS = Conexao.Execute(SQL)
If rs.eof then
Response.write "Ocorreu um erro ao se logar no sistema!"
end if %>
<%
set db = server.CreateObject("ADODB.connection")
dim caminho
caminho = server.MapPath("dados/dados.mdb")
db.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & caminho
Topico = request.form("Topico")
Noticia = request.Form("Noticia")
Classe = request.Form("Classe")
Classe1 = request.Form("Classe1")
Fundo = request.Form("Fundo")
Autor = request.Form("Autor")
Imagem = request.Form("Imagem")
Nick = request.Form("Nick")
id = request.form("id")
Topico = replace(Topico, "'", "''")
Noticia = replace(Noticia, "'", "''")
Classe = replace(Classe, "'", "''")
Classe1 = replace(Classe1, "'", "''")
Fundo = replace(Fundo, "'", "''")
Autor = replace(Autor, "'", "''")
Imagem = replace(Imagem, "'", "''")
Nick = replace(Nick, "'", "''")
sql = "update Noticias set Topico='"&Topico&"', Noticia='"&Noticia&"', Classe='"&Classe&"', Classe1='"&Classe1&"', Fundo='"&Fundo&"', Autor='"&Autor&"', Imagem='"&Imagem&"', Nick='"&Nick&"'where id="&id&""
set rs = db.execute(sql)
response.redirect "alterar-conteudo.asp" & Request.QueryString("pagina")
rs.close
db.close
set rs = nothing
set db = nothing
%>
<title>portal</title>
<body>
<p> </p>