Select State
Case "RINGING"
Dim Mobile_Encrypt As String
Mobile_Encrypt = Encrypt(IncomingNumber)
Dim Cursor As Cursor
Cursor = xSQL.ExecQuery("select * from contact where mobile like '" &
Mobile_Encrypt
& "%' order by name COLLATE UNICODE;")
If Cursor = Null Then
Else
Dim Mobile_Decrypt As String
Mobile_Decrypt = Decrypt(Cursor.GetString("mobile"))
Log(Cursor.GetString(gsm_Decrypt))
End If