if isobject(rs) then if not rs is nothing then if rs.state=1 then rs.close
if oConn.state=1 then oConn.close
set rs=nothing
set oConn=nothing
if isobject(rs) then if not rs is nothing then if rs.state=1 then rs.close
if oConn.state=1 then oConn.close
set rs=nothing
set oConn=nothing