Dolar ve avro yu ytl ye cevırme

dolar ve avro yu ytl ye cevırme<% 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,11) euro=Replace(euro,"." ,"," ) dolar=Replace(dolar,"." ,"," ) response.write "1 EUR : " &formatnumber((euro),2)&" YTL" response.write "1 USD : " &formatnumber((dolar),2)&" YTL" %>