YTL ye göre doviz kuru almanın kodlarını aşağıda veriyorum. Ben bugün tarihi itibariyle sorun yaşadım ve düzelttim. bunu sizinle paylaşıyorum.
Kodları .asp olarak kaydetmeniz yeterlidir.
<% 

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="Bağlantı adresi Sadece üyeler içindir!

bilgi = gethttp(adres) 
d=InStr(1,bilgi,"USD" ) 
dolar=Mid(bilgi,d+50,10)&n

İçeriğin devamı sadece üyeler içindir!