Dim j As HttpJob
j.Initialize("", Me) 'name is empty as it is no longer needed
j.Download("http://127.0.0.1:/test:12345")
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
'The result is a json string. We parse it and log the fields.
'/////////////////////
Dim parser As JSONParser
parser.Initialize(j.GetString)
Dim root As List = parser.NextArray
For Each colroot As Map In root
NAME1 = colroot.Get("NAME1")
Next
End If
resp.Write("<p>TESTING ").Write(req.GetParameter("firstname")).Write("!").Write(NAME1))