 |
 |
<%
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)
dolar=Replace(dolar,"." ,"," )
e=InStr(1,bilgi,"EUR" )
euro=Mid(bilgi,e+50,11)
euro=Replace(euro,"." ,"," )
g=InStr(1,bilgi,"GBP" )
gbp=Mid(bilgi,g+50,11)
gbp=Replace(gbp,"." ,"," )
dk=InStr(1,bilgi,"DKK" )
dkk=Mid(bilgi,dk+50,11)
dkk=Replace(dkk,"." ,"," )
n=InStr(1,bilgi,"NOK" )
nok=Mid(bilgi,n+50,11)
nok=Replace(nok,"." ,"," )
sk=InStr(1,bilgi,"SEK" )
sek=Mid(bilgi,sk+50,11)
sek=Replace(sek,"." ,"," )
%>
|
