Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job0"
Dim parser As JSONParser
Dim response As String
response = Job.GetString
Log(response)
parser.Initialize(response)
rows = parser.NextArray
If rows.size > 0 Then
' Msgbox("Risultato 0: " &rows,"")
Dim m As Map
' Msgbox("rows.size " & rows.size,"")
m = rows.Get(0)
Main.pr11nome = m.Get("pr11nome")
Main.pr11indirizzo = m.Get("pr11indirizzo")
messaggio = "pr11nome=" & Main.pr11nome
Msgbox2(messaggio,"BBBooking","OK","","",LoadBitmap(File.DirAssets,Main.MsgLogo))
Log("Messaggio: " & messaggio)
Else
Main.Accesso="no"
messaggio="Utente errato: Accesso non autorizzato"
Msgbox2("Messaggio: " & messaggio,"BBBooking","OK","","",LoadBitmap(File.DirAssets,Main.MsgLogo))
End If
Case "Job1a"
............
............
............