Sub HttpClient1_ResponseSuccess (Response As HttpResponse, TaskId1 As Int)
Log("HttpClient1_ResponseSuccess")
Log("TaskId: "&TaskId1)
Log("** Headers **")
Dim Headers As Map=Response.GetHeaders
Dim i As Int
Dim Key, Value As String
For i=0 To Headers.Size-1
Key=Headers.GetKeyAt(i)
Value=Headers.GetValueAt(i)
Log(Key&" : "&Value)
Next
Response.Release
End Sub