数据入库出的问题

<script language="vbscript">
sub Sit_onclick()
dim name,nr
name=document.form1.name.value
nr=document.form1.nr.value
if name="" then
msgbox "游客名不能为空"
elseif nr="" then
msgbox "评论内容不能为空"
else
document.form1.ctype.value="123"
form1.submit
end if
end sub
</script>
<%if trim(request("ctype"))="123" then
name=request.form("name")
nr=request.form("nr")
title=request.form("title")
fl=request.form("fl")
if name<>"" and nr<>"" then
   set rs=server.createobject ("adodb.recordset")
   rs.open "diary_pl",conn,3,3
   rs.addnew
       rs ("name")=request.form("name")
       rs ("nr")=request.form("nr")
       rs ("title")=request.form("title")
       rs ("fl")=request.form("fl")
   rs.update
   response.write "<script language=javascript>alert('感谢您对我的支持!');</script>"
else
   response.write "<script language=javascript>alert('游客名及评论内容不能为空!');</script>"
end if
end if%>

报错代码   rs.update    请各位帮帮忙