Erro 80040e09

[smez]

Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/add_mural.asp, line 16

onde esta dando esse erro

<%

Dim de, msg, para

de = Request.Form("de")

msg = Request.Form("msg")

para = Request.Form("para")

%>

<%

Dim adoConn

Set adoConn = Server.CreateObject("ADODB.Connection")

adoConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data

Source='c:\www\academiamovimento\dados\movimento.mdb'"

Dim newcode

Set newcode = Server.CreateObject("ADODB.Recordset")

newcode.Open "mural", adoConn, 2, 2, 2

newcode.AddNew

newcode("de") = de

newcode("msg") = msg

newcode("para") = para

newcode.Update

newcode.close

set newcode = nothing

response.redirect "mural.asp?sucesso=sim"

%>

[kuroi]

http://scriptbrasil.com.br/forum/index.php?showtopic=28873

[Romero Dias]

ai amigo.. você num acha melhor usar um comando sql