急救（是哪里出问题了）

[whw_614]

错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'open'
/lyjg.asp, 第 24 行（已经在下面程序中标出）


<!--#include file="conn.asp"-->
<%' Response.Write (session("name")) %>

<%
GBOOK_name=session("name")
GBOOK_sex=session("sex")
GBOOK_message=request("textarea")
%>
<% If GBOOK_name="" then%>
<%response.Write"请输入你的名字!返回<a href='index.asp'>登录</a>页"%>
<% else%>
<%
dim rs
rs=Server.CreateObject("adodb.recordset")
sql="insert into GBOOK (GBOOK_name,GBOOK_sex,GBOOK_message) values ('" &session("name") & "','" &session("sex")& "','" & GBOOK_message & "')"
rs=conn.execute(sql)
%>

<% end if %>
<!--处理新留言结束

####################### 以下代码显示主页面内容 ##################-->
<% SQL = "SELECT * FROM [GBOOK] ORDER BY GBOOK_ID DESC"
rs.open sql,conn,1,3————————————————-———————— 第24行：
If not rs.eof Then
'设置分页显示
If inc_pagesize = "" or inc_pagesize = 0 Then pagesize = 15
rs.pagesize = inc_pagesize
Page_count = rs.Pagecount
If Request("Page") = "" or Request("Page")<= 0 Then
Page = 1
Else
If Request("Page") < Page_count Then
Page = rs.Pagecount
Else
Page = Request("Page")
End if
End if
'RSObj.AbsolutePage = Page
End if
%>

[Leey001]

rs=conn.execute(sql)

--->

conn.execute(sql)

[whw_614]

改过之后第25行又出现同样 的错误提示

[whw_614]

错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'eof'

[Leey001]

rs=Server.CreateObject("adodb.recordset")
sql="insert into GBOOK (GBOOK_name,GBOOK_sex,GBOOK_message) values ('" &session("name") & "','" &session("sex")& "','" & GBOOK_message & "')"
rs=conn.execute(sql)


--->

sql="insert into GBOOK (GBOOK_name,GBOOK_sex,GBOOK_message) values ('" &session("name") & "','" &session("sex")& "','" & GBOOK_message & "')"
conn.execute(sql)



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

<% SQL = "SELECT * FROM [GBOOK] ORDER BY GBOOK_ID DESC"
rs.open sql,conn,1,3————————————————-———————— 第24行：
If not rs.eof Then


-->

set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM [GBOOK] ORDER BY GBOOK_ID DESC"
rs.open sql,conn,1,3
If not rs.eof Then