Valuta script søges

Hej jeg sider og kunde godt tinge mig at hente valuta tal fra http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml

men det script jeg har kan jeg ikke få til at køre. og vil høre om der er en sød person her ingen der har et jeg må få som virker.

Mit script ser sådan ud..

<%
Dim objXML
'create an instance of the MSXML parser
Set objXML = Server.CreateObject("microsoft.XMLDOM")
'load up or XML file , this is stored in the same directory as the script
'in this example
objXML.Load ("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")

If objXML.parseError.errorcode = 0 Then
  set n=objXML.selectNodes("exchangerates")

  Response.Write "<table>"
  for each node in n
    Response.Write "<tr>" 
    classStr = "<b>To:</b>" & node.text
    Response.Write "<td>" & navn & "</td><td>" & classStr & " </td><td>" & level & "</td>"
    Response.Write "</tr>"
  next
  Response.Write "</table>"
Else
  Response.Write ("There was an error")
End If
Set objXML = Nothing
%>

Jeg ville geren have et script der også kun sige kun USD og så fik Amerikanske Dollar..