一无所有催建下载:ASP留言板，留言不能写入数据…………

代码如下
<%
action=request.querystring("action")
select case action

case "userwrite"
if session("username")="" then
errormsg=errormsg&"请注册或登陆后再留言!"&"<p>"
end if
if request.form("content")="" then
errormsg=errormsg&"您没有填写留言信息!"&"<p>"
end if

verifycode=request.Form("verifycode")
if IsNumeric(verifycode) then
verifycode=cint(verifycode)
else verifycode=0
if verifycode<>cint(session("numcode")) then
errormsg=errormsg&"验证码输入有误!"&"<p>"
end if

if errormsg="" then
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from guestbook where User='"&session("username")&"'"
rs.open sql,conn,1,3
rs.addnew
rs("User")=code(session("username"))
rs("content")=code(request.form("content"))
secret=request.form("secret")
rs("from")=Request.ServerVariables("REMOTE_ADDR")
if secret<>1 then secret=0
rs("secret")=secret
mdate=date()&" "&time()
rs("Mdate")=mdate
rs.update
set rs=nothing
response.Redirect "guestbook.asp"
response.end
end if
end if
%>

session("username")为登陆后的用户名（既需要登陆后才能发言，发言的地方只有一个验证码，一个“是否悄悄话”，一个留言内容）
以上代码提交后无任何记录，也不报错

请高手指点~~~~
模板为 深秋风影留言本