各位帅哥美女，求助，急！！！！！！！！！！
代码如下：
<%
bookname=Request.Form("name")
%>
<%
Dim conn,rst,strsql,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("test.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
if conn.State=1 then
Set rst=Server.CreateObject("ADODB.Recordset")
strsql="insert into book(name) values('"&bookname&"')"
conn.execute strsql
conn.close
set conn=nothing
Response.Write("插入成功")
%>
<%
end if
%>
显示错误如下
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/diwuzhang/insert.asp, 第 21 行

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

网页：
GET /diwuzhang/insert.asp

<%
bookname=Request.Form("name")
%>
<%
Dim conn,rst,strsql,dbpath
Set conn=Server.CreateObject("ADODB.Connection")
dbpath=Server.MapPath("test.mdb")
conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&dbpath
if conn.State=1 then
Set rst=Server.CreateObject("ADODB.Recordset")
strsql="insert into book(name) values('"&bookname&"')"
Response.Write "<br>"&strsql&"<br>"
conn.execute strsql
conn.close
set conn=nothing
Response.Write("插入成功")
%>
<%
end if
%>

请先这样运行一下看看显示什么.
我这样改的目的,和看到的结果是什么我想你就应该明白是什么回事了

我按照你改的运行了，可还是显示“操作必须使用一个可更新的查询”；我这个学期才刚开始学asp，还有我用的是dreamweaver8.0来编写，可看到结果后我还是不明白是怎样回事，望指点？

你输出一下strsql看看查询语句是什么，然后拷贝到查询器中试试，看能不能执行

谢谢各位，问题已经解决，是我哪个权限那里没有设置好，给大家添麻烦了！