dim o
dim a
sub enf_tiklandi
    set e = window.event.srcElement
    set a = tikla.rows(0).cells(0).style
    set b = tikla.rows(0).cells(1).style
    if e.id="1" then 
       o=Split("5.8;4.9;4.1;3.7;3.1;2.9;2.4;2.3;1.7;2.2;0.3;0.7;1.0;2.2;0.9;2.2;2.3;3.1;2.8;3.1;2.4;3.7;1.9;2.5;", ";")
       a.color = "blue"
       b.color = "black"
    else 
       o=Split("66.4;68.9;67.5;69.7;66.1;67.9;61.5;63.8;59.2;62.7;56.8;58.6;52.3;56.2;48.9;53.2;43.9;49.0;41.4;44.4;39.1;43.8;32.7;39.0;", ";") 
       b.color = "blue"
       a.color = "black"
    end if

    for i = 4 to 15
        set c = enftablo.rows(i).cells(1)
        set d = enftablo.rows(i).cells(2)
        c.align = "center" 
        d.align = "center" 
        c.style.color = "white" 
        d.style.color = "white" 
        c.innertext = o((i - 4) * 2) 
        d.innertext = o(((i - 4) * 2) + 1) 
    next
    window.event.cancelBubble = true
end sub