Yatay döviz kurları kodu ?
6
●241
- 26-05-2009, 20:36:54
Kimlik doğrulama veya yönetimden onay bekliyor.<% 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 %> <!--------------------------------------[ Listeleme/Kaydırma--------------------------------------> <marquee width="100%" height="18" scrollamount="3" scrolldelay="7" onmouseover="this.stop();" onmouseout="this.start();"><font class="blok_font">T.C.MERKEZ BANKASI: <img src="Resimler/DovizKuru/USD.png" width="15" height="13"> AMERİKAN DOLARI</font><font color="#000000"> (<b>ALIŞ:</b> <font color="#FF0000"><%=strdolaralis%> <font color="#000000">YTL <b>SATIŞ:</b> <font color="#FF0000"><%=strdolarsatis%></font> YTL)<font class="blok_font"> <img src="Resimler/DovizKuru/EUR.png" width="15" height="13"> EURO</font> (<b>ALIŞ</b>: <font color="#FF0000"><%=strEUROalis%><font color="#000000">YTL <b>SATIŞ</b>: <font color="#FF0000"><%=streurosatis%></font> YTL)<font class="blok_font"> <img src="Resimler/DovizKuru/GBP.png" width="15" height="13"> İNGİLİZ STERLİNİ</font> (<b>ALIŞ</b>: <font color="#FF0000"><%=strSterlinalis%><font color="#000000"> YTL <b>SATIŞ</b>: <font color="#FF0000"><%=strSterlinsatis%></font> YTL) <img src="Resimler/DovizKuru/CHF.png" width="15" height="13"> İSVİÇRE FRANGI</font> (<b>ALIŞ</b>: <font color="#FF000"><%=strFrangalis%><font color="#000000">YTL <b>SATIŞ</b>: <font color="#FF0000"><%=strFrangsatis%></font> YTL)<font class="blok_font"> <img src="Resimler/DovizKuru/SAR.png" width="15" height="13"> ARABİSTAN RİYALİ</font> (<b>ALIŞ</b>: <font color="#FF0000"><%=strRiyalalis%><font color="#000000">YTL <b>SATIŞ</b>: <font color="#FF0000"><%=strRiyalsatis%></font> YTL)<font class="blok_font"> <img src="Resimler/DovizKuru/SEK.png" width="15" height="13"> İSVEÇ KRONU</font> (<b>ALIŞ</b>: <font color="#FF0000"><%=strKronalis%><font color="#000000">YTL <b>SATIŞ</b>: <font color="#FF0000"><%=strKronsatis%></font> YTL)<font class="blok_font"> <img src="Resimler/DovizKuru/kuv.gif"> KUVEYT DİNARI</font> (<b>ALIŞ</b>: <font color="#FF0000"><%=strDinaralis%><font color="#000000">YTL <b>SATIŞ</b>: <font color="#FF0000"><%=strdinarsatis%></font> YTL) </marquee>Kendi sitemde kullandığım kod bu. Umarım işine yarar.
Kolay Gelsin. - 27-02-2010, 08:38:10<!-- Avrasya Haber Ajansı Haber & Serbest Piyasa Döviz Kodu -->
<iframe name=haber src='http://www.avrasyahaber.net/applets/iframes/scroll/haberdoviz.asp' width='100%' height='35px' border='0' frameborder='0'></iframe>
<!-- Avrasya Haber Ajansı Haber & Serbest Piyasa Döviz Kodu Sonu -->
normal kur kodları gibi sadece yatay göstermeli
