请问谁能帮我改一下这个程序,老出现程序出错的提出来示.

<%
title=request.form("title")
content=request.form("content")
filetype=request.form("filetype")

set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
strconn="DRIVER={Microsoft Access Driver(*.mdb)};DBQ="&server.MapPath("zj.mdb")
sql="SELECT * FROM zjfile"
conn.open strconn
rs.Open sql,conn,1,3

rs.AddNew
rs("title")=title
rs("content")=content
rs("filedate")=now
rs("filetype")=filetype
rs("times")=0
rs.Update
rs.Close
%>