<%
dim numamt, nummax, nummin, ar(100), tmp, ii
numamt = 5 : nummax = 100 : nummin = 50
response.write("Before sorted by new selection sort<br>")
randomize
for i = 1 to numamt 
  ar(i) = int(nummin  + (rnd * ( nummax - nummin + 1 )))
  response.write( i & " : " & ar(i) & "<br>")                
next
for i = 1 to numamt - 1
  ii = i
  xar = ar(i)
  for j = i + 1 to numamt
    if ar(j) < xar then
      ii = j	
      xar = ar(j)
    end if
  next
  ar(ii) = ar(i)
  ar(i) = xar      
next
response.write("<hr>After sorted by new selection sort<br>")
for i = 1 to numamt  
  response.write( i & " : " & ar(i) & "<br>")                
next
%>