ASP calling a DLL Problem!!

Hello,
I'm fairly new to ASP..

I'm trying to call a DLL witten in VB [in winnt\system32] which accesses an Oracle database.
The DLL has worked fine for many years when accessed by VB front-end apps.
However, when making a call from ASP [using VBScript], my web page just seems to hang.

Here's the ASP code which calls the DLL:
set objADODb = Server.CreateObject("AAH_ADO2.CADODatabase")
set objADOEng = Server.CreateObject("AAH_ADO2.CADOEngine")

dim dbEng
dim dbMain
set dbEng = objADOEng
set dbMain = objADODb

dbEng.Initialise

If dbEng.CMOpenDBClientCursor(9, 0, 3, "") = 0 Then
Set dbMain = dbEng.GetDatabase(9)
End If

....It's the call to CMOpenDBClientCursor which seems to be hanging.. this function simply creates a connection object for an oracle db.
I can connect to the db directly within ASP using the ADO Connection stuff.

Any ideas would be appreciated...

Hi Jason.... without actually seeing the VB object source, it would be pretty hard for me to
take a stab at what is wrong here.

I can see that you have a little more code than nessessary, although cant see that would cause this error... you could try this:-

Code: Select all

set dbMain = Server.CreateObject("AAH_ADO2.CADODatabase")
set dbEng = Server.CreateObject("AAH_ADO2.CADOEngine")

dbEng.Initialise

If dbEng.CMOpenDBClientCursor(9, 0, 3, "") = 0 Then
Set dbMain = Nothing 'Does this object have a 'close' method?
Set dbMain = dbEng.GetDatabase(9)
End If

Have you tried calling the object with just 'createobject' as opposed to server.createobject ... I've seen some objects that were not specifically design as IIS accessible COM objects only work this way.

Let us know how you get on.

Rob

__________________
Click the 'Thanks!' button if this post has helped you

Rob - Webforumz Founder

If dbEng.CMOpenDBClientCursor(9, 0, 3, "") = 0 Then

...its a golden rule of ASP not to use magic numbers!

<blockquote id="quote" class="ffs">quote:<hr height="1" noshade="noshade" id="quote" />Originally posted by Rob
Hi Jason.... without actually seeing the VB object source, it would be pretty hard for me to
take a stab at what is wrong here.

I can see that you have a little more code than nessessary, although cant see that would cause this error... you could try this:-

Code: Select all

set dbMain = Server.CreateObject("AAH_ADO2.CADODatabase")
set dbEng = Server.CreateObject("AAH_ADO2.CADOEngine")

dbEng.Initialise

If dbEng.CMOpenDBClientCursor(9, 0, 3, "") = 0 Then
Set dbMain = Nothing 'Does this object have a 'close' method?
Set dbMain = dbEng.GetDatabase(9)
End If

Have you tried calling the object with just 'createobject' as opposed to server.createobject ... I've seen some objects that were not specifically design as IIS accessible COM objects only work this way.

Let us know how you get on.

Rob<hr height="1" noshade="noshade" id="quote" /></blockquote id="quote">

Hi Jason.....

Could you not use a table of constants, instead of those mysterious numbers in function calls?

It would be a nightmare for other developers to pick up your code otherwise.... it would also make your life easier.

I presume those numbers roughly map to ADO constants such as adOpenStatic etc, etc

__________________
Click the 'Thanks!' button if this post has helped you

Rob - Webforumz Founder

Sorry... it was just a frig in the ASP...
The call in the ASP should read:

Code: Select all

If dbEng.CMOpenDBClientCursor(giCM_AAH_PS_NAMEKEY, _
                                  False, _
                                  adModeReadWrite, _
                                  "") = giCM_RSLT_OK Then ......

where you can ignore 'giCM_AAH_PS_NAMEKEY'

Jason
<blockquote id="quote" class="ffs">quote:<hr height="1" noshade="noshade" id="quote" />Originally posted by Rob
Hi Jason.....

Could you not use a table of constants, instead of those mysterious numbers in function calls?

It would be a nightmare for other developers to pick up your code otherwise.... it would also make your life easier.

I presume those numbers roughly map to ADO constants such as adOpenStatic etc, etc<hr height="1" noshade="noshade" id="quote" /></blockquote id="quote">