The remote procedure call failed and did not execute. 
远程过程调用失败了和没有执行

我在调试我一个简单的程序的时候出现的问题 ?
请问 问题出在哪里啊 ?
我的程序主要是 一个表单  提交表单后 把数据放在数据库中  在把数据提出来 
三个步骤都放在一个asp 文件中
大概是
<% 
' 表单的数据先存到变量里面
dim name,mail,title,content
name = request.Form("name")
mail = request.Form("mail")
title = request.Form("title")
content = request.Form("content")

'把表单的数据传人数据库
on error Resume Next
dim conn,connstr,connsql
set conn = Server.CreateObject("ADODB.Connection")    
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("data/db.mdb")    
conn.open connstr
if name<>""then
connsql = "INSERT Into admin(name,mail,title,content) Values("&name&","&mail&","&title&","&content&")"
conn.Execute(connsql)
end if
if err<>0 then response.Write("数据输入数据库出错了")

'从数据库输出数据

on error resume next
dim rs,rssql
set rs = server.CreateObject("ADODB.RecordSet")
ressql = "selet * from admin"
rs.open rsstr,conn,1,3
do while not rs.eof
response.Write(now())
response.Write(rs("title"))
response.Write(rs("name"))
response.Write(rs("mail"))
response.Write(rs("content"))
rs.movenext
loop
if err<>0 then response.Write("从数据库输出数据出错")
 %>
<form>
......
</form>