Xml ile döviz bilgisi görüntülemek [ ytl uyumlu ]
<%
Public Function VeriAl(strGelen)
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , strGelen, FALSE
objVeriAl.sEnd
VeriAl = objVeriAl.Responsetext
SET objVeriAl = Nothing
End Function
strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"
strVeri = VeriAL(strAdres)
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) 'alis
strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis
%>
//Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK
<html>
<title>Asp ile Döviz Bilgisi Görüntülemek ♀ By NomadturK</title>
<style type="text/css">
<!--
.doeviz {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
-->
</style>
<body>
<table width="100%" border="0" cellspacing="1" bgcolor="#EFEFEF">
<tr>
<td height="28" valign="top" bgcolor="#F0FCFF"><div align="center"><strong><font face="Verdana"><b><font color="#FF9900" style="font-size: 8pt">MERKEZ BANKASI<br>
DÖVİZ KURLARI</font></b></font></strong></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF">
<tr>
<td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">DOLAR</font></b></font></strong></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td>
<td width="100%" class="doeviz" bgcolor="#F0FCFF"><div align="left"> <font color="#333333" face="verdana">
<p align="right"> <%=strdolaralis%> YTL
</font></div></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td>
<td class="doeviz" width="100%" bgcolor="#F0FCFF"><div align="left"><font color="#333333" face="verdana">
<p align="right"> <%=strdolarsatis%> YTL
</font></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" bgcolor="#EFEFEF">
<tr>
<td colspan="2" bgcolor="#F0FCFF"><strong><font style="font-size: 8pt; " color="#FB921D" face="Verdana">•</font> <font face="Verdana"><b><font color="#0099CC" style="font-size: 7pt">EURO</font></b></font></strong></td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIŞ</font></td>
<td width="100%" class="doeviz" bgcolor="#F0FCFF">
<p align="right"><font color="#333333"><font face="verdana"> <%=streuroalis%> YTL </font></font> </td>
</tr>
<tr>
<td nowrap bgcolor="#F0FCFF"> <font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIŞ</font></td>
<td class="doeviz" width="100%" bgcolor="#F0FCFF">
<p align="right"><font color="#333333"><font face="verdana"><%=streurosatis%> YTL</font></font> </td>
</tr>
</table>
</body>
</html>
|
