Sub JobDone(Job As HttpJob)
HideKeyboard
ProgressDialogHide
If Job.Success Then
If Job.JobName = "AddToCart" Then
Else
ToastMessageShow(Job.JobName&": " & Job.GetString, True)
End If
Else
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub