我的的网页出问题？提示错误是这样的：错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
/cl_addnew_txjl.asp, 第 28 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler )

网页：
POST 347 ??? /cl_addnew_txjl.asp

POST Data:
txjl_name=%D1%EE%D3%C2&txjl_xb=%C4%D0&txjl_ln=17&txjl_xl=%D6%D0%D7%A8&txjl_zy=%D1%A7%C9%FA&txjl_ywgx=%CD%AC%D1%A7&txjl_sj=13637458994&txjl_dh=6745325&txjl_qq=382048117&txjl_oicq=33335345&txjl_eamil=hn . . .
原程序是这样：<title>处理addnew_txjl.asp</title>
<%
if request.form("txjl_name")<>"" and request.form("txjl_xb")<>"" and request.form("txjl_xl")<>"" and request.form("txjl_zy")<>"" and request.form("txjl_ywgx")<>"" and request.form("txjl_sj")<>"" and request.form("txjl_dh")<>"" and request.form("txjl_qq")<>"" and request.form("txjl_oicq")<>"" and request.form("txjl_eamil")<>"" and request.form("txjl_qxdz")<>"" and request.form("txjl_grzy")<>"" then

%>

<!--#include file="link_database.asp"-->
<%set addnewrs=server.createobject("ADODB.Recordset")%>
<%
addnewsql="select * from txjlbiao "
addnewrs.open addnewsql,dchconn,1,3

Dim txjl_name,txjl_xb,txjl_ln,txjl_xl,txjl_zy,txjl_ywgx,txjl_sj,txjl_dh,txjl_qq,txjl_oicq,txjl_eamil,txjl_qxdz,txjl_grzy
'以下添加记录
'txjl_name=request.form("txjl_name")
'txjl_xb=request.form("txjl_xb")
'txjl_xl=request.form("txjl_xl")
'txjl_zy=request.form("txjl_zy")
'txjl_ywgx=request.form("txjl_ywgx")
'txjl_sj=request.form("txjl_sj")
'txjl_dh=request.form("txjl_dh")
'txjl_qq=request.form("txjl_qq")
'txjl_oicq=request.form("txjl_oicq")
'txjl_eamil=request.form("txjl_eamil")
'txjl_qxdz=request.form("txjl_qxdz")
'txjl_grzy=request.form("txjl_grzy")
addnewrs.addnew
addnewrs("txjl_name")=request.form("txjl_name")
addnewrs("txjl_xb")=request.form("txjl_xb")
addnewrs("txjl_xl")=request.form("txjl_xl")
addnewrs("txjl_zy")=request.form("txjl_zy")
addnewrs("txjl_ywgx")=request.form("txjl_ywgx")
addnewrs("txjl_sj")=request.form("txjl_sj")
addnewrs("txjl_dh")=request.form("txjl_dh")
addnewrs("txjl_qq")=request.form("txjl_qq")
addnewrs("txjl_oicq")=request.form("txjl_oicq")
addnewrs("txjl_eamil")=request.form("txjl_eamil")
addnewrs("txjl_qxdz")=request.form("txjl_qxdz")
addnewrs("txjl_grzy")=request.form("txjl_grzy")
addhewrs("txjl_date")=request.form("date()")

addnewrs.update
%>
<%
else
response.write "<script language=javascript>alert('请将你的信息\n填写完整……');self.location=(""index.asp"")</script>"
response.write "<a gref='addnew_txjl.asp'>重新添加</a>"
end if
%>
<%
'addnewrs.close
'set addnewrs=nothing
'dchconn.close
'set dchconn=noting
%>