Dim f As Integer
        Dim stm As ADODB.Stream
        
 300          Set stm = New ADODB.Stream
 310          stm.Open
 320          stm.Charset = "Windows-1251"
 330          stm.Type = adTypeBinary
 340          stm.Write objSrvHTTP.responseBody
 350          stm.Position =  0 
        
 360          stmp = modFiles.FileTempCreate
 370          stm.SaveToFile stmp, adSaveCreateOverWrite
        
 380          f = FreeFile
 390          Open stmp For Input Access Read Lock Read Write As f
 400          s = input$(LOF(f), f)
 410          Close #f
        
 420          ResponseMsg = s

 450      If GetHTTPStatus(objSrvHTTP.Status) = httpOK Then
 451          s = VBA.Trim$(s)
 454          i = CLng(VBA.InStr( 1 , s, "<?xml"))
            If i =  0  Then i =  1 
 452          s = VBA.Mid$(s, i)
 453          s = VBA.Trim$(s)
            If VBA.InStr( 1 , s, "<error>") Or VBA.InStr( 1 , s, "<locked>") Then
                'ñèñòåìíûå îøèáêè
                
            Else
 460          fINI = App.Path & "\gate.ini"
 470          mINI.INIPath = fINI
 480          bEncode = CBool(Val("" & mINI.GetVal("Params", "UseEncoding")))
 490          Encoding = mINI.GetVal("Params", "Encoding")
 500          If bEncode Then
 530              j = CLng( 0  & VBA.InStr( 1 , s, ">"))
 540              s2 = VBA.Mid(s, j +  1 )
 550              s = "<?xml version=""1.0"" encoding=""" & Encoding & """ ?>" & s2
            End If
 560          DTD = VBA.Trim$("" & mINI.GetVal("Params", "DTD"))
 570          If Len(DTD) >  0  Then
 580              i = VBA.InStr( 1 , s, "<!")
                If i >  0  Then
 590                  s1 = VBA.Mid(s,  1 , i -  1 )
 600                  j = VBA.InStr(i +  1 , s, ">", vbTextCompare)
 610                  s2 = VBA.Mid(s, j +  1 )
 620                  s = s1 & "<!DOCTYPE package SYSTEM """ & DTD & """>" & s2
                Else
 601                  j = VBA.InStr( 2 , s, ">", vbTextCompare)
 602                  s1 = VBA.Left(s, j)
 603                  s2 = VBA.Mid(s, j +  1 )
 604                  s = s1 & "<!DOCTYPE package SYSTEM """ & DTD & """>" & s2
                End If
            End If
            End If
 630          DOMDocCreateObject = CBool(Val("" & mINI.GetVal("Params", "DOMDocCreateObject")))
 640          If DOMDocCreateObject Then
 650              Set objXMLReceive = VBA.CreateObject("MSXML2.DOMDocument")
            Else
 660              Set objXMLReceive = New MSXML2.DOMDocument
            End If
 670          objXMLReceive.async = False
 680          b = objXMLReceive.loadXML(s)
 690          objXMLReceive.setProperty "SelectionLanguage", "XPath"