>* form timer code > Declare Integer InternetAttemptConnect In wininet; > INTEGER dwReserved > > lcYear=Transform(Year(thisform.txtdate.Value)) > > lcMonth=Transform(Month(thisform.txtdate.Value)) > If Val(lcMonth) < 10 > lcMonth="0"+lcMonth > Endif > > lcday=Transform(Day(thisform.txtdate.Value)) > If Val(lcday) < 10 > lcday="0"+lcday > Endif > > LcUrl="http://www.tcmb.gov.tr/kurlar/" > LcUrl = LcUrl + lcYear + lcMonth + "/" + lcday + lcMonth + lcYear + ".html" > > This.Interval = 0 > Thisform.OIE.Navigate(LcUrl) > Do While Thisform.OIE.ReadyState <> 4 > Enddo > Thisform.OIE.Document.Body.Scroll = "no" > > >ELSE >MESSAGEBOX("opps Internet Connection no avaible...",16,"Connection Error") > LcUrl="about:blank" > This.Interval = 0 > Thisform.OIE.Navigate(LcUrl) > Do While Thisform.OIE.ReadyState <> 4 > Enddo > Thisform.OIE.Document.Body.Scroll = "no" >Endif >Soykan,
?Thisform.OIE.Document.Body.InnerHtml && html ?Thisform.OIE.Document.Body.InnerText && text :: you are after thisYou'll have to parse it further