<%
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)
%>
TCMB DOVİZ KURLARI |
| |
ALIŞ |
SATIŞ |
| USD : |
<%=dAlis%> |
<%=dSatis%> |
| EURO : |
<%=eAlis%> |
<%=eSatis%> |