Hello<BR> I Created a component UCVideoStore.ClipBrowser which was used to browse the video clips stored in the MediaStore database. I test my component in VB 6.0 envoronment, it worked OK and returned a correct recordset before I could proceed to write the browser-based UI using ASP, HTML and etc.. What make me surprise is that when I run the following ASP code IIS 4.0 dynamically returned me an HTML page containingf nothing but error code (The erroe code reads: Microsoft VBScript run-time error, error code: &#039 800a01b6&#039, object does not support property or method &#039Open&#039). When I deleted the following statements, It worked OK but returned only one record. What&#039s wrong with my code? Any solutions or suggestions? <BR>===================================<BR>ASP Test Code Segment<BR>&#060;HTML&#062;<BR>&#060;HEAD&#062;<BR >&#060;BODY&#062;<BR>&#060;%<BR> Dim strConn, rsCategory, objVideoStore<BR> strConn="Provider=SQLOLEDB;Data Source=&#060;local&#062;;UID=sa;PWD=;Database=Medi aStore"<BR> Set objVideoStore=Server.CreateObject("UCVideoStore.Cl ipBrowser")<BR> Set rsCategory=Server.CreateObject("ADODB.Recordset")< BR> rsCategory=objVideoStore.GetCategoryList(strConn)< BR> rsCategory.Open<BR> rsCategory.MoveFirst<BR> While Not rsCategory.EOF<BR> Response.Write rsCategory("Category") & "<BR>"<BR> rsCategory.MoveNext<BR> Wend<BR> Set rsCategory=Nothing<BR> Set objVideoStore=Nothing<BR>%&#062;<BR>&#060;/BODY&#062;<BR>&#060;/HEAD&#062;<BR>&#060;/HTML&#062;<BR>==================================== =================<BR>--The Stored Procedure<BR><BR>CREATE PROCEDURE usp_Category<BR>AS<BR> SELECT *<BR> FROM tblCategory<BR> ORDER BY CategoryID<BR><BR>================================ ========================<BR>&#039 My UCVideoStore.ClipBrowser Component and Packaged in MTS<BR><BR>Public Function GetCategoryList(ConnectionString As Variant) As ADODB.Recordset<BR><BR> &#039 Purpose: Create a recordset of all available categories<BR> &#039 Arguments: ConnectionString data store connection string<BR> &#039 Returns: Recordset of categories<BR> &#039 Author: Changbao Li<BR> &#039 Date: 13 Mar 2000<BR><BR> On Error GoTo ErrHandler<BR> <BR> &#039 Declare variables<BR> Dim rsCategory As New ADODB.Recordset &#039 recordset of categories<BR> <BR> &#039 Then it call a stored procedure, usp_Category, to extract a category list from the<BR> &#039 tblCategory table, and return the recordset to rsCategory object.<BR> rsCategory.Open "usp_Category", ConnectionString, adOpenStatic, _<BR> adLockReadOnly, adCmdStoredProc<BR> <BR> If GetCategoryList Is Nothing Then<BR> Set GetCategoryList = rsCategory.Clone(adLockReadOnly)<BR> End If<BR> <BR> mObjCtx.SetComplete<BR> <BR>FuncExit:<BR> On Error Resume Next<BR> <BR> If Not rsCategory Is Nothing Then<BR> Set rsCategory = Nothing<BR> End If<BR> <BR> Exit Function<BR> <BR>ErrHandler:<BR> If Not rsCategory Is Nothing Then<BR> If rsCategory.State = adStateOpen Then<BR> rsCategory.Close<BR> End If<BR> Set rsCategory = Nothing<BR> End If<BR> <BR> Err.Raise Err.Number, mcstrClassName & ".GetCategoryList", Err.Description<BR> mObjCtx.SetAbort<BR> Resume FuncExit<BR> <BR>End Function<BR><BR>Many thanks, Chiang Lee<BR>