ASP问题：高手看看我这段代码拿出错了，给分！

我要把用户登录后发表的留言写入数据库！写得时候捎带着把当前的用户名、昵称、时间、内容一起写入数据库。测试的时候总提示
rs.Update
这一行出错，不知为啥？高手看看！
数据库：ACCESS
表名：liuyan
字段名分别是：name、nicheng、neirong、time
我的代码：

<!--#include file="data.asp" -->
<%
'加载数据库链接网页！
%>

<%
dim name
dim neirong
dim nicheng
dim time

name=Session("Name")
nicheng=Session("nicheng")
neirong=request("s1")
time=now
%>

<%
'设置接收变量！
%>

<%
if neirong="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('留言内容不能为空！');" & "history.back()" & "</script>"

%>

<%
else
%>

<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "liuyan", com, adOpenDynamic, 3
%>

<%