Notifikationer

Markér alle som læst Log ud

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 ?

Synes godt om

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

Synes godt om

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>

Synes godt om

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 ?

Synes godt om

drukkenbolden Nybegynder

29. oktober 2004 - 10:49 #4

og er det USD kursen den henter ?

Synes godt om

mortency Nybegynder

29. oktober 2004 - 11:34 #5

http://www.eksperten.dk/spm/216671
http://eksperten.dk/spm/336797

Synes godt om

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

Synes godt om

drukkenbolden Nybegynder

29. oktober 2004 - 12:18 #7

ja men det viser mig ikke lige hvordan jeg gemmer kursen fra dette eksempel ?

Synes godt om

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

Synes godt om

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 !

Synes godt om

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

Synes godt om

drukkenbolden Nybegynder

29. oktober 2004 - 12:52 #11

felterne i db hedder flg:

tabel: valuta

row / feldt: usd

Synes godt om

mortency Nybegynder

29. oktober 2004 - 13:01 #12

Skal du kun ha inn usd?

Synes godt om

drukkenbolden Nybegynder

29. oktober 2004 - 13:02 #13

Synes godt om

mortency Nybegynder

29. oktober 2004 - 13:33 #14

Se her -> http://eksperten.dk/spm/189687 Den kan du bare kopiere og endre litt på.

Synes godt om

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.

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS