<% 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+50,10) strDolarSatis=Mid(strVeri,iDolar+51,10) iEuro=InStr(strVeri,"EUR" ) strEuroAlis=Mid(strVeri,iEuro+38,11) strEuroSatis=Mid(strVeri,iEuro+50,11) %>

DOLAR KUR BİLGİLERİ

ALIŞ :

<%=strdolaralis%> TL

SATIŞ :

<%=strdolarsatis%> TL

EURO KUR BİLGİLERİ

ALIŞ :

<%=streuroalis%> TL

SATIŞ :

<%=streurosatis%> TL