Hej!

Jag har under ett par timmar försökt öppna och läsa ur en xml-fil som jag har, men utan resultat. Tycker att jag gör precis så som i de exempel jag sett på flera olika websidor, men uppenbarligen missar jag något.

Vad är fel?
/Gustaf

Kod ------------------->

Set fso=Server.CreateObject("Scripting.FileSystemObject")

function getXml(xmlPath)
dim xmlDoc
dim isValid

set xmlDoc = Server.CreateObject("Msxml2.DOMDocument.3.0")
xmlDoc.async = false
xmlDoc.load server.mapPath(xmlPath)
isValid = cBool(xmlDoc.parseError.errorCode = 0)
if not isValid then
response.write getXMLError(xmlDoc)
end if

set getXml = xmlDoc
end function

function getXMLError(xmlDoc)
getXMLError = "felkod m.m."
end function


if not fso.FileExists(Server.MapPath("tpo-export.xml")) then
response.Write "No xml to be found"
else
response.Write "Found xml" 'Detta skrivs ut

Dim xmlDocument, xmlSupplierList
set xmlDocument = getXml("tpo-export.xml")

set xmlSupplierList = xmlDocument.documentElement.selectNodes("Supplier")
for each supplierId in xmlSupplierList
response.Write "äntligen!" 'Skrivs ej ut
next
end if

XML ------------------->

<Partner Name="MyPartner">
<BaseImageUrl/>
<BaseModelUrl/>
<Suppliers>
<Supplier Name="MySupplier" LogoUrl="TM.gif" DefaultLanguage="en">
<SupplierUrl>www.supp.xx</SupplierUrl>
<SupplierLanguages>
<SupplierLanguage Code="en" SupplierName="MySupp"/>
</SupplierLanguages>
</Supplier>
</Suppliers>
</Partner>

Vad blir felet?

Första jag tänkte på är läsrättigheter i den katalog som filen ligger i på webbsajten..

Löste det, men tack ändå.

längst ner i asp-koden finns en loop som skall skriva ut "äntligen" för varje objekt den hittar i listan, men det skrevs aldrig ut.

Dels fick jag ta bort documentElement i
set xmlSupplierList = xmlDocument.documentElement.selectNodes("Supplier")
och dessutom kunde jag inte gå direkt till Supplier objektet i xml-filen, utan måste stega mig fram dit från roten.