id = Data.Get("id")
mText = Data.Get("message")
If id <> "" Then
Log("Message From ID: " & id & ": " & mText)
Select Case mText
Case "QZ"
Dim c_zone As ResultSet
c_zone = Main.ZoneDB.ExecQuery2("select zone_id,zone_st_count from gr_ath_zones_custom where zone_id < 80", Null)
Do While c_zone.NextRow
dZone = c_zone.GetInt2(0)
dQueue = c_zone.GetInt2(1)
CallSubDelayed3(PushShared, "SendWebClientMessage", "ZR;" & dZone & ";" & dQueue, id)
Loop
c_zone.Close
Case...
End Select
End If