<% Public Function VeriAl(strGelen) Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) objVeriAl.Open "GET" , strGelen, FALSE objVeriAl.sEnd VeriAl = objVeriAl.Responsetext SET objVeriAl = Nothing End Function strAdres = "http://www.tcmb.gov.tr/kurlar/today.html" strVeri = VeriAL(strAdres) iDolar=InStr(strVeri,"USD" ) strDolarAlis=Mid(strVeri,iDolar+39,10) strDolarSatis=Mid(strVeri,iDolar+52,10) iEuro=InStr(strVeri,"EUR" ) strEuroAlis=Mid(strVeri,iEuro+39,11) 'alis strEuroSatis=Mid(strVeri,iEuro+52,11) 'satis %>

FAYDALI LİNKLER Türk Patent Enstitüsü Marka Tescil Sorgulama T.C Kimlik No Sorgulama Vergi No Sorgulama SSK Hizmet Dökümü Bağ-Kur Sigortalı Borç Durumu ADSL Kota Sorgulama ADSL Hız Testi Cep Telefonu IMEI Numarası Sorgulama Sahte Para Sorgulama Posta Kodu Sorgulama Otomobil Vergi Borcu Öğrenme Ceza Puanı ve Araç Sorgulama Nöbetçi Eczaneler Hava Durumu Döviz Kurları Alışveriş Siteleri Hepsi Burada Gitti Gidiyor E-Store Gold Bilgisayar Vatan Bilgisayar Bimeks Teknosa Gazete Siteleri Hürriyet Sabah Milliyet Cumhuriyet Akşam Türkiye Anasayfa | Kurumsal | Hizmetler | Haberler | Bayilik | İletişim | Bize Ulaşın | Canlı Satış | Site Haritası | Faydalı Linkler