快乐酷宝之超能破解版:为什么我再作动态网页时填写一个发布页面总显示这种错误Microsoft VBScript 运行时错误 (0x800A01A8)

HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/jiance-4.asp, 第 6 行
数据库的代码是
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ="&Server.MapPath("peerlesslybeautiful.mdb")
%>
jiance-4.asp代码是
<%
Dim rsInformationNew
Set rsInformation = Server.CreateObject("ADODB.RecordSet")
%>
<%'可以正确生成用户
rsInformationNew.Open "SELECT * FROM peerlesslybeautiful"cn,2,3
rsInformationNew.AddNew
If Request("title")<>"" Then
rsInformationNew("title") = Request("title")
End If
If Request("name")<>"" Then
rsInformationNew("name") = Request("name")
End If
If Request("lei")<>"" Then
rsUserInformationNew("lei") = Request("lei")
End If
If Request("phone")<>"" Then
rsInformationNew("phone") = Request("phone")
End If
If Request("email")<>"" Then
rsInformationNew("Email") = Request("email")
End If
If Request("money")<>"" Then
rsInformationNew("money") = Request("money")
End If
If Request("province")<>"" Then
rsInformationNew("province") = Request("province")
End If

If Request("city")<>"" Then
rsInformationNew("city") = Request("city")
End If

If Request("xiangxi")<>"" Then
rsInformationNew("information") = Request("xiangxi")
End If
rsInformationNew("time") = Now
rsInformationNew.Update
%>
我刚刚学这个，在家憋了n天了，始终找不出错误来，请各位高手指点