<%
Response.Expires=-1
On Error Resume Next
Set kurlar = Server.CreateObject("msxml2.DOMDocument" )
kurlar.async = false
kurlar.resolveExternals = false
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).nodeTypedValue
dolarsatis=sonuc.item(0).childnodes.item(4).nodeTypedValue
euroalis=sonuc.item(11).childnodes.item(3).nodeTypedValue
eurosatis=sonuc.item(11).childnodes.item(4).nodeTypedValue
%>
| Dolar : |
<%=dolaralis%> |
- |
<%=dolarsatis%> |
| Euro : |
<%=euroalis%> |
- |
<%=eurosatis%> |