Sub hc_ResponseSuccess (Response As HttpResponse, TaskId As Int)
Dim mp As Map
Response.GetAsynchronously("response", File.OpenOutput(TempFolder, TaskId, False), True, TaskId)
mp.Initialize
mp = Response.GetHeaders
File.WriteMap(TempFolder, TaskId & "mp", mp)
End Sub