怎么解决????

[csdnadmin]

<%
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
Path = "Data Source=" & Server.MapPath("skwldb/db.mdb")
Set conn= Server.CreateObject("ADODB.Connection")
p1=Provider&Path
conn.Open P1

%>
<%
dim visiter 'visiter=访问人数
dim sql 'sql
dim rs
sql="select visiter from visiter"
set rs=conn.execute(sql)
count=rs("visiter")
CountLen=len(count)
for i=1 to 6-countLen
response.write "<img src=skwl\num\0.gif></img>"
next

for i=1 to countlen
response.write "<img src=skwl\num\" & mid(count,i,1) & ".gif></img>"
next
sql="update visiter set visiter=visiter+1"
set rs=conn.execute(sql)
conn.close
set conn=nothing
%>
/////////////
<%
db="skwldb/db.mdb"
Set conn2 = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn2.Open connstr
%>
<%sql2="select top 8 * from zhxw order by fbsj desc"
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3
if rs2.eof then
response.write "现在尚未有内容！"
else
end if
%>
.....
<%
while not rs2.eof %>
.....
<%=rs2("title")%></a> [<%=rs2("fbsj")%
......
<%rs2.movenext
wend%>
<%rs2.close%>



以上二个放在一个页面上出错提示
ADODB.Recordset 错误 '800a0e7d'

应用程序要求对象操作，但此对象有一参数调用了一个已关闭的或无效的 Connection 对象。

怎么解决????

[constance]

rs2.open sql2,conn,3 的时候，conn已经关闭了吧。此处是否想用conn2

[xj1979]

conn.close
set conn=nothing
你应该在网页结尾的地方关闭数据库，虽然你后面的程序中没用到conn,但是网页的调用有他的逻辑，不能以你的逻辑来判断。而且有了conn.close就不应该要
set conn=nothing了

[qimangxing]

set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3
你在这里调用的是conn,但在这之前你已经写了
conn.close
set conn=nothing
当然找不到对象了，找你的需要应该成rs2.open sql2,conn2,3