Náhodné obrázky

Ukážka
Script <SCRIPT LANGUAGE=vbscript><!--
dim pocetObrazkov
dim R1,R2,R3 'poradove cislo obrazka
pocetObrazkov=6

Sub window_onload

randomize
R1=int(rnd(1)*pocetObrazkov)+1
R2=int(rnd(1)*pocetObrazkov)+1
R3=int(rnd(1)*pocetObrazkov)+1
Obrazok1.src="obr_" & R1 & ".gif"
Obrazok2.src="obr_" & R2 & ".gif"
Obrazok3.src="obr_" & R3 & ".gif"
End Sub
--></SCRIPT>
Objekty <IMG id=Obrazok1 src="obr_1.gif" >
<IMG id=Obrazok2 src="obr_2.gif" >
<IMG id=Obrazok3 src="obr_3.gif" >
Po otvorení alebo obnovení stránky sa náhodne vyberú obrázky