Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
job.Initialize(JobName, Me)
job.PostMultipart("http://www.xxxx.eu/yyyy/dbpwtestmultipart.php", CreateMap("pw":marco), Null )
End Sub
Sub JobDone(Job As HttpJob)
ProgressDialogHide
If Job.Success Then
Dim res As String
res = Job.GetString
Log("Response from server: " & res)
Else
Log( Job.ErrorMessage)
End If
Job.Release
End Sub