<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<title>Derkunt Doviz</title>
</head>
<body><center>
<table bgcolor="#000000" border=0 cellpadding="4" cellspacing="1" align="center" width=300 height=100>
<tr>
<td bgcolor="#FFCC00"><center><font size=1 face=verdana><b>MERKEZ BANKASI DÖVIZ KURU</b></font></center></td>
</tr>
<tr>
<td bgcolor="#F3F0E5">
<table border=0 cellpadding="0" cellspacing="0" width=100%>
<tr>
<td></td>
</tr>
</table>
<table border=0 cellpadding="0" cellspacing="0" width=100%>
<tr>
<td>
<%
'XMLHTTP Open
private Function GETHTTP(adres)
Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" )
StrHTTP.Open "GET" , adres, false
StrHTTP.sEnd
GETHTTP = StrHTTP.Responsetext
Set StrHTTP = Nothing
End Function
'XMLHTTP Close
URL = "http://www.tcmb.gov.tr/kurlar/today.html"
bilgicek = GETHTTP(URL)
'Asagidaki Bölüm Derkunt abiniz tarafindan yazilmistir.
'Abiniz dedim yasça cogunuzdan büyük oldugumdan ukala lik için degil
a=InStr(1,bilgicek,"USD" )
dolar1=Mid(bilgicek,a+39,10) 'alis
dolar2=Mid(bilgicek,a+52,10) 'satis
dolar3=Mid(bilgicek,a+67,10) 'efektIf aiis
dolar4=Mid(bilgicek,a+80,10) 'efektIf satis
c=InStr(1,bilgicek,"EUR" )
euro1=Mid(bilgicek,c+39,11) 'alis
euro2=Mid(bilgicek,c+52,11) 'satis
euro3=Mid(bilgicek,c+67,11) 'efektIf alis
euro4=Mid(bilgicek,c+80,11) 'efektIf satis
%>
<style type="text/css">
<!--
.doeviz { font-family: Verdana, Arial, Helvetica, sans-serif; font-size: 8pt}
-->
</style>
<table width="210" border="0" cellspacing="0" cellpadding="0" class="doeviz">
<tr>
<td width="50"><b>Dolar:</b></td>
<td width="50">Alis:</td>
<td width="80"><%=dolar1 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td width="50"> </td>
<td width="50">Satis:</td>
<td width="80"><%=dolar2 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td width="50"> </td>
<td width="50"><font color="#0000FF"><nobr>Efektif Alis :</td>
<td width="80"><font color="#0000FF"><%=dolar3 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td width="50"> </td>
<td width="50"><font color="#0000FF"><nobr>Efektif Satis:</td>
<td width="80"><font color="#0000FF"><%=dolar4 %></td>
<td width="30">TL</td>
</tr>
</table>
<br>
<table width="210" border="0" cellspacing="0" cellpadding="0"
class="doeviz">
<tr>
<td width="50"><b>Euro:</b></td>
<td width="50">Alis:</td>
<td width="80"><%=euro1 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td></td>
</tr>
<tr>
<td width="50"> </td>
<td width="50">Satis:</td>
<td width="80"><%=euro2 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td width="50"> </td>
<td width="50"><font color="#0000FF"><nobr>Efektif Alis :</td>
<td width="80"><font color="#0000FF"><%=euro3 %></td>
<td width="30">TL</td>
</tr>
<tr>
<td width="50"> </td>
<td width="50"><font color="#0000FF"><nobr>Efektif Satis:</td>
<td width="80"><font color="#0000FF"><%=euro4 %></td>
<td width="30">TL</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table><br><br>
</body>
</html>