XML mit VBScript auslesen

[Schlumpfxy]

Hallo Frank,

vielen Dank für Deine Hilfe.. Hab das jetzt endlich geschafft. Wen es Interessiert, für den Poste ich hier die Funktion:

function readXML()
Dim XMLDoc, loadSucces, nodeList
Dim Node
Dim autoNode

Set XMLDoc = CreateObject("Msxml2.DOMDocument")
XMLDoc.async = false

'XML-datei laden
loadSucces = XMLDoc.load(Server.MapPath("hymanltd.xml"))

'Mal schauen ob er es auch richtig geladen hat
If Not loadSucces then response.write("XML-datei ist nicht wellformed!"): response.end

'Benutze XPath um XML auszulesen
Set nodeList = XMLDoc.selectNodes("//advertiser/auto")

'Ausgeben
For x= 1 to nodeList.length
  'Hole jeden <auto> Knoten
   for each autoNode in nodeList
   'Hole jeden Kindknoten
    for each Node in autoNode.ChildNodes
      'Hier kommt das, was man damit machen will...
      Response.Write Node.basename
      Response.Write ": "&Node.text
      Response.Write "<br>"
    next
  next
Next
end function