<SCRIPT LANGUAGE=vbscript><!--
Dim P(5) 'pole cislic
Dim Pocet 'velkost pola
Dim i,k 'citace
Dim A 'pomocna premenna

Sub window_onload
P(0)=99
P(1)=180
P(2)=79
P(3)=0
P(4)=-15
P(5)=11
Pocet=ubound(p) 'velkost pola
Sel.length=Pocet+1 'pocet poloziek v SELECT
for i=0 to Pocet 'vlozenie pola do prvku select
Sel.options(i).text=P(i)
next
End Sub

Sub Tl_onclick
dim A
for k=1 to Pocet '---triedenie pola---
for i=0 to Pocet-1
if P(i)>P(i+1) then' >=min-max , <=max-min
A=P(i)
P(i)=P(i+1)
P(i+1)=A
end if
next
next
'vlozenie vytriedeneho pola do prvku select
for i=0 to Pocet
Sel.options(i).text=P(i)
next
End Sub
--></SCRIPT>