和文具有关的英语儿歌:关于一个在线提交系统

有一个在线提交系统如下，我试了一下，为什么没成功呢，每次提交的时候，老是说：无法显示网页。烦请各位高手请看一下！谢谢！

数据库文件为note.mdb
提交页面为post.htm
以下为post.asp页面
<%
set conn=Server.CreateObject("ADODB.Connection")
dbparam="Driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("note.mdb")
conn.Open dbparam
dim NoteMaxSize
NoteMaxSize=200
uname = replace(trim(request.form("name")),"'","")
utitle = replace(trim(request.form("title")),"'","")
usex = replace(trim(request.form("sex")),"'","")
uemail = replace(trim(request.form("email")),"'","")
uweb = replace(trim(request.form("web")),"'","")
unote = replace(trim(request.form("content")),"'","")
uip = request.servervariables("remote_addr")
if uname="" then
response.write "<script language=javascript>alert('姓名不能为空，请留下您的大名！');javascript:history.back();</script>"
response.end
end if

if len(uname)>20 then
response.write "<script language=javascript>alert('"&uname&" ，您的名字也太长了吧？');javascript:history.back();</script>"
response.end
end if

if unote="" then
response.write "<script language=javascript>alert('留言不能为空！');javascript:history.back();</script>"
response.end
end if

if len(unote)>NoteMaxSize then
response.write "<script language=javascript>alert('"& uname &" ，留言内容字数不要大于"& NoteMaxSize &"？');javascript:history.back();</script>"
response.end
end if

if uemail<>"" then
if instr(uemail,"@")=-1 or instr(uemail,".")=-1 or len(uemail)<5 then
response.write "<script language=javascript>alert('您的电子信箱地址好象有问题哦！');javascript:history.back();</script>"
response.end
end if
end if
response.write uname&"|"&utitle
response.write "<br>"
response.write usex&"|"&uemail
response.write "<br>"
response.write uweb&"|"&unote
response.write "<br>"
response.write uip
sql="insert into list(name,title,sex,email,web,content,ip)values('"&uname&"','"&utitle&"','"&usex&"','"&uemail&"','"&uweb&"','"&unote&"','"&uip&"')"

set rs = Server.createobject("adodb.recordset")
rs.open sql,conn,2,3
set rs=nothing
set conn=nothing
%>