烟花波浪 月季:ASP高手来看啊~~~~~~~~~~~~

一个简单的留言板程序.添加新留言后,出现以下代码.大家帮忙分析下是哪里的错误啊.我是初学者啊!

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0cb3'

对象或提供者不能执行所需的操作。

/lyb/hf2.asp，行40
<%
if a>10 or b>10 then
response.Write("输入字符超过限制,请阅读")
response.write("<a href='bangzhu.asp'>留言帮助</a>")
else

if bt="" or nr="" or name0="" then
response.Write("必填项不能为空,请阅读")
response.write("<a href='bangzhu.asp'>留言帮助</a>")
else

csrq=request.Form("csrq")
dz=request.Form("dz")
oicq=request.Form("oicq")
e=request.Form("e-mial")
index1=request.Form("index")
tx=request.Form("tx")

set rs=server.CreateObject("adodb.recordset")
sql=" select * from Tab_admin1"
rs.open sql,conn,3,1

rs.addnew

rs("bt")=bt
rs("nr")=nr
rs("name")=name0
rs("xb")=xb
rs("csrq")=csrq
rs("dz")=dz
rs("oicq")=oicq
rs("e-mial")=e
rs("index")=index1
rs("tx")=tx
rs("time")=now()
rs.update

%>

<%
response.Write("<div align='center'>")
response.Write("回复完成")

response.write("<a href='index.asp'>返回主页</a>")
response.Write("</div>")
end if
end if
%>
大家的答案我之前都试过,不是问题所在.大家看程序.