<% 'Kodlama 15.07.2007 Gece 04:40 'Ahmet Furkan EKİNCİ 'BySaNCak@hotmail.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+38,10) strDolarSatis=Mid(strVeri,iDolar+51,10) iEuro=InStr(strVeri,"EUR" ) strEuroAlis=Mid(strVeri,iEuro+38,11) 'alis strEuroSatis=Mid(strVeri,iEuro+50,11) 'satis iSterlin=InStr(strVeri,"GBP" ) strSterlinAlis=Mid(strVeri,iSterlin+28,15) 'alis strSterlinSatis=Mid(strVeri,iSterlin+45,15) 'satis iFrang=InStr(strVeri,"CHF" ) strFrangAlis=Mid(strVeri,iFrang+29,18) 'alis strFrangSatis=Mid(strVeri,iFrang+46,18) 'satis iRiyal=InStr(strVeri,"SAR" ) strRiyalAlis=Mid(strVeri,iRiyal+30,18) 'alis strRiyalSatis=Mid(strVeri,iRiyal+46,18) 'satis iKron=InStr(strVeri,"SEK" ) strKronAlis=Mid(strVeri,iKron+30,18) 'alis strKronSatis=Mid(strVeri,iKron+46,18) 'satis iDinar=InStr(strVeri,"KWD" ) strDinarAlis=Mid(strVeri,iDinar+30,18) 'alis strDinarSatis=Mid(strVeri,iDinar+47,18) 'satis %> BySaNCak TCMB Kayan Doviz Kuları v2.0
 TCMB DÖVİZ KURLARI: AMERİKAN DOLARI (ALIŞ: <%=strdolaralis%> YTL SATIŞ: <%=strdolarsatis%> YTL) // EURO (ALIŞ: <%=strEUROalis%>YTL  SATIŞ: <%=streurosatis%> YTL) // İNGİLİZ STERLİNİ (ALIŞ: <%=strSterlinalis%> YTL  SATIŞ: <%=strSterlinsatis%> YTL) // İSVİÇRE FRANGI (ALIŞ: <%=strFrangalis%>YTL  SATIŞ: <%=strFrangsatis%> YTL) // ARABİSTAN RİYALİ (ALIŞ: <%=strRiyalalis%>YTL  SATIŞ: <%=strRiyalsatis%> YTL) // İSVEÇ KRONU (ALIŞ: <%=strKronalis%>YTL  SATIŞ: <%=strKronsatis%> YTL) // KUVEYT DİNARI (ALIŞ: <%=strDinaralis%>YTL  SATIŞ: <%=strdinarsatis%> YTL)
<%'Reklam Kodları buradan başlıyo kaldırmak için tamamını silin%>

<%'Reklam Kodları burada bitiyo%>