<%
Set Tear_ac = CreateObject("SOFTWING.ASPtear" )
dim bilgicek
bilgicek = Tear_ac.Retrieve("http://www.tcmb.gov.tr/kurlar/today.html" , 2, "" , "" , "" )
On Error Resume Next
a=InStr(1,bilgicek,"USD" )
dolar1=Mid(bilgicek,a+39,10)
dolar2=Mid(bilgicek,a+52,10)
b=InStr(1,bilgicek,"DEM" )
mark1=Mid(bilgicek,b+65,12)
mark2=Mid(bilgicek,b+78,12)
c=InStr(1,bilgicek,"EUR" )
euro1=Mid(bilgicek,c+37,11)
euro2=Mid(bilgicek,c+52,11)
%>