passing correct value types from ASP/VBScript to VB/DLL

[thisis]

Hi All,

I'm getting an error on my ASP page:

Microsoft VBScript runtime error '800a000d'
Type mismatch: 'StoreFileIntoField'

I assume - 99.5% - the error is generated because of worng value types,
I attemp to pass from my ASP/VBScript page to the VB/DLL function.

My relevant ASP/VBScript Code is:

<%
sTemp = "SomeStringOK"
mcsSQL = "select * from tbl1"

' creates an object ref to the VB/DLL function
Set obj = Server.CreateObject("SaveCreateFileADO.cStoreCreat eFileADO")

' creates a ref' to my recordset object
Set rs = Server.CreateObject("ADODB.Recordset")

' openning the recordset with values of the string connection
rs.Open mcsSQL, mConn, 1, 3

With rs
..AddNew
If Not .EOF Then
'VB5: Dim fldFileName As ADODB.Field
'VB5: Set fldFileName = .Fields![sFileName] 'set reference to this
field
' vbscript:
Set fldFileName = rs("sFileName")

'VB5: Dim fldLongBinary As ADODB.Field
'VB5: Set fldLongBinary = .Fields![oPicture] 'set a reference to the
file field
' vbscript:
Set fldFileName = rs("oPicture")

rs("desc")= now() & "hello"

With obj
' call the VB/DLL
' THIS IS the line that generates the ERROR
If .StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp) Then
' do something End If
End With
End If
..Update
..Close
End With

%>

The Function in the VB/DLL is - returns a boolean value -
StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp)
suppose to get THESE values types:
rs VB5: As New ADODB.Recordset
fldFileName VB5: As ADODB.Field
fldLongBinary VB5: As ADODB.Field
sTemp VB5: As String

My Question is :

How do I pass the correct value types from ASP/VBScript to VB/DLL,
using this notion of ADO/ASP 2.0 syntex on PWS 4.0?

[Anthony Jones]

"thisis" <hellone@ml1.net> wrote in message
news:1161116027.173418.276860@i3g2000cwc.googlegro ups.com...

> Hi All,
>
> I'm getting an error on my ASP page:
>
> Microsoft VBScript runtime error '800a000d'
> Type mismatch: 'StoreFileIntoField'
>
> I assume - 99.5% - the error is generated because of worng value types,
> I attemp to pass from my ASP/VBScript page to the VB/DLL function.
>
> My relevant ASP/VBScript Code is:
>
> <%
> sTemp = "SomeStringOK"
> mcsSQL = "select * from tbl1"
>
> ' creates an object ref to the VB/DLL function
> Set obj = Server.CreateObject("SaveCreateFileADO.cStoreCreat eFileADO")
>
> ' creates a ref' to my recordset object
> Set rs = Server.CreateObject("ADODB.Recordset")
>
> ' openning the recordset with values of the string connection
> rs.Open mcsSQL, mConn, 1, 3
>
> With rs
> .AddNew
> If Not .EOF Then
> 'VB5: Dim fldFileName As ADODB.Field
> 'VB5: Set fldFileName = .Fields![sFileName] 'set reference to this
> field
> ' vbscript:
> Set fldFileName = rs("sFileName")
>
> 'VB5: Dim fldLongBinary As ADODB.Field
> 'VB5: Set fldLongBinary = .Fields![oPicture] 'set a reference to the
> file field
> ' vbscript:
> Set fldFileName = rs("oPicture")
>
> rs("desc")= now() & "hello"
>
> With obj
> ' call the VB/DLL
> ' THIS IS the line that generates the ERROR
> If .StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp) Then
> ' do something End If
> End With
> End If
> .Update
> .Close
> End With
>
> %>
>
> The Function in the VB/DLL is - returns a boolean value -
> StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp)
> suppose to get THESE values types:
> rs VB5: As New ADODB.Recordset
> fldFileName VB5: As ADODB.Field
> fldLongBinary VB5: As ADODB.Field
> sTemp VB5: As String
>
> My Question is :
>
> How do I pass the correct value types from ASP/VBScript to VB/DLL,
> using this notion of ADO/ASP 2.0 syntex on PWS 4.0?
>

The signature of StoreFileIntoField will define typed byreference
parameters. The only data type that VBScript supports is variant hence the
only type that can be passed byref from VBScript is a variant.

You can do one of the following:-

1. Change StoreFileIntoField to accept variants
2. Change StoreFileIntoField to accept it's parameters ByVal (something I
recommend for most uses anyway even internally to VB6/5)
3. Place parenthesis around each argument e.g.;-

StoreFileIntoField((rs), (fldFileName), (fldLongBinary), (sTemp))

this turns each argument into an expression. Effectively causing them to be
passed ByVal.

Option 2 would be my preference.

Anthony.

[thisis]

Anthony, Thanks for your answer, it's been great help!

Anthony Jones wrote:

> "thisis" <hellone@ml1.net> wrote in message
> news:1161116027.173418.276860@i3g2000cwc.googlegro ups.com...

> > Hi All,
> >
> > I'm getting an error on my ASP page:
> >
> > Microsoft VBScript runtime error '800a000d'
> > Type mismatch: 'StoreFileIntoField'
> >
> > I assume - 99.5% - the error is generated because of worng value types,
> > I attemp to pass from my ASP/VBScript page to the VB/DLL function.
> >
> > My relevant ASP/VBScript Code is:
> >
> > <%
> > sTemp = "SomeStringOK"
> > mcsSQL = "select * from tbl1"
> >
> > ' creates an object ref to the VB/DLL function
> > Set obj = Server.CreateObject("SaveCreateFileADO.cStoreCreat eFileADO")
> >
> > ' creates a ref' to my recordset object
> > Set rs = Server.CreateObject("ADODB.Recordset")
> >
> > ' openning the recordset with values of the string connection
> > rs.Open mcsSQL, mConn, 1, 3
> >
> > With rs
> > .AddNew
> > If Not .EOF Then
> > 'VB5: Dim fldFileName As ADODB.Field
> > 'VB5: Set fldFileName = .Fields![sFileName] 'set reference to this
> > field
> > ' vbscript:
> > Set fldFileName = rs("sFileName")
> >
> > 'VB5: Dim fldLongBinary As ADODB.Field
> > 'VB5: Set fldLongBinary = .Fields![oPicture] 'set a reference to the
> > file field
> > ' vbscript:
> > Set fldFileName = rs("oPicture")
> >
> > rs("desc")= now() & "hello"
> >
> > With obj
> > ' call the VB/DLL
> > ' THIS IS the line that generates the ERROR
> > If .StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp) Then
> > ' do something End If
> > End With
> > End If
> > .Update
> > .Close
> > End With
> >
> > %>
> >
> > The Function in the VB/DLL is - returns a boolean value -
> > StoreFileIntoField(rs, fldFileName, fldLongBinary, sTemp)
> > suppose to get THESE values types:
> > rs VB5: As New ADODB.Recordset
> > fldFileName VB5: As ADODB.Field
> > fldLongBinary VB5: As ADODB.Field
> > sTemp VB5: As String
> >
> > My Question is :
> >
> > How do I pass the correct value types from ASP/VBScript to VB/DLL,
> > using this notion of ADO/ASP 2.0 syntex on PWS 4.0?
> >

>
> The signature of StoreFileIntoField will define typed byreference
> parameters. The only data type that VBScript supports is variant hence the
> only type that can be passed byref from VBScript is a variant.
>
> You can do one of the following:-
>
> 1. Change StoreFileIntoField to accept variants
> 2. Change StoreFileIntoField to accept it's parameters ByVal (something I
> recommend for most uses anyway even internally to VB6/5)
> 3. Place parenthesis around each argument e.g.;-
>
> StoreFileIntoField((rs), (fldFileName), (fldLongBinary), (sTemp))
>
> this turns each argument into an expression. Effectively causing them to be
> passed ByVal.
>
> Option 2 would be my preference.
>
> Anthony.