ERRO Microsoft JET Database Engine error '80040e09'

[Paschoal Rizzo 0]

ESTOU TENTANDO INCLUIR UM REGISTRO E ESTA DANDO ESSE ERRO ALGUEM PODE ME AJUDAR?

 

 

Microsoft JET Database Engine error '80040e09'

 

Cannot update. Database or object is read-only.

 

/central/marca/p_altera_inclui.asp, line 43

 

 

 

SEGUE ABAIXO O CODIGO DA PAGINA

 

 

<!--#include file="../../config.inc"-->

<!--#include file="../aut.inc"-->

<!--#include file="../../db.inc"-->

<!--#include file="../../funcoes.inc"-->

<!--#INCLUDE FILE="../reusavel/upload.inc"-->

<%response.flush

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

diretorio = root_central_upload & "/Marca/"

 

Set RS = Server.CreateObject("ADODB.RecordSet")

set Fields = GetUpload()

 

Acao = Fields("acao").Value.String

CodigoMarca = Fields("CodigoMarca").Value.String

Marca = Fields("Marca").Value.String

 

if Marca = "" then

msg = "Digite o nome do Marca!"

end if

'Se a mensagem tiver algo

if msg <> "" then%>

<script>

alert("<%=msg%>");

history.go(-1);

</script>

<%response.end

end if

 

if acao = "alterar" then

SQL = "select * from Marcas where CodigoMarca = " & CodigoMarca

RS.open SQL, Conn, 1, 3

if RS.eof then

msg = "Parâmetro informado inválido ou incoerente !"

end if

else

CodigoMarca = GeraId("Marcas","CodigoMarca")

SQL = "select * from Marcas where CodigoMarca = 0"

RS.open SQL, Conn, 1, 3

end if

 

if acao = "incluir" then

msgalert = "Inclusão" ( TA FALANDO QUE TEM ERRO NESSA LINHAAA )

RS.Addnew

RS("CodigoMarca") = CodigoMarca

else

msgalert = "Alteração"

end if

RS("Marca") = Marca

 

RS.Update

 

RS.close

set RS = nothing

 

Conn.close

set Conn = nothing

 

msgalert = msgalert & " do Marca realizada com sucesso."%>

<script>

alert('<%=msgalert%>');

location = "Default.asp?SQL=<%=Server.URLEncode(RSQL)%><%if RSQL <> "" then response.write "&acao=pesquisar"%>";

</script>

<%else

response.redirect "default.asp"

end if%>

 

 

--------------------------------------------

 

 

 

SE ALGUEM PUDER ME AJUDAR É URGENTE MESMO.

[Loma 0]

Aparentemente ã pasta que esta o banco não tem permissão de escrita!mas tb de uma boa conferida nos campos e em seus tipos.Beijossss