Ir para conteúdo

POWERED BY:

Arquivado

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

aprendizes

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Por , em ASP Clássico

Recommended Posts

aprendizes    0

aprendizes
Postado

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>

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Olá aprendizes,

 

Você deve ter perdido as permissões de seu site.

 

Este erro, é de propriedade de segurança. Você deve autorizar as propriedades de leitura e escrita.

 

Você já deu as permissões necessárias novamente?

 

Basta entrar nas permissões da pasta C:\Inetpub e dar permissões necessárias.

 

Se for em seu SERVER, ou você faz isso em seu Painel de Controle ou entre em contato com seu Data-center.

 

Espero que ajude.

 

Att,

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Tradutor de inglês...

 

Ou ligue para o Suporte de seu Data Center e peça que habilite permissões necessárias.

 

Att,

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Olha

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Essa foi boa heimm xanburzum, legal a matéria.

 

Com vídeo fica bem melhor.

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