|
|
|
|
|
|
|
|
|
|
Güvenlik Açığı Bildir | Hata Bildir | Tavsiye Et | Favorilerime ekle | Yorumları takip et
|
|
TCMB Döviz Kurlarını Almak (tr) hakkında yorumlar / Yeni Yorum Yaz
| | kodun doğrusu / TCMB Döviz Kurlarını Almak - ertan - 01.10.2008 / Cevapla |
<%
Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )
objVeriAl.Open "GET" , "http://www.tcmb.gov.tr/kurlar/today.html", FALSE
objVeriAl.sEnd
strVeri = 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"><strong>
<font face="Verdana"><font color="#FF0000" style="font-size: 7pt"> DOLAR</font></font></strong></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">ALIş</font></td>
<td width="92%">
<div align="left"><font face="verdana" size="1">
<p align="right"> <%=strdolaralis%> YTL
</font></div></td>
</tr>
<tr>
<td nowrap width="7%" height="15"><font face="Verdana" style="font-size: 7pt; ">SATIş</font></td>
<td width="92%" height="15">
<div align="left"><font face="verdana" size="1">
<p align="right"> <%=strdolarsatis%> YTL
</font></div></td>
</tr>
<tr>
<td colspan="2" style="border-top: 1px solid #C0C0C0"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#E1E1E1"><strong><font face="Verdana">
<font color="#0099CC" style="font-size: 7pt"> </font><font color="#FF0000" style="font-size: 7pt">EURO</font></font></strong></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">ALIŞ</font></td>
<td width="92%">
<p align="right"><font face="verdana" size="1"> <%=streuroalis%> YTL </font></td>
</tr>
<tr>
<td nowrap width="7%"><font face="Verdana" style="font-size: 7pt; ">SATIŞ</font></td>
<td width="92%">
<p align="right"><font size="1" face="verdana"><%=streurosatis%> YTL</font><font size="1">
</font> </td>
</tr>
</table>
</body>
</html> | |
|
| | dikkatli olun / TCMB Döviz Kurlarını Almak - gerekli mi ? - 09.09.2008 / Cevapla |
kodlara bakan veya bakmayan arkadaşlar , dikkatli olsanız
Veri = objVeriAl.Responsetextsatırı
strVeri = objVeriAl.Responsetextolacak
biraz dikkat edin | |
|
| | çalıştıramadım / TCMB Döviz Kurlarını Almak - Yok - 05.06.2008 / Cevapla |
| kardeşim çalıştıramadım yardım et bunun sitenin dbsiyle fln bi ilgisi varmı | |
|
| | Çalışmıyor.. / TCMB Döviz Kurlarını Almak - Vedat AYGÜL - 02.01.2008 / Cevapla |
Merhaba;
denedim ancak alanlar boş olarak geliyor. | |
|
| | Neden Çalışmıyor??? / TCMB Döviz Kurlarını Almak - alican - 09.10.2006 / Cevapla |
| yaa kodlara filandaa baktım anladığım kadarıyla pek bi açık filan göremedim çalışması lazım ama çalıştıramadım !!! peki bişi sorcam internete atıncamı çalışıyo yoksam bu? | |
|
1 - 26 arası / 5 toplam yorum
Yorum Yaz
|
|
|
|
TCMB Döviz Kurlarını Almak (tr)