In an ASP file, I have an empty array. This empty array is passed to a
VBasic created COM object that fills the array and then that object returns
the number of rows it put into the array. That's the theory, anyway. The
reality is

    Microsoft VBScript runtime error '800a000d'
    Type mismatch: 'objBilling.RetrieveIncompleteOrders'

Here's the code in the calling ASP file (bits have been snipped for
brevity):

 dim aryIncompleteOrders()
 dim iIncompleteOrders
  Set objBilling = Server.CreateObject("Checkerboard.CBilling")
  iIncompleteOrders = objBilling.RetrieveIncompleteOrders( aryLogin,
aryIncompleteOrders )

Here's the code in the called CLS file:

Public Function RetrieveIncompleteOrders(ByVal aryCust As Variant, ByRef
aryIncompleteOrders() As Variant) As Variant
Dim db As Database.CDatabase
Dim adoConn As ADODB.Connection
Dim adoRs As ADODB.Recordset

ReDim aryIncompleteOrders(0 To 3, 0 To 2)

aryIncompleteOrders(0, 0) = "CELL_0_0"
aryIncompleteOrders(0, 1) = "CELL_0_1"
aryIncompleteOrders(0, 2) = "CELL_0_2"

aryIncompleteOrders(1, 0) = "CELL_1_0"
aryIncompleteOrders(1, 1) = "CELL_1_1"
aryIncompleteOrders(1, 2) = "CELL_1_2"

aryIncompleteOrders(2, 0) = "CELL_2_0"
aryIncompleteOrders(2, 1) = "CELL_2_1"
aryIncompleteOrders(2, 2) = "CELL_2_2"

aryIncompleteOrders(3, 0) = "CELL_3_0"
aryIncompleteOrders(3, 1) = "CELL_3_1"
aryIncompleteOrders(3, 2) = "CELL_3_2"

RetrieveIncompleteOrders = UBound(aryIncompleteOrders, 1) + 1
End Function

=================================================
1 + 1 = 3 for sufficiently large values of 1.

Richard Lewis Haggard

In the function definition, change the parameter definition for
aryIncompleteOrders from an array to a variant.

Public Function RetrieveIncompleteOrders(ByVal aryCust As Variant,
ByRef aryIncompleteOrders As Variant) As Variant

--
Kirk Allen Evans

Sent via Deja.com http://www.deja.com/
Before you buy.