Hi!

I posted this message in microsoft.public.xml.soapsdk yesterday, sorry for
x-postig, but it seems that most messages there are written in Chinese.


I want to send a textstream to an URL endpoint.
I use this code:

Public Function RA_Interface()
    Dim sPath, HTTPob
    Dim Kopf As String, Fuss As String, xml As String
    Dim cn As adodb.Connection, rs As adodb.Recordset

    ' XML header, see below
    Kopf = Nz(DLookup("Wert", "T_Parameter", "Parameter = 'XML_Kopf'"), "")
    ' XML fooder, see below
    Fuss = Nz(DLookup("Wert", "T_Parameter", "Parameter = 'XML_Fu?'"), "")

    ' XML data
    xml = "    <Articles>" & z & "        <Article>"
    xml = xml & z & "            <ArticleID>123</ArticleID>"
    xml = xml & z & "            <Name>???</Name>"
    xml = xml & z & "        </Article>" & z & "    </Articles>"

    xml = Kopf & xml & Fuss

    Set HTTPob = CreateObject("MSXML2.XMLHTTP")
    sPath = "http://localhost/PDB_Interface.aspx"
    HTTPob.Open "POST", sPath, False
    HTTPob.send "" & xml
    Set HTTPob = Nothing
End Function


The resulting string looks like this:

<?xml version="1.0" encoding="ISO-8859-1"?>
<SOAP-ENV:Envelope
xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/"
xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/">
<SOAP-ENV:Body>
<Articles>
<Article>
<ArticleID>123</ArticleID>
<Name>???</Name>
</Article>
</Articles>
</SOAP-ENV:Body>
</SOAP-ENV:Envelope>

Everything works fine, the only problem I have is the character
encoding. Special characters like the German Umlaute are not recognized.
I did not find a property for the XMLHTTP object where I can set the
charset.

Who can help me?

Thank you,
Alex