Merkez Bankası Döviz Kurları <% private function gethttp(url) Set strhttp = server.createobject("microsoft.xmlhttp" ) strhttp.Open "get" , url, false strhttp.send gethttp = strhttp.responsetext Set strhttp = Nothing End function adres="http://www.tcmb.gov.tr/kurlar/today.html" bilgi = gethttp(adres) d=InStr(1,bilgi,"USD" ) dolar=Mid(bilgi,d+50,10) e=InStr(1,bilgi,"EUR" ) euro=Mid(bilgi,e+50,10) ed=euro/dolar response.write "

          EUR : " &formatnumber(euro)&" YTL

" response.write "          USD : " &formatnumber(dolar)&" YTL" %> <%=strBuildRatesHTML%>