Operation is not allowed when the object is closed.

[isaac2004]

hi i am trying to use the record count object to count the number of
books in a database of mine. i get this error saying that i have closed
the object and i dont think i closed it. here is my code

<% dim strBrowse, strSearch, Count
Count = objRS.RecordCou nt

strBrowse = request.queryst ring("strBrowse ")
strSearch = request.queryst ring("strSearch ")

if strBrowse > "" then
strSQL = "SELECT distinctrow tblCategories.s trCategory,
tblBookDescript ion.ISBN, tblBookDescript ion.strTitle,
tblBookDescript ion.strDescript ion " & _
"FROM tblBookDescript ion INNER JOIN tblCategories ON
tblBookDescript ion.ISBN = tblCategories.I SBN " & _
"Where (((tblCategorie s.strCategory) = '" & strBrowse &
"')) " & _
"ORDER BY tblBookDescript ion.strTitle "

End If
if strSearch > "" then
strSQL= "SELECT distinctrow tblBookDescript ion.strTitle,
tblBookDescript ion.strDescript ion, tblBookDescript ion.ISBN " & _
"FROM tblAuthors INNER JOIN (tblBookDescrip tion INNER JOIN
tblAuthorsBooks ON tblBookDescript ion.ISBN = tblAuthorsBooks .ISBN) ON
tblAuthors.Auth orID = tblAuthorsBooks .AuthorID "&_
"WHERE ((tblAuthors.st rLastName Like '%"&strSearch&" %') "& _
"OR (tblAuthors.str FirstName Like '%"&strSearch&" %') "&_
"OR (tblBookDescrip tion.strTitle Like '%"&strSearch&" %') "&_
"OR (tblBookDescrip tion.strDescrip tion Like '% "&strSearch &"
%') "& _
"OR (tblBookDescrip tion.strPublish er Like '%"&strSearch&" %'))
"&_
"ORDER BY tblBookDescript ion.strTitle;"
end if

'response.write ("strSQL = " & strSQL)

Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
-----------------------------------------------------------------------------error
here
objRS.open strSQL, objConn, 1, objRS.RecordCou nt

%>
</td>
<td valign="top"><f ont face="Comic Sans MS" color="blue">
<%
if strBrowse > "" and Count = 1 then
response.write( "We Carry " & Count & " " & strBrowse & "
book.")
else if strBrowse > "" and Count > 1 then
response.write( "We Carry " & Count & " " & strBrowse & "
books.")
end if
end if

if strSearch > "" and Count = 1 then
response.write( "Search results: " & Count & " book matches '"
& strSearch & "'.")
else if strSearch > "" and Count > 1 then
response.write( "Search results: " & Count & " books match '" &
strSearch & "'.")
end if
end if
%>
thanks for the help

[dNagel]

I believe the last parameter to Open should be a 3 for a dynamic recordset.

objRS.open strSQL, objConn, 1, 3

next, this line of code :

Count = objRS.RecordCou nt

is being called before the recordset is open, thus the RS is not OPEN yet...

D.
isaac2004 wrote:

hi i am trying to use the record count object to count the number of
books in a database of mine. i get this error saying that i have closed
the object and i dont think i closed it. here is my code

<% dim strBrowse, strSearch, Count


strBrowse = request.queryst ring("strBrowse ")
strSearch = request.queryst ring("strSearch ")

if strBrowse > "" then
strSQL = "SELECT distinctrow tblCategories.s trCategory,
tblBookDescript ion.ISBN, tblBookDescript ion.strTitle,
tblBookDescript ion.strDescript ion " & _
"FROM tblBookDescript ion INNER JOIN tblCategories ON
tblBookDescript ion.ISBN = tblCategories.I SBN " & _
"Where (((tblCategorie s.strCategory) = '" & strBrowse &
"')) " & _
"ORDER BY tblBookDescript ion.strTitle "

End If
if strSearch > "" then
strSQL= "SELECT distinctrow tblBookDescript ion.strTitle,
tblBookDescript ion.strDescript ion, tblBookDescript ion.ISBN " & _
"FROM tblAuthors INNER JOIN (tblBookDescrip tion INNER JOIN
tblAuthorsBooks ON tblBookDescript ion.ISBN = tblAuthorsBooks .ISBN) ON
tblAuthors.Auth orID = tblAuthorsBooks .AuthorID "&_
"WHERE ((tblAuthors.st rLastName Like '%"&strSearch&" %') "& _
"OR (tblAuthors.str FirstName Like '%"&strSearch&" %') "&_
"OR (tblBookDescrip tion.strTitle Like '%"&strSearch&" %') "&_
"OR (tblBookDescrip tion.strDescrip tion Like '% "&strSearch &"
%') "& _
"OR (tblBookDescrip tion.strPublish er Like '%"&strSearch&" %'))
"&_
"ORDER BY tblBookDescript ion.strTitle;"
end if

'response.write ("strSQL = " & strSQL)

Set objRS = Server.CreateOb ject("ADODB.Rec ordset")
-----------------------------------------------------------------------------error
here
objRS.open strSQL, objConn, 1, objRS.RecordCou nt

%>
</td>
<td valign="top"><f ont face="Comic Sans MS" color="blue">
<%
if strBrowse > "" and Count = 1 then
response.write( "We Carry " & Count & " " & strBrowse & "
book.")
else if strBrowse > "" and Count > 1 then
response.write( "We Carry " & Count & " " & strBrowse & "
books.")
end if
end if

if strSearch > "" and Count = 1 then
response.write( "Search results: " & Count & " book matches '"
& strSearch & "'.")
else if strSearch > "" and Count > 1 then
response.write( "Search results: " & Count & " books match '" &
strSearch & "'.")
end if
end if
%>
thanks for the help