Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Log("ResponseError: " & Reason & ", status code: " & StatusCode)
Try
Dim j As String = Response.GetString
If j <> "" Then Reason = j
Catch
Reason = "(Error decoding response)"
End Try
CompleteJob(TaskId, False, Reason, Response)
End Sub