Sub ExtraitListePardistance
Dim MyLatitude, MyLongitude as Double
MyLatitude = 43.4936
MyLongitude = -1.4746
ExecuteRemoteQuery("SELECT id, nom,ouverture, adresse, telephone, mail,( 3959 * acos( cos( radians(MyLatitude) ) * cos( radians( latitude ) ) * cos( radians( longitude ) - radians(MyLongitude) ) + sin( radians(MyLatitude) ) * sin( radians( latitude ) ) ) ) AS distance FROM kindabreak HAVING distance < 150 ORDER BY distance LIMIT 0 , 20",AFFICHE_LIST)
End Sub