|
|
| ANA SAYFA | |||||||||||||||
|
<% 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" %>
|
|
| |||||||||||||
|
| |||||||||||||||
|
Başarı Tıbbı Malzemeler Sanayi ve Ticaret Ltd.Şti. |
| ||||||||||||||
|
|
