Madem Kimse Bişe Eklememiş Boraya ben Balim Bişeler Ekleyeyimde Benden Başka Uraşanlarda Vasa Hayrına Gitsin

Şimcik Başlorum...

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))
%>

kolay gelsin...

teşkkürler

Alıntı

---

Nurettin :
Bi gün site fln kurarsak lazım olur saol

---

yapabilcen mi

asp bu kodlar.. her yiğidin harcı değildir asp