Döviz ve Euro bilgilerini alma (tr)

Dec 27,2008 00:00 by RubeNiS
Yapımcı : T.C.Merkez Bankasından tarihi ile dolar ve euro kurları almak için gerekli kodlar.
Kodları .asp uzantılı kayıt edip çalıştırmanız yeterlidir.

<%
dim kaynak,bilgi_al,bilgi,yersaat,saat,yertarih,gun,ayd,yil,ay,tarihs,yerdolar,dlral,dlrst,yereuro,eroal,erost
kaynak = "http://www.tcmb.gov.tr/kurlar/today.html"
set bilgi_al = server.createobject("microsoft.XMLHTTP")
bilgi_al.open "get", kaynak, false
bilgi_al.send
bilgi = bilgi_al.responsetext
set bilgi_al = nothing
yersaat = instr(bilgi,"ced at ")
saat = trim(mid(bilgi,yersaat+7,5))
yertarih = trim(mid(bilgi,yersaat+16,10))
gun = trim(mid(yertarih,4,2))
ayd = trim(mid(yertarih,1,2))
yil = trim(mid(yertarih,7,4))
select case (ayd)
case "01":
ay = "Ocak"
case "02":
ay = "Şubat"
case "03":
ay = "Mart"
case "04":
ay = "Nisan"
case "05":
ay = "Mayıs"
case "06":
ay = "Haziran"
case "07":
ay = "Temmuz"
case "08":
ay = "Ağustos"
case "09":
ay = "Eylül"
case "10":
ay = "Ekim"
case "10":
ay = "Kasım"
case "12":
ay = "Aralık"
end select
tarihs = gun & " " & ay & " " & yil & " günü saat " & saat
yerdolar = instr(bilgi,"USD")
dlral = trim(mid(bilgi,yerdolar+37,11))
dlrst = trim(mid(bilgi,yerdolar+50,11))
yereuro = instr(bilgi,"EUR")
eroal = trim(mid(bilgi,yereuro+37,11))
erost = trim(mid(bilgi,yereuro+50,11))
%>