Programalama > ASP


Ort. 0
Puan ver:
<%
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>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2019 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.