Sub AddMileMarks
Dim sloc As ABMSwitch = page.NavigationBar.ExtraContent.Component("sloc1")
Dim show As Boolean = sloc.State
If show Then
'Log(" Making milemarks....")
Dim sql As SQL = DBM.GetSQL
Dim mile As List = DBM.SQLSelect(sql, "SELECT * FROM places")' where comp_id = "&Main.comp_id&" Order by Last_name") ' WHERE userId=" & SelectedRowId)
DBM.CloseSQL(sql)
If mile.Size > 0 Then
For i = 0 To mile.Size -1
Dim mil As Map = mile.Get(i)
Dim lat As Double = mil.Get("lat")
Dim lon As Double = mil.Get("lon")
Dim nam As String = mil.GetDefault("city","NA")
Dim path As String
Dim pn As String = nam&".png"
If File.Exists(File.DirApp&"/www/"&ABMShared.AppName&"/images/pnames", pn) Then
path = "../images/pnames/"&pn
Else
path = "../images/truck3brn.png"
End If
' gm1.AddMarkerEX( "milem"&i, lat , lon, ABM.COLOR_YELLOW , "Place: "&nam&" ", "{B}"& nam & "{BR}")
gm1.AddMarkerEx( "milemark"&i , lat, lon+0.002, nam , nam, path, False )
placelist.Add("milemark"&i)
Next
End If
End If
End Sub