Hi,
I have a
VB application which sends an XML file (a login) using SOAP to an ASP page. And then the ASP page checks the login, once done it returns a Text which the listening
VB application loads to a DOMDocument.
My problem is : when the
VB (client) App runs on Windows2000,
the XMLHTTP response.text method won't get the file correctly if it is encoded in ISO-8859-1.
There are question marks instead of accentued characters.
Everything works fine when the
VB (client) App runs on Windows XP...
I have tried different regional settings with no result.
Any help will be greatly appreciated!!!
////////////////////////////////////////////////////////////////
VB app:
Dim obj2XMLHTTP As New MSXML.XMLHTTPRequest
Dim str2MethodResultXML
Dim strMethodPkg2 As String
strMethodPkg2 = "<SOAP:Envelope xmlns:SOAP=""http://schemas.xmlsoap.org/soap/envelope/"">"
strMethodPkg2 = strMethodPkg2 & "<SOAP:Header></SOAP:Header>"
strMethodPkg2 = strMethodPkg2 & "<SOAP:Body><m:ImportOrders xmlns:m=""urn:soapserver/soap:AuthorizationModule"">"
strMethodPkg2 = strMethodPkg2 & "<LoginOK>" & "MyLogin" & "</LoginOK>"
strMethodPkg2 = strMethodPkg2 & "</m:ImportOrders></SOAP:Body></SOAP:Envelope>"
obj2XMLHTTP.open "post", "http://SomeURL.asp", False
obj2XMLHTTP.setRequestHeader "Content-Type", "text/xml"
obj2XMLHTTP.setRequestHeader "SOAPAction", "soapserver/soap:AuthorizationModule#ImportOrders"
obj2XMLHTTP.send strMethodPkg2
str2MethodResultXML = obj2XMLHTTP.responseText
xmldoc.async = False
xmldoc.loadXML str2MethodResultXML
/////////////////////////////////////////////////////////////////
ASP Page:
<%Set obj2XMLDOM = Server.CreateObject("Microsoft.XMLDOM")
'**uses the obj2XMLDOM object to get the login OK from the
VB app**
obj2XMLDOM.Load Request
Dim LoginOK,str2ResultXML
LoginOK = obj2XMLDOM.SelectSingleNode("SOAP:Envelope/SOAP:Body/m:ImportOrders/LoginOK").Text
LoginOK =LoginOK & "ABDzf3"
'**Connects to a database and sends the login to a stored procedure to retrieve order data**
set RsImportLine = Server.CreateObject("ADODB.Recordset")
blahblah.........
'*A loop on the recordset builds a string with XML tags**
str2ResultXML = str2ResultXML & "<ligne>" & "<SAGEOrderDetailID>" & RsImportLine.Fields.Item("OrderID").value & "</SAGEOrderDetailID>"
BlahBlah......
str2ResultXML = str2ResultXML & "</ligne>"
%>
<%
set RsImportOrders =NOTHING
'**Setting the Response.Charset value to ISO doesn't help**
'Response.Charset="ISO-8859-1"
Response.Write str2ResultXML
%>
BORIS