Dim addlist9 As List
addlist9 = parser.NextArray 'returns a list with maps
For i = 0 To addlist9.Size - 1
Dim m As Map
m = addlist9.Get(i)
fromlf= m.Get("sok")
tolf=m.Get("sak")
ExecuteRemoteQuery("SELECT * FROM userroutes1 WHERE sok='"&tolf&"' and sak'"&fromlf&"' or sok='"&fromlf&"' and sak'"&tolf&"' ", LF2)
Next