Programalama > ASP

<% 
'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 "Istanbulluu" Kardesimizin yazdigi Code' dan alinmistir 
'http://www.maxiasp.com/konuu.asp?id=145&durum=aciklama&bolum=ASP%20ve%20Kodlamalar 

a=InStr(1,bilgicek,"USD" ) 

dolar1=Mid(bilgicek,a+39,10) 
dolar2=Mid(bilgicek,a+52,10) 

c=InStr(1,bilgicek,"EUR" ) 

euro1=Mid(bilgicek,c+37,11) 
euro2=Mid(bilgicek,c+52,11) 
%> 
<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">Dollar:</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> 
</table> 
<br> 
<table width="210" border="0" cellspacing="0" cellpadding="0" 
class="doeviz"> 
<tr> 
<td width="50">Euro:</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> 
</table>