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" %>
Asp KodBank
Deprecated: strtotime(): Passing null to parameter #1 ($datetime) of type string is deprecated in /var/www/vhosts/melekkentmen.com/httpdocs/config.php on line 1077
60 yıl önce
Melek Kentmen
380
