Nefunguje VBS ve FF3, prosím o pomoc

Zdravím, včera jsem tady psal,že nemůžu rozject obrázky. Dneska už mi to funguje za pomocí tohoto sciptu, ale nefunguje to ve FIREFOX. Jak mám tento script ošetřit, aby to makalo???

script:

<SCRIPT LANGUAGE=vbscript><!--
dim obrazok
function SpustFilter(Obrazok) 
Prehliadac.Style.Filter = "RevealTrans(duration=2,transition=1)"
prehliadac.Filters.Item(0).Apply
Prehliadac.Src=Obrazok
Prehliadac.Filters.Item(0).Play 
end function 

Sub obr1_onclick
SpustFilter obr1.src 
End Sub 
Sub obr2_onclick
SpustFilter obr2.src
End Sub
Sub obr3_onclick
SpustFilter obr3.src
End Sub
Sub obr4_onclick
SpustFilter obr4.src
End Sub
Sub obr5_onclick
SpustFilter obr5.src
End Sub
Sub obr6_onclick
SpustFilter obr6.src
End Sub
Sub obr7_onclick
SpustFilter obr7.src
End Sub
Sub obr8_onclick
SpustFilter obr8.src
End Sub
Sub obr10_onclick
SpustFilter obr10.src
End Sub
Sub obr11_onclick
SpustFilter obr11.src
End Sub
--></SCRIPT>