comJava Library

We are getting a stack overflow using Sun's 1.3 JDK.
This is running under IIS.

We have logging on. I'm attaching a copy of the log
of the erroring transaction. Also here is a copy of
the Global.asa file used:

<OBJECT RUNAT=Server SCOPE=Application ID=jvm
PROGID="comJava.comJavaJvm"></OBJECT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>



Sub Application_OnStart
Application("AllowedErrorsBeforeWarning") = 5
Application("NumVisitors") = 0
createJvm
set Application("jvm") = jvm

'Dim audit
'We are invoking an audit class that will
allow us to use
'Optimize it and monitor the JVM that IIS is
invoking.
'set audit = jvm.newJavaObject
("intuitive.audit.Audit")
'trapError Err.Number,
Err.Description, "newJavaObject"
'audit.invokeJavaMethod "start", Clng(1470),
CLng(4)
'set oitAudit = jvm.newJavaObject
("intuitive.audit.Audit")
'oitAudit.invokeJavaMethod "start", Clng
(1470), Clng(4)

Server.ScriptTimeOut= 180

End Sub

Sub Session_OnStart

Session("ErrorCount") = 0
Application.Lock
Application("NumVisitors") = Application
("NumVisitors") + 1
Application.UnLock

End Sub

Sub Session_OnEnd
Session.Abandon
End Sub

Sub Application_OnEnd
Application("AllowedErrorsBeforeWarning") =
Nothing
Application("NumVisitors") = Nothing
End Sub

Function createJvm()

Dim jvm
Dim args(2)
args(0) = "-
Djava.class.path=c:/winnt/java/trustlib"
args(1) = "-Djava.compiler=NONE"
'args(2) = "-Xnoclassgc"
'args(3) = "-Xrunoii"

set jvm = CreateObject("comJava.comJavaJvm")
jvm.setJavaVMLibraryPath "C:\jdk1.3
\JRE\bin\classic\jvm.dll"
jvm.setVMArguments args
jvm.debugLog = True
jvm.jvmDebugLog = True
jvm.CreateJavaVM

End Function

'jvm.setJavaVMLibraryPath "C:\Program
Files\JavaSoft\JRE\1.3.0_02\bin\hotspot\jvm.dll"
'jvm.setJavaVMLibraryPath "C:\Program
Files\IBM\JRE\1.1\bin\javai.dll"
'jvm.setJavaVMLibraryPath "D:\IBM\Java13
\JRE\bin\classic\jvm.dll"
'jvm.setJavaVMLibraryPath "D:\IBM\JRE\1.1
\bin\javai.dll"
'in for 118
'jvm.setJavaVMLibraryPath "D:\IBM\JDK118
\bin\javai.dll"

'Dim properties(1)
'properties(0) = "java.compiler=NONE"

'in for 118
'set jvm = CreateObject("comJava.comJavaJvm")
'jvm.setJavaVMLibraryPath "D:\SUNJDK118
\bin\javai.dll;D:/OptimizeItDemo/OptimizeIt40D/lib"
'jvm.setJavaVMLibraryPath "D:\SUNJDK118
\bin\javai.dll"
'out for 118
jvm.setJavaVMLibraryPath "D:\SUNJDK13002
\jre\bin\classic\jvm.dll"
'in for 118
'jvm.setJvm11 True

'out for 118 jvm.setVMArguments args

'in for 118
'jvm.setVM11Properties properties
'jvm.VM11GarbageCollect = False

'in for 118
'jvm.setVM11Classpath "c:/winnt/java/trustlib"
'jvm.setVM11Classpath "c:/winnt/java/trustlib;D
:/OptimizeItDemo/OptimizeIt40D/lib;D:/OptimizeItDemo/Op
timizeIt40D/lib/optit.jar"
'jvm.setVM11Classpath "c:/winnt/java/trustlib;D
:/classes;D:/classes/optit.jar"
'in for 118
'jvm.setVM11MaxHeapSize 256000000
'jvm.debugLog = False
'jvm.jvmDebugLog = False
'jvm.CreateJavaVM

'End Function

Function GetScriptEngineInfo
Dim s
s = "" ' Build string with necessary info.
s = ScriptEngine & " Version "
s = s & ScriptEngineMajorVersion & "."
s = s & ScriptEngineMinorVersion & "."
s = s & ScriptEngineBuildVersion
GetScriptEngineInfo = s ' Return the
results.
End Function

Function GetHTTP
DomainName = Request.ServerVariables
("SERVER_NAME")
GetHTTP = "http://" & DomainName
End Function

Function GetSecureHTTP
DomainName = Request.ServerVariables
("SERVER_NAME")
if inStr(DomainName, "dev")>0 then
GetSecureHTTP = "http://" & DomainName
else
GetSecureHTTP = "https://" & DomainName
end if
End Function

</SCRIPT>