XML Vaulta

Der findes flere scripts her på E, som henter informationer ud fra nationalbanken.dk
En af disse burde virke :o)

http://www.eksperten.dk/spm/588479
http://www.eksperten.dk/spm/555732
http://www.eksperten.dk/spm/562244

Ja men det er forkert det de laver

Her et eksemple som ligger data ind i en tabel:

<%
Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Set objXMLDOM = Server.CreateObject("Microsoft.XMLDOM")
Call objXMLHTTP.Open("GET", "http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml", False)
objXMLHTTP.Send
Set objXMLDOM = objXMLHTTP.ResponseXML

If objXMLDOM.parseError.errorcode = 0 Then
  'Udskriver datoen for kurserne i filen
  set datoen = objXMLDOM.getElementsByTagName("dailyrates")
  Response.Write "Dato : " & datoen(0).getAttribute("id")
  Response.Write "<br>"

  'Udskriver valuta data her
  set n=objXMLDOM.getElementsByTagName("currency")
  Response.Write "<table>"
  Response.Write "<tr><td>Code</td><td>Beskrivelse</td><td>Rate</td></tr>"
  for each node in n
    Response.Write "<tr>" 
    Response.Write "<td>" & node.getAttribute("code") & "</td>"
    Response.Write "<td>" & node.getAttribute("desc") & "</td>"
    Response.Write "<td>" & node.getAttribute("rate") & "</td>"
    Response.Write "</tr>"
  next
  Response.Write "</table>"
Else
  Response.Write ("There was an error")
End If
Set objXMLHTTP = Nothing
Set objXMLDOM = Nothing
%>

eagleeye igen igen, også en kode til at forstår, Takker mange gange, lav lige et svar så du kan få nogen point. :-)

Det lyder godt :-)
Så kommer der lige et svar.