对象关闭时，不允许操作

shj.asp：<%
dim conn,rs,dbpath,rs1,rs2,sz,fs,ts
sz=0
Set conn=Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
dbpath=Server.MapPath("/shj/vevesj.mdb")
conn.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
Set rs1=Server.CreateObject("ADODB.RecordSet")
Set rs2=Server.CreateObject("ADODB.RecordSet")
set fs=createobject("scripting.filesystemobject")

sub gsj()
if isobject(conn) then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
end if
if isobject(fs) then
if not(fs is nothing) then
set fs=nothing
end if
end if
end sub
%>

出问题的网页：<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/shj.asp"--><!--#include file="asphtml.asp"-->
<%
if Trim(Request.Form("yn"))="n" then
response.Redirect("right1-3.asp")
end if
if not request.cookies("veve")="veve" then
response.Redirect("index.asp")
end if
strsql="select * from other order by otid asc"
rs1.open strsql,conn,1,1
for i=1 to rs1.recordcount
call asphtml (rs1("otmb"),rs1("otwz"))
rs1.movenext★
next
rs1.close★
call gsj()
response.Redirect("right1-3.asp")
%>

标有★的行是被提示有问题的 老是说对象关闭时，不允许操作 明明我有打开了数据库怎么会这样？

shi.asp

if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing

去掉或隐藏后调调看呢..