Seeking a solution to Microsoft VBScript runtime (0x800A01A8) Object required:

[d4tt4]

Hello all,

I'm currently building an intranet app and have run into this error when calling a method on my DataConnector class. The actual error line is in the Document.LoadSearchedDocs subroutine. Code is pasted below.

public sub LoadSearchedDocs(byRef arrDocs, byVal arrParams, byVal qString)
	dim i, sp, recCount, x(1) 'to pass to 0 parameter stored procedures
	DC  = new DataConnector
	DC.initialize
		
	'check qString for empty string
	if not qString = "" then
		'determine which stored procedure to call
		Select Case qString
			Case "t"
				' retrieve documents order by title
				sp = "spGetAllDocumentsByTitle"
			Case "f"
				' retrieve documents order by format
				sp = "spGetAllDocumentsByFormat"
			Case "d"
				' retrieve documents order by date
				sp = "spGetAllDocumentsByDate"
			Case "de"
				' retrieve documents order by department
				sp = "spGetAllDocumentsByDept"
			Case Else
		end Select
		
		'get number of records from stored procedure and dynamically allocate array
		DC.runStoredProc "spGetCountDocuments", x, true
		recCount = DC.RecordSet.Fields("recCount").value
		ReDim arrDocs(recCount)
		'call next stored procedure
		DC.runStoredProc sp, x, true
		
		'loop through records and load docs
		for i = LBound(arrDocs) to UBound(arrDocs)
			arrDocs(i).LoadOnFly(DC.RecordSet)
		next
		else
		'run stored proc spGetDocumentsSearched which returns double result set
		'determine record count, dynamically allocate and load documents
		DC.runStoredProc "spGetDocumentsSearched", arrParams, true
		recCount = DC.RecordSet.Fields("recCount").value
		ReDim arrDocs(recCount)
		'move to next result set
		DC.RecordSet = DC.RecordSet.NextRecordset
		
                         'err.raise 1, "IsObject(DC.RecordSet): " & IsObject(DC.RecordSet)
		'loop through records and load docs
		for i = LBound(arrDocs) to UBound(arrDocs)
			arrDocs(i).LoadOnFly(DC.RecordSet) 'ERROR LINE
		next
	
	end if

The error is
Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required: 'DC.RecordSet'
/oasis/includes/classes/Document.asp, line 276

Line 276 is the line denoted in the code by my comment. The error (when uncommented) raised three lines above the actual error line produces the output:

IsObject(DC.RecordSet): True

I'm still turning my gears to figure out why DC.RecordSet isn't recognized as a valid object when the isobject function is returning true. There must be something else before this line that's affecting the situation. If anyone can spot the error it would be much appreciated. Please let me know if I can post any other code, perhaps the DataConnector class or the rest of the Document class. Again thank you.

[d4tt4]

Figured it out.