我的一个小程序老是出错,请大家帮我找一下问题:

add.asp

 

 

姓名：
更新内容：

<%
name=request.form("name")
message=request.form("message")
if name="" then
response.write "请填写您的姓名，点击这里返回"
elseif message="" then
response.write "请填写更新内容，点击这里返回"
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection=conn
Rs.open "select * from sakurasky",sql,conn,3,2
Rs.addnew
Rs("name")=name
Rs("time")=now
Rs("message")=message
Rs.update
Rs.close
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "new.asp"
Response.End
end if
%>


<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection=conn
Rs.open "select * from sakurasky",sql,conn,3,2
    Rs.close
    set Rs = nothing
%>


new.asp








leftmargin="5" background="b-begin.gif" bgproperties="fixed">
<%
sql="select top 1 id from sakurasky order by id"
set rs=conn.execute(sql)
if not rs.eof then
delid=rs("id")
else
delid=0
end if

do while not EOF
i = i + 1
if i > 10 then

dol = "delete from sakurasky where id="&delid
on error resume next
conn.execute (dol)


exit do
end if%>

<%=Rs("time")%>	<%=Rs("name")%>
更新内容：
<%=Rs("message")%>

<%
Rs.movenext
loop
Rs.close
set Rs = nothing
%>



我输入add.asp的连接时页面显示:
-----------------------------------------------------------------------------------------------
Microsoft VBScript 运行时错误 错误 '800a01a8'

缺少对象: 'Rs.ActiveConnection'

/ice/gb/add.asp，行47
------------------------------------------------------------------------------------------------
请问这是怎么回事,我按生存方式朋友所说的方法好象也不行,
大家帮我看一下吧,就要交的了.另外如果还有错误之处请指教.

出错页:

http://www.sakurabbs.net/ice/gb/add.asp

你没创建adodb.connection

<%
name=request.form("name")
message=request.form("message")
if name="" then
response.write "请填写您的姓名，点击这里返回"
elseif message="" then
response.write "请填写更新内容，点击这里返回"
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection=conn
Rs.open "select * from sakurasky",sql,conn,3,2
Rs.addnew
Rs("name")=name
Rs("time")=now
Rs("message")=message
Rs.update
Rs.close
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "new.asp"
Response.End
end if
%>
看看有没有错呀

不要叫前辈哈，我只是菜鸟一只。
修改后add.asp的完整文件为：

 

 

姓名：
更新内容：

<%
name1=request.form("name")
message=request.form("message")
if name1="" then
response.write "请填写您的姓名，点击这里返回"
response.end
else if message="" then
response.write "请填写更新内容，点击这里返回"
response.end
else
set conn1=server.createobject("ADODB.connection")
path=server.MapPath("你的数据库名.mdb")
conn1.Open"Driver={Microsoft Access Driver (*.mdb)};dbq=" & path
set rs=server.createobject("ADODB.Recordset")
set ob=server.createobject("ADODB.Command")
ob.CommandText="select * from sakurasky"
ob.CommandType=1
set ob.Activeconnection=conn1
rs.Open ob, , 1, 3
Rs.addnew
Rs("name")=name1
Rs("message")=message
Rs.update
Rs.close
set Rs = nothing
conn1.close
set conn1 = nothing
Response.redirect "new.asp"
Response.End
end if
end if
%>

<%
name=request.form("name")
message=request.form("message")
if name="" then
response.write "请填写您的姓名，点击这里返回"
elseif message="" then
response.write "请填写更新内容，点击这里返回"
else
Set Rs = Server.CreateObject("ADODB.Recordset")
Set Rs.ActiveConnection=conn
Rs.open "select * from sakurasky",sql,conn,3,2
Rs.addnew
Rs("name")=name
Rs("time")=now
Rs("message")=message
Rs.update
Rs.close
set Rs = nothing
conn.close
set conn = nothing
Response.redirect "new.asp"
Response.End
end if
%>

这个问题应该不是很难吧,今天学校催交了,希望各位能帮一下忙,拜托了.
我的ASP水平很差,希望能说得详细些,给完整的源码比较好.