<%'XMLHTTP Open private Function GETHTTP(adres) Set StrHTTP = Server.CreateObject("Microsoft.XMLHTTP" ) StrHTTP.Open "GET" , adres, false StrHTTP.sEnd GETHTTP = StrHTTP.Responsetext Set StrHTTP = Nothing End Function URL = "http://www.tcmb.gov.tr/kurlar/today.html" bilgicek = GETHTTP(URL) a = InStr(1,bilgicek,"USD" ) 'dolar1 = Convert(Mid(bilgicek,a+39,10)) dolar2 = Mid(bilgicek,a+50,10) c=InStr(1,bilgicek,"EUR" ) euro1=Mid(bilgicek,c+37,11) euro2=Mid(bilgicek,c+50,11) %> -

►  Tarih     : <%=date%>

►  Dolar    : <%=dolar2%> YTL

►  Euro      : <%=euro2%> YTL