Begynder spg.: Udskrive to værdier

Løste det selv:

<%
Dim objXMLHTTP, objXMLDOM

'Opretter en instans af Microsoft.XMLHTTP, så det er muligt at få fat på dokumentet
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")

'Opretter en instans af Microsofts XML-parser, XMLDOM
Set objXMLDOM = Server.CreateObject("Microsoft.XMLDOM")

'Opretter forbindelse til xml-dokumentet
Call objXMLHTTP.Open("GET", "http://xxxxxxxxxxxxx/stat.xml", False)

objXMLHTTP.Send

'Lægger indholdet af dokumentet over i vores XML-parser objekt
Set objXMLDOM = objXMLHTTP.ResponseXML

' Henter alle character-elementer ud
Set characters = objXMLDOM.getElementsByTagName("channel")

'Løber igennem alle og udskriver dem
For i = 0 To characters.length - 1

    set character = characters(i)
   
    Response.Write("Name: " & character.getAttribute("name") & "<br>")
    Response.Write("Topic: " & character.selectSingleNode("topic").Text & "<br>")
    Response.Write("Users: " & character.selectSingleNode("users").getAttribute("current") & "<br>")
   
    response.write "<br/>"
     
    Set character = Nothing
   
Next

Set characters = Nothing
Set objXMLHTTP = Nothing
Set objXMLDOM = Nothing

%>