Public Sub GetRacesNear(Lat As Double, Lng As Double, DistMeters As Int) As ResumableSub
Dim Result As String =""
Dim req As String = File.ReadString(File.Dirassets, "GetRacesNear.xml")
req=SetParam("Lat", Lat,req)
req=SetParam("Lng", Lng,req)
req=SetParam("DistMeters", DistMeters,req)
Dim job1 As HttpJob
job1.Initialize("GetRacesNear", Me)
Dim URL As String = Connect
Log(URL)
job1.PostString(URL, req)
job1.GetRequest.SetContentType("text/xml; charset=utf-8")
Wait For (job1) JobDone(job1 As HttpJob)
If job1.Success Then
Result= job1.getstring
job1.Release
Return GetRaceList (Result)
Else
Dim tlist As List
tlist.Initialize
tlist.Add("Error retrieving Data")
job1.Release
Return tlist
End If
End Sub
Sub GetRaceList(Xml As String) As List[
/CODE]