Sub cmdSend_Click
If txtFeedback.Text = "" Then
Msgbox("You Didn't Give Any Feedback To Submit !!!", "No Feedback")
Else
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_feedback"
If spnType.SelectedItem = "FEEDBACK" Then
cmd.Parameters = Array As Object(txtFeedback.Text, 2, Starter.USER_ID, Starter.DEV_LAT_STAT, Starter.DEV_LNG_STAT)
Else If spnType.SelectedItem = "COMPLAIN" Then
cmd.Parameters = Array As Object(txtFeedback.Text, 1, Starter.USER_ID, Starter.DEV_LAT_STAT, Starter.DEV_LNG_STAT)
End If
Starter.reqManager.ExecuteCommand(cmd, "F")
Wait For(Job) JobDone(Job As HttpJob)
If Job.Success Then
Log("Inserted successfully!")
End If
Job.Release
End If
End Sub