ERRO Microsoft JET Database Engine error '80040e09'

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.