If result.Tag = "not sent" Then 'query tag
For Each records() As Object In result.Rows
MyID = (records(result.Columns.Get("id")))
MyCity = (records(result.Columns.Get("city")))
MyProduct1 = (records(result.Columns.Get("product1")))
Log("Not Sent: " & MyID & " " & MyCity & " " & MyProduct1)
Log("Gotcha")
getFBtopic(MyCity)
Next
End If
If result.Tag = "get fbtopic" Then 'query tag
For Each records() As Object In result.Rows
MyTopic = (records(result.Columns.Get("username")))
Log("Topic: " & MyTopic)
Next
End If