<% Set objVeriAl = Server.CreateObject("Microsoft.XMLHTTP" ) objVeriAl.Open "GET" , "http://www.tcmb.gov.tr/kurlar/today.html", FALSE objVeriAl.sEnd strVeri = objVeriAl.Responsetext Set objVeriAl = Nothing iDolar=InStr(strVeri,"USD" ) strDolarAlis=Mid(strVeri,iDolar+39,9) strDolarSatis=Mid(strVeri,iDolar+52,9) iEuro=InStr(strVeri,"EUR" ) strEuroAlis=Mid(strVeri,iEuro+39,9) strEuroSatis=Mid(strVeri,iEuro+52,9) %>
DOLAR
BUY

<%=strdolaralis%> YTL

SALE

<%=strdolarsatis%> YTL

EURO
BUY

<%=streuroalis%> YTL

SALE

<%=streurosatis%> YTL