ADODB.Recordset(0x800A0E78) 对象关闭时，不允许操作
<%
  dim   ObjConn,ConnStr,ObjRS,SqlStr
UserId   =   trim(request.form( "UserId "))
UserPwd=   trim(request.form( "UserPwd "))

ConnStr=   "provider=microsoft.jet.oledb.4.0;data   source= "   &   _
server.mappath( "../db/sysm.mdb ")

set   ObjConn=   server.createObject( "adodb.connection ")
Objconn.open   ConnStr
set   ObjRS=   server.createObject( "adodb.Recordset ")

SqlStr=   "SELECT   *   FROM   userifo   where   userid= ' "   &   userid   &   " '   and   userpwd= ' "   &   userpwd   &   " ' "
Objrs.open     SqlStr,Objconn,1,3

IF   ObjRS.EOF   THEN
Response.write   " <center> 不存在此用户或密码错误! </center> "
ELSE   IF   UserId= "admin "   then
session( "userId ")=UserId
session( "userpwd ")=UserPwd
session( "Passed ")=true
server.transfer( "adimn.asp ")
ELSE
session( "userId ")=UserId
session( "userpwd ")=UserPwd
session( "Passed ")=true
server.transfer( "commuser.asp ")

END   IF
end   if

ObjConn.close
ObjRs.close
'set   Objconn   =   nothing
set   ObjRS   =   nothing
加‘号的语句如果去掉’号之后，便会出现下面错误，请诸位大侠给看看。

错误类型：
ADODB.Recordset   (0x800A0E78)
对象关闭时，不允许操作。
/myweb/log/app/logon.asp,   第   44   行



------解决方案--------------------
IF ObjRS.EOF or objRs.BOF THEN '不存在
.....
Else '存在
If UserId= "admin " then
......
else
. ......
end if
End IF

------解决方案--------------------
ObjConn.close
ObjRs.close
'set Objconn = nothing
set ObjRS = nothing
===============
你把位置搞反了...
这样写
ObjRs.close
set ObjRS = nothing
ObjConn.close
set Objconn = nothing