<%
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">&nbsp;AMERİKAN DOLARI</font><font color="#000000"> (<b>ALIŞ:</b>&nbsp;<font color="#FF0000"><%=strdolaralis%>&nbsp;<font color="#000000">YTL&nbsp;<b>SATIŞ:</b>&nbsp;<font color="#FF0000"><%=strdolarsatis%></font>&nbsp;YTL)<font class="blok_font">&nbsp;&nbsp;<img src="Resimler/DovizKuru/EUR.png" width="15" height="13">&nbsp;EURO</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF0000"><%=strEUROalis%><font color="#000000">YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=streurosatis%></font>&nbsp;YTL)<font class="blok_font">&nbsp;&nbsp;<img src="Resimler/DovizKuru/GBP.png" width="15" height="13">&nbsp;İNGİLİZ STERLİNİ</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF0000"><%=strSterlinalis%><font color="#000000">&nbsp;YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=strSterlinsatis%></font>&nbsp;YTL)&nbsp;&nbsp;<img src="Resimler/DovizKuru/CHF.png" width="15" height="13">&nbsp;İSVİÇRE FRANGI</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF000"><%=strFrangalis%><font color="#000000">YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=strFrangsatis%></font>&nbsp;YTL)<font class="blok_font">&nbsp;&nbsp;<img src="Resimler/DovizKuru/SAR.png" width="15" height="13">&nbsp;ARABİSTAN RİYALİ</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF0000"><%=strRiyalalis%><font color="#000000">YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=strRiyalsatis%></font>&nbsp;YTL)<font class="blok_font">&nbsp;&nbsp;<img src="Resimler/DovizKuru/SEK.png" width="15" height="13">&nbsp;İSVEÇ KRONU</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF0000"><%=strKronalis%><font color="#000000">YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=strKronsatis%></font>&nbsp;YTL)<font class="blok_font">&nbsp;&nbsp;<img src="Resimler/DovizKuru/kuv.gif">&nbsp;KUVEYT DİNARI</font> (<b>ALIŞ</b>:&nbsp;<font color="#FF0000"><%=strDinaralis%><font color="#000000">YTL&nbsp;&nbsp;<b>SATIŞ</b>:&nbsp;<font color="#FF0000"><%=strdinarsatis%></font>&nbsp;YTL) 
		</marquee>