1 - Xml ile döviz bilgisi görüntülemek [ ytl uyumlu ]

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 &#9792; By NomadturK
<html>
<title>Asp ile Döviz Bilgisi Görüntülemek &#9792; 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&Ouml;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>

 

 
Reklam
 
 

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=