Kode fejl, error 800a0e79

Hejsa

Jeg har et stykke kode, som ikke virker håber i kan hjælpe:

<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

strSQL = "SELECT * FROM Listen WHERE refID = " & session("id")
antal=0
rst.Open strSQL, con, adOpenForwardOnly, adLockReadOnly
if not rst.eof then
  arr=rst.getrows()
  antal=ubound(arr,2)
end if

strSQL2 = "SELECT Max_Opret FROM Personale WHERE ??? = " & session("id")
antal2=0
rst2.Open strSQL2, con, adOpenForwardOnly, adLockReadOnly
if not rst2.eof then
  arr2=rst2.getrows()
  antal2=ubound(arr2,2)
end if

response.write antal2 - antal
%>



FEJLEN:
ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/partyhouse/crew/listen_status.asp, line 99