Sub ExecQuery(ScriptURL As String, QueryString As String) As ResumableSub
Dim Job As HttpJob
Job.Initialize("", Me)
Job.PostString(ScriptURL, QueryString)
Wait For (Job) JobDone(j As HttpJob)
If j.Success Then
Return True
Else
Return False
End If
End Sub