inp= File.OpenInput(Main.outdir,fname)
req.InitializePost(Main.hostname & "uploadform.asp", inp, size)
HttpClient1.Execute(req, 1)
...
Sub HttpClient1_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("Error " & Reason)
Log (Response)
startit
End Sub