This web app was created on local, when placed on the server it crashes. On crashing, TCP/IP re-starts and consistency checking is performed.
Here are snippets of the code:
Options
Uselsx “*LSXODBC”
Declarations
Dim conAS400 As ODBCConnection
Dim dbNotes As NotesDatabase
Dim sesNotes As NotesSession
Initialize
Set sesNotes = New NotesSession
Set dbNotes = sesNotes.CurrentDatabase
If Not fcnLogon Then
Exit Sub
End If
RetrieveInfo (parm1), (parm2), (parm3)
conAS400.Disconnect
fcnLogon()
Set conAS400 = New ODBCConnection
REM* Connect to as400.
If Not conAS400.ConnectTo(strDataSource, strUserName$, strPassWord$) Then
Exit Function
End If
Sub RetrieveInfo()
Dim resOverview As New ODBCResultSet
Set resOverview = New ODBCResultSet
Set resOverview.Connection = conAS400
Call resOverview.ExecProcedure(“XXXX”,"XXXX ", strPassData)
It seems to crash on the “Set resOverview.Connection = conAS400” statement.
Prior to getting to this part of the code, it does two sql’s to retrieve some other data. Then it does several call to stored procedures, this one is the first stored procedure.
This worked fine on local… I’m stumped. I sure hope someone can help me.