---

At MSXML2 stripper encoding-attributter af data i DOM, når man kalder f.eks. .XML eller
..responseText er dokumenteret. Til gengæld er det ikke lykkedes mig at konstatere, hvorfor
XML der indlæses med nedenståede bliver konverteret til UTF-8, på trods af at
encoding-attributten bibeholdes?

Alt input, inklusive eventuelle alternative metoder at modtage XML'en på, er velkomment!

/Tobias

Public Function Load()
Set XmlDoc = Server.CreateObject("MSXML2.DOMDocument")

With xmlDoc
.async = False
.setProperty "ServerHTTPRequest", true
.validateOnParse = False
.resolveExternals = False
.load(Request)

tmpName = tmpFile.GenerateName(tmpFile.Directory)
.save(Server.MapPath(tmpFile.Directory & tmpName))
Set File = FSO.OpenTextFile(Server.MapPath(tmpName), 1)
Data = File.ReadAll()
File.Close
End With

Set File = Nothing
Set File = FSO.OpenTextFile(Server.MapPath("log.txt"), 8, True)

File.WriteLine("**********")
File.WriteLine(Now)
File.WriteLine(tmpName)
File.WriteLine("- Data ---")
File.WriteLine(Trim(Data))

If Err.Number > 0 Then
File.WriteLine("- Error --")
File.WriteLine(Err.Description)
End If

File.WriteLine("**********")
File.Close

Set File = Nothing
Set xmlDoc = Nothing

Load = Data
End Function

---

Det viser sig, at der er mere end én måde at afsende XML med ServerXMLHTTP, og kun den ene
(sidste) respekterer dokumentets encoding, jf.
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk/htm/xml_mth_sz_8pr
k.asp

'xmlHttp.Send(xmlDoc.xml) 'This will strip the encoding attribute from the XMP PI
xmlHttp.Send(xmlDoc)


/Tobias