Recordsets returned from VB dll to ASP

[lenin]

Hello,
I am having some trouble assigning a recordset returned from a VB dll to as recordset object in ASP. The code below reutrns a type mismatch error:


Microsoft VBScript runtime error '800a000d'

Type mismatch: 'getitems'

/shopping_cart/viewBasket.asp, line 14

Any help would be greatly appreciated.

Thakns in Advance.

Lenin

<%
' Variables
dim cartid
dim records
dim cart1
set cart1 = server.createObject("shopcart.cart1")
cart1.createconnection
cartid = request.cookies("cartid")
'response.write cartid
Set records = Server.CreateObject("ADODB.Recordset")
Set records = cart1.getitems(cartid)

response.write records.recordcount
%>


The function ib VB is:


Public Function getItems(lCartID As Long) As ADODB.Recordset

Dim ls_queryString As String
Dim lrs_getRecords As New ADODB.Recordset

'
' Connect
'
createConnection

ls_queryString = "select widget.widget_id, short_name, price, quantity, price * quantity as Total from cartitem, widget where cart_id = " & lCartID & " and widget.widget_id = cartitem.widget_id"

lrs_getRecords.ActiveConnection = lconn

lrs_getRecords.CursorLocation = adUseClient ' Client Side Cursors
lrs_getRecords.Open ls_queryString, lconn, adOpenStatic, adLockReadOnly

' If lrs_getRecords.RecordCount = 0 Then
' Exit Function
' End If
'
' lrs_getRecords.MoveFirst
'
' Do Until lrs_getRecords.EOF
' MsgBox lrs_getRecords!short_name & " " & lrs_getRecords!total
' lrs_getRecords.MoveNext
' Loop

Set getItems = lrs_getRecords


End Function

[Brent Akester]

Asterisk is right. VBScript's variables are of type Variant, so when passing a variable from ASP with VBScript to a VB DLL, make sure your DLL input parameters are Variants as well. The return types from the DLL don't matter, just the input variables must be Variants.

[lychew]

Or you can convert the input param to integer by using cint.e.g.
cint(request.cookies("cookie"))