各位大虾：
我在向ACCESS数据库添加信息的时候，系统报错，麻烦指点一下！先行谢过！

以下为我的代码：

dim cn,dbpath,rs,sqlstr

set cn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")

dbpath=Server.MapPath("images/info.mdb")
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & dbpath

sqlstr="SELECT * FROM tb_message"
rs.open sqlstr,cn,3,3
rs.addnew
rs("title")=request.form("title")
rs("author")=request.form("author")
rs("datetime")=now()
rs.update
rs.close
set cn="nothing"
response.write "记录添加成功！"

以下为报错信息：

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft JET Database Engine 错误 '80040e09'

不能更新。数据库或对象为只读。

问题解决了！
多谢各位大虾的帮助！

右击数据库文件，在安全中，选择users用户，增加“写入”权限就可以了。