出租车 伊朗 百度云:大家帮我查查我的ASP代码错在哪儿？

有一个名为title.asp的页面,此页面代码没有错误，确信
以下是处理title.asp的代码，也是出现错误的代码，望高手们多多指教
titleadd.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->

<%
'获取客户端信息
dim subject,words,motion
dim conn,rs,sql
subject=replace(trim(request.Form("subject")),"'","")
words=replace(trim(request.Form("words")),"'","")
motion=request.Form("motion")
'连接数据库
set conn=server.CreateObject("ADODB.Connection")
conn.open"Driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("data/007.mdb")
set rs=server.CreateObject("ADODB.RecordSet")
rs.cursorlocation=aduseserver
rs.open"title",conn,adopendeyset,adlockoptimistic,adcmdtable
rs.addnew
rs("姓名")=session("name")
rs("主题")=subject
rs("内容")=words
rs("表情")=motion
rs.update
%>
出现的错误信息：
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/titleadd.asp, 第 22 行