Søg
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 10:15 Der er 14 kommentarer og
1 løsning

Valuta i asp

Hejsa

Er der nogen der ved hvordan jeg med et asp træk, kan hente usd kursen fra eks. national banken med et asp script ?
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 10:15 #1
Jeg fandt et vba script, ved ik om det hjælper

Function FindValutakurs(ISO)
 
  ' URL til XML-fil
  xmlfil = "http://www.nationalbanken.dk"
  xmlfil = xmlfil & "/dndk/valuta.nsf/valuta.xml"
 
  ' Brug Microsofts MSXML
  Set doc = CreateObject("msxml2.DOMDocument")
  doc.async = False
 
  ' Hent fil
  doc.Load xmlfil
 
  ' Find og returner kurs ved hjælp af XPATH
  Set noder = doc.selectNodes _
  ("//currency[@code='" & ISO & "']")
  FindValutakurs = Val(noder(0).Attributes. _
  getNamedItem("rate").Text)
 
End Function
Avatar billede mortency Nybegynder
29. oktober 2004 - 10:37 #2
Lav en fil, du kalder 'valuta.xsl'. Copy/paste denne kode ind i dokumentet:

<?xml version="1.0" encoding="ISO-8859-1"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
<xsl:template match="/">
  <html>
  <body>
    <table cellspacing="0" cellpadding="5" border="1">
      <tr bgcolor="#66ccff">
        <th align="left">Kode</th>
        <th align="left">Møntfod</th>
        <th align="right">Kurs</th> 
      </tr>
      <xsl:for-each select="exchangerates/dailyrates/currency">
      <tr>
        <td><xsl:value-of select="@code" /></td>
        <td><xsl:value-of select="@desc" /></td>
        <td align="right"><xsl:value-of select="@rate" /></td>
      </tr>
      </xsl:for-each>
  </table>
  </body>
  </html>
</xsl:template>
</xsl:stylesheet>

Lav endnu et dokument med denne kode:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
    "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Valuta Kurser</title>
<script type="text/JavaScript">
function getRates() {
    var xmlDoc = new ActiveXObject("Microsoft.XMLDOM")
    xmlDoc.async = false
    xmlDoc.load("http://www.nationalbanken.dk/dndk/valuta.nsf/valuta.xml")
   
    var xslDoc = new ActiveXObject("Microsoft.XMLDOM")
    xslDoc.async = false
    xslDoc.load("valuta.xsl")
   
    document.write( xmlDoc.transformNode(xslDoc) );
}
</script>
</head>
<body>

<div>
    <script type="text/javascript">getRates()</script>
</div>

</body>
</html>
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 10:48 #3
hvordan får jeg denne kurs skrevet i en db ?

jeg kan godt i asp men hvis du lige kan vise mig hvordan jeg gemmer den evt i en variabel så jeg kan tage den med asp længere nede på den side ?
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 10:49 #4
og er det USD kursen den henter ?
Avatar billede mortency Nybegynder
29. oktober 2004 - 11:34 #5
http://www.eksperten.dk/spm/216671
http://eksperten.dk/spm/336797
Avatar billede mortency Nybegynder
29. oktober 2004 - 11:35 #6
Den henter alle kursene fra xml skjemaet.

Kode Møntfod Kurs
EUR Euro 743.42
USD Amerikanske Dollar 584.86
GBP Britiske Pund 1068.59
SEK Svenske Kroner 82.21
NOK Norske Kroner 90.73
ISK Islandske Kroner 8.44
CHF Schweiziske Franc 485.39
CAD Canadiske Dollar 476.37
JPY Japanske Yen 5.4987
AUD Australske Dollars 434.06
NZD New Zealand. Dollar 398.72
EEK Estiske Kroon 47.51
LVL Lettiske Lats 1102.51
LTL Litauiske Litas 215.31
PLN Polske Zloty 171.20
CZK Tjekkiske Koruna 23.51
HUF Ungarske Forint 3.02
HKD Hongkong Dollar 75.15
SGD Singapore Dollar 351.48
SDR Special Drawing Rights 874.78
BGN Bulgarske lev 380.11
CYP Cypriotiske pund 1289.99
MTL Maltesiske lira 1725.67
ROL Rumænske lei 0.0182
SIT Slovenske tolar 3.10
SKK Slovakiske koruna 18.61
TRL Tyrkiske lira 0.00040
KRW Sydkoreanske won 0.5187
ZAR Sydafrikanske rand 94.67
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 12:18 #7
ja men det viser mig ikke lige hvordan jeg gemmer kursen fra dette eksempel ?
Avatar billede mortency Nybegynder
29. oktober 2004 - 12:41 #8
Ret denne kode til, og så virker det...:

    Dim XMLDoc, rootNode, Visitor, Felt, Counter
    Set XMLDoc = Server.CreateObject("Microsoft.XMLDOM")
    XMLDoc.async = False
    XMLDoc.load(Server.MapPath("Guestbook.xml"))
    Counter = -1
    Set rootNode = XMLDoc.documentElement
    If rootNode.hasChildNodes() then   
      Response.Write "<TABLE WIDTH='400' BORDER='1'>"
          Response.Write "<FORM ACTION='./DeleteNode.asp' METHOD='Post'>"
            For Each Visitor in rootNode.childNodes
        Counter = Counter + 1
        For Each Felt in Visitor.childNodes
            If "NAME" = Felt.NodeName Then
                      Response.Write "<TR><TD ROWSPAN=2><INPUT TYPE='Radio' NAME='Besked' VALUE=" & Counter & "></TD><TD>Navn: " & Felt.Text & "</TD></TR>"
            ElseIf "DATO" = Felt.NodeName Then
              Response.Write "<TR><TD>Dato: " & Felt.Text & "</TD></TR>" & Chr(13) & Chr(10)
            End if
        Next
            Next
    Response.Write "</TABLE><BR>"
    Response.Write "<INPUT TYPE='Submit' VALUE='Slet Besked'>"
    Response.Write "</FORM>"
   
    Else
      Response.Write "Der er ingen beskeder i gæstebogen."   
    End If
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 12:44 #9
mortency >> jeg er nok lidt dum ! men jeg programmer ik til dagligt, så jeg skal næsten have det serveret på et sølvfad, jeg kan godt give dig lidt flere point hvis det er !
Avatar billede mortency Nybegynder
29. oktober 2004 - 12:50 #10
Skønner skal lage det for deg hva heter feltene i databasen det skal inn i?

Du kan også lære mer her: http://www.w3schools.com/xpath/default.asp
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 12:52 #11
felterne i db hedder flg:

tabel: valuta

row / feldt: usd
Avatar billede mortency Nybegynder
29. oktober 2004 - 13:01 #12
Skal du kun ha inn usd?
Avatar billede drukkenbolden Nybegynder
29. oktober 2004 - 13:02 #13
ja
Avatar billede mortency Nybegynder
29. oktober 2004 - 13:33 #14
Se her -> http://eksperten.dk/spm/189687 Den kan du bare kopiere og endre litt på.
Avatar billede drukkenbolden Nybegynder
02. november 2004 - 11:50 #15
mortency >> tak for hjælpen men jeg fik det ik til at virke så jeg fandt en anden måde med php i stedet, men du gjorde en stor indsats så du får pointene alligevel.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 20:40 Access udskrift mangler del af ramme om post. Af Uvanga i Access
I går 12:36 nulstille Samsung tablet T-580 Af fase i Tablet
23/1017:19 Kender I "Dropbox" ? Af Ikke-ekspert i Andet software
23/1016:28 Indsæt en kort video i Outlook 2024 Af ErikHg i E-mail programmer
22/1019:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
White papers
Flere white papers »