Merkez Bankasından Döviz Kurlarını Alma !

byburcuva · Yeni Üye Kayıt: 24 Ekm 2008 Mesajlar: 21

Aşağıdaki Kodlar İle Merkez Bankasından Döviz Kurlarını Çekebiliriz.

<%
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , "http://www.tcmb.gov.tr/kurlar/today.html", FALSE
objVeriAl.sEnd
Veri = objVeriAl.Responsetext
Set objVeriAl = Nothing

iDolar=InStr(strVeri,"USD" )
strDolarAlis=Mid(strVeri,iDolar+50,10)
strDolarSatis=Mid(strVeri,iDolar+51,10)

iEuro=InStr(strVeri,"EUR" )

strEuroAlis=Mid(strVeri,iEuro+38,11)
strEuroSatis=Mid(strVeri,iEuro+50,11)
%>
<html>
<title>TCMB Döviz Kurları</title>
<body>
<table width="20%" border="0" cellspacing="0" style="border: 1px solid #D7D7D7">
<tr>
<td nowrap width="99%" bgcolor="#E1E1E1" colspan="2">
 DOLAR</td>
</tr>
<tr>
<td nowrap width="7%">ALIş</td>
<td width="92%">
<div align="left">
 <%=strdolaralis%> YTL
</div></td>
</tr>
<tr>
<td nowrap width="7%">SATIş</td>
<td width="92%">
<div align="left">
 <%=strdolarsatis%> YTL
</div></td>
</tr>
<tr>
<td colspan="2" style="border-top: 1px solid #C0C0C0"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#E1E1E1">
 EURO</td>
</tr>
<tr>
<td nowrap width="7%">ALIŞ</td>
<td width="92%">
 <%=streuroalis%> YTL </td>
</tr>
<tr>
<td nowrap width="7%">SATIŞ</td>
<td width="92%">
<%=streurosatis%> YTL
 </td>
</tr>
</table>
</body>
</html>