rsCom=conn.execute("select * from user_dept where Fid="&request("S_13"))
if not rsCom.eof and not rsCom.bof then '错误行
str=""
do while not rsCom.eof
str=str&"dept_id1="&rsCom("dept_id")&" or "
rsCom.movenext
loop
end if

提示：Microsoft VBScript 运行时错误 错误 '800a01b6'

对象不支持此属性或方法: 'rsCom.eof'

急，那位高手帮看看

rsCom=conn.execute("select * from user_dept where Fid="&request("S_13"))
改成
set rsCom=conn.execute("select * from user_dept where Fid="&request("S_13"))