- Код: Выделить всё
Dim xmlDoc As New XMLHTTP
xmlDoc.open "GET", "http://www.site.ru/xml.php", False
xmlDoc.send vbNull
If xmlDoc.readyState <> 4 Or xmlDoc.status <> 200 Then MsgBox "Ошибка связи с сервером!"
MsgBox xmlDoc.responseXML.xml
Так вот, то получаю то пусто, стал искать ошибку и заметил, что когда всё правильно в getAllResponseHeaders присутствует "Content-Type: application/xml; charset=windows-1251", а когда responseXML.xml приходит пустой то "Content-Type: text/html". При этом в xmlDoc.responseText русские буквы отображаются вопросиками, и еще заметил, что первый раз запрос идёт в инет, а остальные нет, ничего понять немогу, толи где-то кешируются толи как??? Помогите, что с этим делать???