********************** Start of Code*****************************
<tr>
  <td align="left" valign="top">
    <select NAME="Category">
      <option VALUE="0" selected>all</option>
<% Dim avarCategories, intRows, i
   Set rsCategories = OpenRecordset(cnUSI, "UniqueCategories")
   avarCategories = rsCategories.GetRows(adGetRowsRest) ' This is line
156
   Set rsCategories = CloseRecordset(rsCategories)
   For i = 0 to UBound(avarCategories, 2) %>
      <option value="<%=avarCategories(0,
i)%>"><%=Left(avarCategories(1, i),50)%></option>
<% Next
   Set avarCategories = Null %>
    </select>
  </td>
</tr>
********************** End of Code*****************************

********************** Start of error
Message*****************************
ADODB.Recordset error '800a0c93'

The operation requested by the application is not allowed in this
context.

/usi5/usi_home.asp, line 156
********************** End of error Message*****************************

Any Ideas???

Marvin Thompson

I don't like the look of line 157.  Instead of

**********************************************
 Set rsCategories = CloseRecordset(rsCategories)
**********************************************

I'd try

**********************************************
rsCategories.close
**********************************************

Also, have you included the file adovbs.inc ?  Something else to try!