WEB SAYFANIZA ONLİNE DÖVİZ KURU

[Hazır Kod]Asp Sayfalarınıza Online Döviz Kuru Bu işlemi yapan ASP dosyasının kodlarını kopyalarak istediğiniz bir sayfa ismi ile oluşturabilirsiniz.************************ Kod Başlangıcı ************************strAdres = "http://www.tcmb.gov.tr/kurlar/today.html"Public Function VeriAl(strGelen)Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" )With objVeriAl  .Open "GET" , strGelen, FALSE  .sEndVeriAl =  .ResponsetextEnd WithSET objVeriAl = NothingEnd FunctionstrVeri = VeriAL(strAdres)iDolar=InStr(strVeri,"USD" )strDolarAlis=Mid(strVeri,iDolar+50,10)strDolarSatis=Mid(strVeri,iDolar+51,10)iEuro=InStr(strVeri,"EUR" )strEuroAlis=Mid(strVeri,iEuro+38,11)strEuroSatis=Mid(strVeri,iEuro+50,11)%>  DOLAR ALIş

YTL

SATIş

YTL

   EURO ALIş

YTL

SATIş

YTL

Döküman Arama

Başlık :

Kapat