Dim s As String ="{'id':'4','name':'my beautifull launderette','business_type':'1','param':{'phone':'+332222222','fax':''}}"
Dim parser As JSONParser
parser.Initialize(s)
Dim root As Map = parser.NextObject
Dim id As String = root.Get("id")
Dim param As Map = root.Get("param")
Dim phone As String = param.Get("phone")
Dim fax As String = param.Get("fax")
Dim name As String = root.Get("name")
Dim business_type As String = root.Get("business_type")
Log("Fax: " & fax)