Sub Handle(req As ServletRequest, resp As ServletResponse)
Dim lock As Boolean = False
Dim read, mbadge As Map
read.Initialize
read = ReadObject(req.InputStream)
Dim operatore As String = read.Get("operatore")
mbadge.Initialize
mbadge = DBUtils.ExecuteMap(Main.SQL1, "SELECT * FROM Badge WHERE N_Badge = " & QUOTE & operatore & QUOTE, Null)
If mbadge.IsInitialized = True Then
operatore = mbadge.Get("operatore")
Else
operatore = "??"
End If
If Main.lstip1.IndexOf(ip) > -1 Then
Dim i As Int = Main.lstip1.IndexOf(ip)
Select Case i
Case 0
...............
...............
Main.lboperatore1_1.Text = operatore
Dim l As List
l.Initialize
l = DBUtils.ExecuteMemoryTable(Main.SQL1, "SELECT * FROM " & Main.Archiviogiornaliero & "_Linea1" & " WHERE Operatore = " & QUOTE & op & QUOTE & " And Data = " & QUOTE & Main.data & QUOTE, Null, 0)
Main.nconflb1_1.Text = l.Size 'MAIN.NCONFLB1 NOT UPDATE IN RELEASE MODE ALSO IF L.SIZE IS CORRECT
