LOCAL ln, lnExit, ldLME, lnCurs

SET DECIMALS TO 4
SET POINT TO ','

o=CREATEOBJECT("InternetExplorer.Application")
o.Navigate2("https://news.yandex.ru/quotes/1501.html")
DO WHILE o.ReadyState # 4
    DOEVENTS FORCE
ENDDO
STRTOFILE(o.DOCUMENT.body.InnerHTML,"c:\tmp\lme.html",0)

loTables=o.DOCUMENT.getElementsByTagName('table')

ln=1
lnExit=1

FOR EACH loTable IN loTables
    FOR EACH loRow IN loTable.ROWS
        FOR EACH loCell IN loRow.cells
            DO CASE
                CASE ln = 4
                    ldLME = CTOD(loCell.innertext)
                CASE ln = 5
                    lnCurs = VAL(ALLTRIM(loCell.textContent))
                    IF .NOT. EMPTY(ldLME)
                        INSERT INTO lme (lme_date,lme_curs) VALUES (ldLME,lnCurs)
                    ENDIF 
                CASE ln = 6
                    ln=3
            ENDCASE
            ln=ln+1
            lnExit=lnExit+1
            IF lnExit==33
                EXIT
            ENDIF
        ENDFOR
    ENDFOR
ENDFOR

SET DECIMALS TO 2
SET POINT TO '.'