Did you define adPersistXml? Try opening the file in notepad or IE.

-- 

Joe (MVP - XML)

https://mvp.support.microsoft.com/profile=8AA9D5F5-E1C2-44C7-BCE8-8741D22D17A5
"Han" <hp4444@k...> wrote in message 
news:u1gdUWDaFHA.3400@t......
> Why do you think that the file is not transmitted?
>
> -- 
> Pohwan Han. Seoul. Have a nice day.
> "GeorgeB" <GeorgeB@d...> wrote in message 
> news:2ADE1E09-73B3-4C6F-8A9A-9AA4EE590E24@m......
>> No I do not see any error message but the file is not transmitted
>> Do you have any idea?
>>
>> "Han" wrote:
>>
>>> Do you see error message?
>>>
>>> -- 
>>> Pohwan Han. Seoul. Have a nice day.
>>> "GeorgeB" <GeorgeB@d...> wrote in message
>>> news:1E43C553-54B9-4EA3-AE79-2CBC48B388BC@m......
>>> >
>>> >
>>> > "Han" wrote:
>>> >
>>> >> Try
>>> >>
>>> >> load() instead of loadXML()in DOM,
>>> >> get method instead of post method in xmlhttp.
>>> >>
>>> >> GeorgeB wrote:
>>> >> > I create a XML file with ADO filled with data from a SQL database table
>>> >> > and I
>>> >> > use
>>> >> > rsXML.Open sSQL, cnDB
>>> >> > rsXML.SAVE Dir1.Path & "\" & "Products.xml", adPersistXML
>>> >> > rsXML.Close
>>> >> >
>>> >> > When I try to send the file I get an error that it is not well formed
>>> >> > and
>>> >> > has an error in line 1
>>> >> >
>>> >> >     Dim xmlhttp1 As New MSXML2.XMLHTTP40
>>> >> >     Dim doc As New MSXML2.DOMDocument40
>>> >> >
>>> >> >     xmlhttp1.Open "GET", "HTTP://localhost/test.asp", False
>>> >> >
>>> >> >     doc.loadXML Dir1.Path & "\" & "Products.xml"
>>> >> >     If doc.parseError.errorCode Then
>>> >> >         MsgBox doc.parseError.reason & " " & doc.parseError.Line
>>> >> >         ' Do something with the error.
>>> >> >     End If
>>> >> >
>>> >> >     xmlhttp1.send doc
>>> >> >     MsgBox xmlhttp1.responseText
>>> >> >
>>> >> > The goal of this code is to upload the xml file to an IIS server
>>> >> > Any ideas about how to solve this problem?
>>> >>
>>> > I tried the solution u proposed and it did not work
>>> > Any other ideas?
>>>
>>>
>