Skapar xml fil enligt nedan (en del kod bortagen)

<code>
Dim oDOM
Dim oRootNode
Dim oEntryNode
Dim oDetailsNode
dim sXMLFile

Set oDOM = Server.CreateObject("Microsoft.XMLDOM")
oDOM.async = false

sXMLFile = "xmlfiles/data.xml"

oDOM.load server.mappath(sXMLFile)

oDOM.loadXML "<document/>"

Set oEntryNode = oDOM.documentElement.AppendChild(oDOM.createElement("customer"))

dim i
for i = 0 to rs.fields.count - 1

Set oDetailsNode = oEntryNode.appendChild(oDOM.createElement("fld_" & rs.fields(i).name))
oDetailsNode.Text = rs(i)

' *** lite borttagen kod

Next

oDOM.Save Server.MapPath(sXMLFile)
</code>

Denna koden fungerar utmärkt och skapar xml-filen precis som den skall men denna xmlfil skall mailas till en mottagare och i deras mailprogram så blir det fel när filen tas emot. I stället för en bifogad fil syns nedanstående text, (trimmad för att inte bli så stor)



begin 666 data.xml
M/&1O8W5M96YT/CQC=7-T;VUE<CX\9FQD7V-U<W1?:60^>S=&030R,$%!+34P
end

Om jag däremot lägger till
<code>
<?xml version="1.0" encoding="iso-8859-1"?>
</code>
överst i xmlfilen (manuellt) och mailar den så uppstår inte problemen

Frågan är nu hur jag med hjälp av XMLDOM skall kunna få in denna raden överst i xmlfilen innan den sparas ner. Är antagligen något jag missar i starten vid skapandet av filen.
Har inte tillgång till .NET på servern (än så länge)

TIA

Lägg in detta:

<code>
'Sätt processingInstruction
Set pi = oDOM.createProcessingInstruction("xml", "version=""1.0"" encoding=""ISO-8859-1""")
oDOM.insertBefore pi, oDOM.childNodes.Item(0)
</code>

Tackar! Precis det som saknades!