Sitenize Döviz Kuru ekleyin !

[wmismail]

Güle güle kullanın !

<%
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
%>
<style type="text/css">
<!--
.doeviz {font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
.style2 {
 color: #595162;
 font-weight: bold;
}
-->
</style>
<table width="166" height="166" border="0" cellpadding="0" cellspacing="0">
  <tr>
	<td width="214" height="28" background="Images/UstBugun.gif"><!--DWLayoutEmptyCell--> </td>
  </tr>
  <tr>
	<td height="119" background="Images/Orta.gif">
	  <div align="left">
		<table width="90%" border="0" align="center" cellspacing="1" bgcolor="#EFEFEF">
		  <tr>
			<td height="28" valign="top" bgcolor="#FFFFFF"><div align="center" class="style2"><font face="Verdana"><font style="font-size: 8pt">MERKEZ BANKASI<br>
  DÖVIZ KURLARI</font></font></div></td>
		  </tr>
		</table>
		<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFEFEF">
		  <tr>
			<td colspan="2" bgcolor="#FFFFFF"><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="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIS</font></td>
			<td width="100%" bgcolor="#FFFFFF" class="doeviz"><div align="left"> 
				<p align="right"> <font color="#333333" face="verdana"><%=strdolaralis%> YTL 
			</font>				</div></td>
		  </tr>
		  <tr>
			<td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIS</font></td>
			<td width="100%" bgcolor="#FFFFFF" class="doeviz"><div align="left">
				<p align="right"> <font color="#333333" face="verdana"><%=strdolarsatis%> YTL 
			</font>				</div></td>
		  </tr>
		</table>
		<table width="90%" border="0" align="center" cellspacing="0" bgcolor="#EFEFEF">
		  <tr>
			<td colspan="2" bgcolor="#FFFFFF"><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="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> ALIS</font></td>
			<td width="100%" bgcolor="#FFFFFF" class="doeviz"><p align="right"><font color="#333333"><font face="verdana"> <%=streuroalis%> YTL </font></font> </td>
		  </tr>
		  <tr>
			<td nowrap bgcolor="#FFFFFF"><font face="Verdana" style="font-size: 7pt; font-weight:700"> SATIS</font></td>
			<td width="100%" bgcolor="#FFFFFF" class="doeviz"><p align="right"><font color="#333333"><font face="verdana"><%=streurosatis%> YTL</font></font> </td>
		  </tr>
		</table>
	  </div>
  </tr>
  <tr>
	<td background="Images/Alt.gif"> </td>
  </tr>
</table>[/CODE]

[kontra]

tnctr ye de bi kenara bunu ekleseler güzel olurdu

[wmismail]

Walla buna ben yetkili olsam koyardım ama yöneticilere kalmış.

Sitenin bir yerine değil de bu youtube indir link kısatl filan olan yere kurlar diye açılıp yapılabilir.

Sadece notepad a bunları yapıştırıp kaydedip hosta atılacak. Zor bişi diil

[exit]

Evet guzel olur ama buna benzer cok sey var ve ahngi birini koyalim..

Isimiz disinda birsey ama guzel dusunulmus

[esaka]

php site yapımlarından anlıyorsun herhalde yardımcı olabilirmisin ama pm aracılıgı ile

[sk8er_boi]

php site yapımlarından anlıyorsun herhalde yardımcı olabilirmisin ama pm aracılıgı ile

Php değil bu ASP. Bizde çalışmaz.

[wmismail]

Koyacaksanız PHP de kodlarız ya

[wmismail]

Php değil bu ASP. Bizde çalışmaz.

<?
function KurGoster()
{
$dolar = "USD 1";
$mark = "EUR 1";
$dosya=file("http://www.tcmb.gov.tr/kurlar/today.html?");
for ($i=0; $i<sizeof($dosya); $i++)
{
if(ereg($dolar, $dosya[$i])) {
$alanlar = split("[[:space:]]+" , $dosya[$i]);
echo "<tr><td><b><font face=tahoma size=1>Dolar</b></td><td align=right><fontface=tahoma size=1>".$alanlar[4]."</td><td align=right><font face=tahomasize=1>".$alanlar[5]."</td></tr>";
}
if(ereg($mark, $dosya[$i])) {
$alanlar = split("[[:space:]]+" , $dosya[$i]);
echo "<tr><td><b><font face=tahoma size=1>Euro</b></td><td align=right><fontface=tahoma size=1>".$alanlar[3]."</td><td align=right><font face=tahomasize=1>".$alanlar[4]."</td></tr>";
}
}
}
?>
<table border=1>
<tr><td><b><font face=tahoma size=1>Doviz</td><td><b><font face=tahoma size=1>DovizAlis</td><td><b><font face=tahoma size=1>Doviz Sats</td></tr>
<?echo KurGoster()?>
</table>[/CODE]

Bizde kod tükenmez : )))))))))))))))))))

[cumman]

döviz kuruyla tnctr nin bir bağıntısı yok. biz fazlalıklardan kurtulmaya çalışıyoruz. amacımız sadece bilginin ve az sohbetin olduğu forumlar. Döviz kurlarını ana sayfada görmek yerine döviz kurlarının kodlarını forumlarda tartışalım.

[TECHNOLOG41]

bunları flasha eklememiz mümkün mü?

[wmismail]

ne alaka flash ?

Burdan alıp XML le flasha gömebilirim de ne için lazım ?