Dim Cursor1 As Cursor = Main.SQL1.ExecQuery("select * from emps where fin = 1")
Dim m As Map
Dim data As Map
Dim jg As JSONGenerator
For i = 0 To Cursor1.Rowcount -1
Cursor1.Position = i
Topic = Cursor1.Getstring("emp_mobile")
Title = "Tile"
Body = "Body "
m = CreateMap("to": $"/topics/${Topic}"$)
data = CreateMap("title": Title, "body": Body,"id":idd)
m.Put("data", data)
jg.Initialize(m)
Next
Job.PostString("https://fcm.googleapis.com/fcm/send", jg.ToString)
Job.GetRequest.SetContentType("application/json;charset=UTF-8")
Job.GetRequest.SetHeader("Authorization", "key=" & "AAAAuUAGCooxxxxxxxxx")