幼儿园迎新活动方案:ASP高手请进

我编好了代码但是浏览器打不开错误类型：(0x80020009)发生意外。/counter/inc/count.asp, 第 21 行
测试文件test.asp正常 为什么编好代码打不开？？高手帮帮我 本人QQ43433268 加我 谢谢
错误类型：
Microsoft JET Database Engine (0x80040E09)
不能更新。数据库或对象为只读。
部分count.asp代码
<%
dim conn,strconn
dim totalHit,weekHit,dayHit
dim totalHitMsg,weekHitMsg,dayHitMsg
Set conn = Server.CreateObject("ADODB.Connection")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/db.mdb")
conn.Open Strconn
addCount()
getCount()
totalHitMsg=setImgCount(totalHit)
weekHitMsg=setImgCount(weekHit)
dayHitMsg=setImgCount(dayHit)
conn.close
set conn=nothing

function addCount()
dim rs,sql
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from tb_count"
rs.open sql,conn,1,3
rs("totalHit")=rs("totalHit")+1
if DateDiff("d",rs("lastWeekDt"),now)>7 then
rs("weekHit")=1
rs("lastWeekDt")=now()
else
rs("weekHit")=rs("weekHit")+1
end if
if DateDiff("d",rs("lastWeekDt"),now)>1 then
rs("dayHit")=1
else
rs("dayHit")=rs("dayHit")+1
end if
rs("lastWeekDt")=now()
rs.update
rs.close
set rs=nothing
end function