Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim RES As String
RES = Job.GetString
Log("Response from server: " & RES)
Dim parser As JSONParser
parser.Initialize(RES)
Select Job.JobName
Case AFFICHE_LIST
Dim AFFICHE As List
AFFICHE = parser.NextArray 'returns a list with maps
For i = 0 To AFFICHE.Size - 1
Dim M As Map
M = AFFICHE.Get(i)
Dim Nom, Adresse, Telephone, Mail, Ville, Texte, URL, URL_Image As String
Dim Index,Departement, What, Ce_moment As Int
Dim Longitude, Latitude As Double
Index = M.Get("id")
Nom = M.Get("nom")
Adresse = M.Get("adresse")
Ville = M.Get("ville")
Departement = M.Get("departement")
Longitude = M.Get("longitude")
Latitude = M.Get("latitude")
Telephone = M.Get("telephone")
Mail = M.Get("mail")
What = M.Get("what")
Texte = M.Get("texte")
URL = M.Get("url")
URL_Image = M.Get("url_image")
Ce_moment = M.Get("ce_moment")
ListViewAffiche.AddTwoLines2(Nom, Adresse & ", " & Ville & " " & Departement & ". Tel: " & Telephone, M)
Next