<% 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 %>  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)