Hentning af XML data og visning i ASP

Hej Eksperter,

Jeg ønsker at hente udvalgte valutakurser fra Nationalbankens XML-dokument, som tidligere er blevet behandlet i dette forum. Jeg har fået vist disse på min egen browser men fandt ud af, at der er noget, som hedder serverside scripting, så nu er jeg ovre i ASP, men nu jeg kan ikke få vist de data, som jeg ønsker at udvælge. Jeg har fået blandet ASP- og Java Script sammen og har behov for hjælp. Koden ser sådan ud:

<%
Option Explicit
Dim objXml, objXMLDOM, currNodes, i, code, desc, rate

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


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

'Opretter forbindelse til xml-dokumentet
Call objXml.Open("GET", "http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml", False)

objXml.Send

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


'Henter alle valutakurs-elementer ud
Set currNodes = objXMLDOM.getElementsByTagName("currency")

'Løber alle valutakurs-elementer igennem og udskriver dem
'Attributter hentes med getAttribute("attributnavn")
For i = 0 To currNodes.length - 1

    set currNodes = currNodes(i)

    set code = currNodes.getAttribute("code")
    set desc = currNodes.getAttribute("desc")
    set rate = currNodes.getAttribute("rate")
   
    if code = "USD" Then usd = rate
    if code = "EUR" Then eur = rate
    if code = "SGD" Then sgd = rate
    if code = "CNY" Then cny = rate

   
    Response.Write("USD: " & usd & "<br>")

Next
   
    Set currNodes = Nothing
   
Set objXMLHTTP = Nothing
Set objXMLDOM = Nothing
%>

Mvh
UND