отправка xml

[redwert]

Здравствуйте, помогите странить ошибку. Моих знаний не хватает.

Вот что имею:

Sub SendXML()

'HTTP variable
Dim myHTTP As MSXML2.xmlhttp

'HTTP object
Set myHTTP = CreateObject("msxml2.xmlhttp")

'create dom document variable
'stores the xml to send
Dim myDom As MSXML2.DOMDocument

'Create the DomDocument Object
Set myDom = CreateObject("MSXML2.DOMDocument")

'Load entire Document before moving on
myDom.async = False

'xml string variable
'replace with location if sending from file or URL
Dim myxml As String

myxml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
            "<file>" & _
            "<auth>363e5b2b2fb02543a9cedc6e4f1470bc</auth>" & _
            "<order additional_info="""" cost=""370"" data=""10.05.12"" delivery_amount="""" delivery_in_out=""370"" description=""взуття"" order_id=""2332"" pack_type=""коробка"" pay_type=""1"" payer=""1"" rcpt_build_num="""" rcpt_city_name=""Чернігів"" rcpt_contact=""Іващенко Денис "" rcpt_name=""приватна особа"" rcpt_phone_num=""0933041597"" rcpt_streer_type="""" rcpt_street_name="""" rcpt_warehouse=""4"" redelivery_payment_city=""Харків"" redelivery_type=""2"" saturday=""0"">" & _
            "<order_cont cont_description=""взуття"" height="""" length="""" weight=""2""/>" & _
            "</order>" & _
            "<file>"

'loads the xml
'change to .Load for file or url
myDom.LoadXML (myxml)

'open the connection
myHTTP.Open "post", _
"http://orders.novaposhta.ua/xml.php", False

'send the XML
myHTTP.send (myDom.xml)

'Display the response
MsgBox myHTTP.responseText

End Sub

С таким кодом компилятор пишет: Runtime error Отказано в доступе

если в строке myHTTP.send (myDom.xml) написать myHTTP.send myxml , тогда возвращяеться ответ с сервера "No XML object". А в нормальном варианте должен возвращяться ответ такого плана:

<?xml version="1.0" encoding="UTF-8"?>
<file>
<order id="9949" np_id="[наш_номер_документа]" />
<order id="9950" np_id="[наш_номер_документа]" />
</file>

Я даже не знаю в каком направлении копать чтоб исправить код.

На сайте на который отправляется xml есть пример кода на php для отправки xml на сервер, возможно он поможет:

$ch = curl_init();
curl_setopt($ch, CURLOPT_URL, 'http://orders.novaposhta.ua/xml.php');
curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($ch, CURLOPT_HTTPHEADER, Array("Content-Type: text/xml"));
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_POSTFIELDS, $xml);
curl_setopt($ch, CURLOPT_POST, 1);
curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);
$response = curl_exec($ch);
curl_close($ch);



Пожалуйста, помогите мне

[Hugo121]

Я тоже в xml мало что понимаю... Но имхо myDom.LoadXML (myxml) не проходит - в myDom.xml пусто.

[doober]

xml не валидный
Отсутствует закрытие тега <file>

myxml = "<?xml version=""1.0"" encoding=""UTF-8""?>" & _
            "<file>" & _
            "<auth>363e5b2b2fb02543a9cedc6e4f1470bc</auth>" & _
            "<order additional_info="""" cost=""370"" data=""10.05.12"" delivery_amount="""" delivery_in_out=""370"" description=""взуття"" order_id=""2332"" pack_type=""коробка"" pay_type=""1"" payer=""1"" rcpt_build_num="""" rcpt_city_name=""Чернігів"" rcpt_contact=""Іващенко Денис "" rcpt_name=""приватна особа"" rcpt_phone_num=""0933041597"" rcpt_streer_type="""" rcpt_street_name="""" rcpt_warehouse=""4"" redelivery_payment_city=""Харків"" redelivery_type=""2"" saturday=""0"">" & _
            "<order_cont cont_description=""взуття"" height="""" length="""" weight=""2""/>" & _
            "</order>" & _
            "</file>"

При внесении исправления ответ есть