TCMB Değişen Döviz Kodları – Asp ( Kod )

Merkez Bankasının günlük güncellenen döviz fiyatlarını ( USD ( Dolar ) – Euro  – Sterlin ) asp ile çekebilmeniz için gerekli kod satırı

<%
‘XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject(“Microsoft.XMLHTTP” )
StrHTTP.Open “GET” , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
‘XMLHTTP Close
URL = “http://www.tcmb.gov.tr/kurlar/today.html”

bilgicek = GETHTTP(URL)

a=InStr(1,bilgicek,”USD” )

dolar1=Mid(bilgicek,a+45,10)
dolar2=Mid(bilgicek,a+60,10)

b=InStr(1,bilgicek,”GBP” )

sterlin1=Mid(bilgicek,b+35,15)
sterlin2=Mid(bilgicek,b+50,15)

c=InStr(1,bilgicek,”EUR” )

euro1=Mid(bilgicek,c+44,11)
euro2=Mid(bilgicek,c+59,11)

d=InStr(1,bilgicek,”USD/EUR” )

kur1=Mid(bilgicek,d+42,13)

%>
<style>
table {font-family: arial; font-size: 11;}
a {color: #000000; text-decoration: bold}
a:hover {color: #FF0000}
body {font-family: arial; font-size: 11;}
h2 {color: #000000}
<!–
a{text-decoration:none}
//–>
</style>
<table border=”0″ cellpadding=”0″ cellspacing=”0″ style=”border-collapse:

collapse” bordercolor=”#111111″ width=”131″ id=”AutoNumber2″ height=”43″>
<tr>
<td width=”64″ height=”20″ style=”border-left-style:none;

border-left-width:medium; border-right-style:none;

border-right-width:medium; border-bottom-style:none;

border-bottom-width:medium” rowspan=”2″ valign=”top”>
<b><font size=”1″ face=”Verdana”>Dolar</font></b></td>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><%=dolar1

%></td>
</tr>
<tr>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><font

color=”#808080″><%=dolar2 %></td>
</tr>
<tr>
<td width=”64″ height=”20″ style=”border-style: none; border-width:

medium” rowspan=”2″ valign=”top”>
<b><font size=”1″ face=”Verdana”>Euro</font></b></td>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><%=euro1

%></td>
</tr>
<tr>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><font

color=”#808080″><%=euro2 %></td>
</tr>
<tr>
<td width=”64″ height=”20″ style=”border-style: none; border-width:

medium” rowspan=”2″ valign=”top”>
<b><font size=”1″ face=”Verdana”>Sterlin</font></b></td>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><%=sterlin1

%></td>
</tr>
<tr>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”><font

color=”#808080″><%=sterlin2 %></td>
</tr>
<tr>
<td width=”64″ height=”10″ style=”border-style: none; border-width:

medium”>
<b><font size=”1″ face=”Verdana”>USD/EUR </font></b></td>
<td width=”67″ height=”10″><font size=”1″ face=”Verdana”

color=”#C0C0C0″><%=kur1 %> </td>
</tr>
</table>