Sub GetVerifyCode (stremail As String)
Dim req As DBRequestmanager = CreateRequest
Dim cmd2 As DBCommand = CreateCommand("select_and_wa_verify_code_34567", Array("1"))
'Dim cmd1 As DBCommand = CreateCommand("select_and_wa_verify_code_34567", Array(stremail))
Dim j As HttpJob = CreateRequest.Executebatch(Array(cmd2), Null)
j.GetRequest.Timeout=60000
Wait For (req.ExecuteQuery(cmd2, 0, "UserInfo")) JobDone(j As HttpJob)
If j.Success Then
req.HandleJobAsync(j, "req")
Wait For (req) req_Result(res As DBResult)
For myrows = 0 To res.Rows.Size - 1
Dim Record() As Object = res.Rows.Get(myrows)
pub_ID = Record(0)
pub_email = Record(1)
pub_verify_code = Record(2)
pub_create_date = Record(3)
pub_first_name = Record(4)
pub_last_name = Record(5)
pub_tree_count = Record(6)
pub_water_count = Record(7)
pub_remind_me = Record(8)
pub_first_scan = Record(9)
pub_last_scan = Record(10)
pub_verified = Record(11)
pub_push_token = Record(12)
lngCorrectCode = pub_verify_code
Next
'req.PrintTable(res)
Else ....