Dim req As DBRequestManager = CreateRequest
Dim p1 As Map = CreateMap("name":"categoryname", "type":"IN", "sqlType": "INTEGER", "value":SelectedTblindex)
Dim p2 As Map = CreateMap("name":"categorydesc", "type":"IN", "sqlType": "VARCHAR", "value":txtDesc.Text)
Dim p3 As Map = CreateMap("name":"categoryimage", "type":"IN", "sqlType": "VARCHAR", "value":s)
Dim cmd As DBCommand = CreateCommand("proc_addcategory", Array(p1, p2, 1, "",p3))
Wait For (req.ExecuteCall(cmd, 0, Null)) JobDone(j As HttpJob)
If j.Success Then
Else
Log("ERROR: " & j.ErrorMessage)
End If