MeMaTi Admin
Mesaj Sayısı : 176 Yaş : 33 Location : dfgfdg Job/hobbies : hgffg Humor : erwer Kayıt tarihi : 14/08/07
| Konu: DÖVİZ KURU ALMA KODU Perş. Ağus. 23, 2007 7:20 am | |
| - Kod:
-
(Döviz Kuru almak) ScriptCİ.Com -------------------------------------------------------------------------------------------------------- <% 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 %> | |
|