网页错误类型：Microsoft JET Database Engine (0x80004005)，操作必须使用一个可更新的查询。第 74 行

Question

<table width="830" height="25"border="2" cellpadding="1" cellspacing="1" align="center">
<tr align="center" bgcolor="#8F9BDE"><font color="#000080" size="+3" ><span class="STYLE2">留言版</span></font></tr>
</table>
<form method="post" name="name1" action="write.asp?action=savewrite">
<tr bgcolor="#FFFFFF">
<td width="25%" height="30" align="right"><font color="#ff0000">*</font>  留言者：</td>
<td width="75%" height="30" > <input type="text" name="name" />
</td></tr><br />
<tr bgcolor="#FFFFFF">
<td width="25%" height="30" align="right"><font color="#ff0000">*</font> E-mail：</td>
<td height="30" > 
<input type="text" name="email" /></td>
</tr><br />
<tr bgcolor="#FFFFFF">
<td height="30" align="right"><font color="#ff0000">*</font>  QQ号码：</td>
<td height="30" > <input type="text" name="qq" />
</td></tr><br />
<tr bgcolor="#FFFFFF">
<td height="30" align="right"><font color="#ff0000">*</font>相册类型：</td>
<td height="30" > <input type="text" name="album" />
</td></tr><br />
<tr bgcolor="#FFFFFF">
<td height="30" align="right"><font color="#ff0000">*</font>留言主题：</td>
<td height="30" > <input type="text" name="title" />
</td></tr><br />
<tr bgcolor="#FFFFFF">
<td height="30" align="top"><font color="#ff0000">*</font>留言内容：</td>
<td height="30" > <textarea name="content" cols="90" rows="8"></textarea>
</td></tr><br />
<tr align="center" bgcolor="#ffffff">
<td height="25" align="center" colspan="2">
                           <input type="submit" name="submit" value="提交" />
<input type="reset" name="reset" value=" 重置" /></td></tr>
</form>
<%
if request("action")="savewrite" then
call savewrite()
end if
%>
<%
sub savewrite()
dim vname
dim vemail
dim vtitle
dim vcontent
dim vip
dim vqq
dim valbum
vname=trim(request.Form("name"))
vemail=trim(request.Form("email"))
vtitle=trim(request.Form("title"))
valbum=trim(request.Form("album"))
vcontent=trim(request.Form("content"))
vqq=trim(request.Form("qq"))
vip=request.ServerVariables("remote_addr")
if vtitle="" or vcontent="" then

response.write"<script language='javascript'>alert('留言主题和留言内容不能为空！');</script>"

response.End
elseif vqq<>""and isnumeric(vqq)=false then
response.Write"<script language='javascript'>alert('QQ号码只能为数字！');</script>"
response.End
else
sql="insert into liuyuan (title,content,name,email,ip,qq,u_time,leixing)"&"values('"&vtitle&"','"&vcontent&"','"&vname&"','"&vemail&"','"&vip&"','"&vqq&"','"&now()&"','"&valbum&"')"
response.Write(sql)
cn.execute(sql)
cn.close
set cn=nothing
response.Redirect "default.asp"
end if
end sub
%>
74行错误就是这句“cn.execute(sql)”这个功能是用来插入的，可以老是错误，在网上看了一些相同类型的错误，该后还是有误，请大家帮帮忙

Answer 1

在工程文件夹的安全属性里添加一个everyone用户 并给与修改权利

Answer 2

有链接数据库吗?