Sub JobDone(Job As HttpJob)
If Job.Success = True Then
Select Job.JobName
Case "VehiclesList"
dim vList as string = Job.GetString
dim aList() as string = Regex.Split(CRLF, vList)
dim i as int
for i = 0 to aList.length - 1
log(aList(i))
next
end select
else
end if
job.release
end sub