<%
If session("doviz")="" Then
Set kurlar = Server.CreateObject("msxml2.DOMDocument" )
kurlar.async = false
kurlar.resolveExternals = false
On Error Resume Next
kurlar.setProperty "ServerHTTPRequest" ,true
kurlar.load("http://www.tcmb.gov.tr/kurlar/today.xml" )
Set sonuc =kurlar.getElementsByTagName("Currency" )
dolaralis=sonuc.item(0).childnodes.item(3).nodeTyp edValue
dolarsatis=sonuc.item(0).childnodes.item(4).nodeTy pedValue
euroalis=sonuc.item(11).childnodes.item(3).nodeTyp edValue
eurosatis=sonuc.item(11).childnodes.item(4).nodeTy pedValue
session("dolaralis")=dolaralis

session("doviz") = "<b>Alış</b><br>1 EUR : <font color=red>" & euroalis & "</font> YTL<br>1 USD : <font color=red>"&dolaralis&"</font> YTL<br><b>Satış</b><br>1 EUR : <font color=red>"&eurosatis&"</font> YTL<br>1 USD : <font color=red>"&dolarsatis&"</font> YTL"
End if
%>

bu asp kodları diğer dillerde de düzenlenebilir. bu değerler anlık olarak değişir