Sub Class_Globals
Private sharemodule As MainPage 'the first Page show on the browser
End Sub
Sub Handle(req As ServletRequest, resp As ServletResponse)
Dim read As Map
Dim result As Map
read.Initialize
result.Initialize
read = ReadObject(req.InputStream)
result = CallSub2(sharemodule, "SetControls", read)
If result.IsInitialized Then
.........
.........
End Sub