Prechod medzi obrázkami

Objekty <img src="kvet1.jpg" width="40" height="27" id="obr1">
<img src="kvet2.jpg" width="40" height="27" id="obr2">
<img src="kvet3.jpg" width="40" height="27" id="obr3">
<img src="kvet1.jpg" width="200" height="135" id="prehliadac" border="2" >
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
--></SCRIPT>

Ukážka
Klikaj na malé obrázky.
  duration--čas prechodu , transition--(druh filtru 1-23)