Sub AppStart (Args() As String)
Dim j As jarLoader
j.loadJAR(File.DirApp & "\handlerclass.jar")
srvr.Initialize("")
srvr.Port = 80
srvr.AddHandler("/test","nz.ope.handlerclass.test",True)
srvr.LogsRetainDays = 7
srvr.LogWaitingMessages = False
srvr.Start
StartMessageLoop
End Sub