<% Dim Cagir, Veri, dAlis, dSatis, eAlis, eSatis, Url, kur1, kur2, usd, euro const Request_GET = 2 Url = "http://www.tcmb.gov.tr/kurlar/today.html" Set Cagir = Server.CreateObject("Softwing.AspTear") Veri = Cagir.Retrieve(Url,Request_Get, "","","") if Err <> 0 then Response.Write "TCMB Döviz KURLARI ALINAMADI"& Err.Description REsponse.End end if kur1 = Instr(1,Veri,"ABD DOLARI") dAlis = Mid(Veri,kur1+24,15) dSatis = Mid(Veri,kur1+40,15) kur2 = Instr(1,Veri,"EURO") eAlis = Mid(Veri,kur2+26,15) eSatis = Mid(Veri,kur2+40,15) %>

CBRT Exchange Rates

 
BUYING
SELLING

USD

<%=dAlis%>
<%=dSatis%>

EURO

<%=eAlis%>
<%=eSatis%>