doviz bilgilerini alma

doviz bilgilerini almaKodları bir metin editörü ile .ASP uzantılı olacak şekilde kaydettikten sonra çalıştırabilirsiniz.<%dim kaynak,bilgi_al,bilgi,yersaat,saat,yertarih,gun,ay d,yil,ay,tarihs,yerdolar,dlral,dlrst,yereuro,eroal ,erostkaynak = "http://www.tcmb.gov.tr/kurlar/today.html"set bilgi_al = server.createobject("microsoft.XMLHTTP")bilgi_al.open "get", kaynak, falsebilgi_al.sendbilgi = bilgi_al.responsetextset bilgi_al = nothingyersaat = 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 selecttarihs = gun & " " & ay & " " & yil & " günü saat " & saatyerdolar = 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))%>