Sub hc_ResponseError (Response As HttpResponse, Reason As String, StatusCode As Int, TaskId As Int)
Dim ReasonMessage As String
If Response <> Null Then
Try
Log(Response.GetString("UTF8"))
ReasonMessage = Response.GetString("UTF8")
Catch
Log("Failed to read error message.")
ReasonMessage = Reason
End Try
Response.Release
End If
CompleteJob(TaskId, False, ReasonMessage)
End Sub