<? 
error_reporting(E_ALL); 
function tcmb($bakilacak,$site) 
{ 
$fp=@fopen($site,"r"); 
  if($fp) 
  { 
     while(!feof($fp)) 
     { 
     $satir=fgets($fp,512); 
     $code=substr($satir,0,3); 
        if($code==$bakilacak) 
        { 
        $sonuc=split("[[:space:]]+",$satir); 
        $doviz[1]=substr($sonuc[4],0,9); 
        $doviz[2]=substr($sonuc[5],0,9); 
        $doviz[3]=substr($sonuc[3],0,9); 
        $doviz[4]=substr($sonuc[4],0,9); 
        return $doviz; 
        } 
     }//end while 
  }//end fp 
}//end function 
$usd_doviz=tcmb('USD','http://www.tcmb.gov.tr/kurlar/today.html'); 
$eur_doviz=tcmb('EUR','http://www.tcmb.gov.tr/kurlar/today.html'); 
?> 
<table cellpadding=0 cellspacing=0 align=center style="border:1px solid #000000;font-family:verdana;font-size:10px;width:175;"> 
<tr><td colspan=3 bgcolor="#FFFFCC" align="center" style="font-weight:bold;">DÖVYZ KURLARI</td></tr> 

<tr bgcolor="#E9E9E9"> 
<td style="font-weight:bold;">Dolar:</td><td><? echo $usd_doviz[1];?></td><td><?echo $usd_doviz[2];?></td> 
</tr> 
<tr bgcolor="#F3F3F3"> 
<td style="font-weight:bold;">Euro:</td><td><? echo $eur_doviz[3];?></td><td><?echo $eur_doviz[4];?></td> 
</tr> 

</table>