valutakurser. Hvordan får jeg dem nemmeste vist på en web side?

<%

Sub getXML(sourceFile)
 
    dim source
    set source = Server.CreateObject("Msxml2.DomDocument")
    source.async = false
    source.setProperty "ServerHTTPRequest", true
    source.load CStr(sourceFile)

    Dim Node, Base, NodeCurrency
    set Base = source.documentElement.firstChild
    For i = 0 to Base.childNodes.Length - 1                 
        response.Write Base.childNodes.item(i).getAttribute("code") & ";"
        response.Write Base.childNodes.item(i).getAttribute("desc") & ";"
        response.Write Base.childNodes.item(i).getAttribute("rate") & "<br>"
    Next
 
    set source = nothing
    set Base = nothing
 
End Sub

getXML("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")
%>

Nogen der kan fortælle mig hvad jeg skal gøre for at KUN hente 4 valuta kurser.
Selve scriptet henter/viser alle kurserne. Jeg vil gerne have kun4 af dem....




Har ingen anelse om hvordan jeg kan redigerer i den...

Forsøg med:
<%
Sub getXML(sourceFile)
 
    dim source
    set source = Server.CreateObject("Msxml2.DomDocument")
    source.async = false
    source.setProperty "ServerHTTPRequest", true
    source.load CStr(sourceFile)

    Dim Node, Base, NodeCurrency
    set Base = source.documentElement.firstChild
    For i = 0 to Base.childNodes.Length - 1 
      If Base.childNodes.item(i).getAttribute("code") = "EUR" Or Base.childNodes.item(i).getAttribute("code") = "JPY" Or Base.childNodes.item(i).getAttribute("code") = "USD" Or Base.childNodes.item(i).getAttribute("code") = "GBP" Then
        response.Write Base.childNodes.item(i).getAttribute("code") & ";"
        response.Write Base.childNodes.item(i).getAttribute("desc") & ";"
        response.Write Base.childNodes.item(i).getAttribute("rate") & "<br>"
      End If
    Next
 
    set source = nothing
    set Base = nothing
 
End Sub

getXML("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")
%>

Her hentes alle godt nok, men de vises kun, hvis de er en af de 4, du ønskede. Da der kun er 35 poster, skulle det ikke gøre synderligt forskel.

Hej igen eksperter
w13 tusend tak for hjælpen, det fungere udmærket som det skal.... Men der er lige dukket et ekstra problem.
Selve siden fungerer udmærket, men lige så snart jeg laver <!--#include file="inc_valuta.asp"-->

Så giver den fejl meget mystisk har ikke fattet en brik af det

sådan ser fejlen ud:
---------
Microsoft VBScript runtime  error '800a01f4'

Variable is undefined: 'i'

/inc_valuta.asp, line 12
----------

w13 din kode fungerer udmærket udne problemer:
her er et eksempel.
http://www.sivas.dk/inc_valuta.asp

Lyder godt. Her er svar. :)

hej igen w13
Jeg vil gerne give dig dine poin men men kan du ikke også hjælp emig den sidste fejl....???

Eller skal jeg bare oprette et helt nyt spm? :-)

prøv at skrive:

dim i

øverst i din kode

er på arbejde lige nu, men lige så snart jeg kommer hjem så tjekker det lige engang håber det hjælper.

w13 tusend tak for hjælpen nu fungere den uden problemer

Lyder godt. Tak for point