Per farti capire:
devi effettuare una subrutine dove controlli il valore di ogni singolo campo dell'array e lo posizioni prima o dopo il precedente.
Ho trovato questo codice, semplice da capire, che ti può essere di aiuto, spero:
codice:
<%@ LANGUAGE = VBscript %>
<%
'Insertion Sort
sub ordina(byref A)
n=ubound(A)
for j=1 to n
x=A(j)
i=j-1
go=1
while (i>=0)and(go=1)
if (A(i)>x) then
A(i+1)=A(i)
i=i-1
else
go=0
end if
wend
A(i+1)=x
next
end sub
'Il nostro array iniziale
a=array(2,3,5,1,9,4,7,6,8)
'stampiamo a video l'array
Response.Write("Array iniziale:
")
for i=0 to ubound(a)
Response.Write(a(i)&" ")
next
'Ordiniamo l'array
call ordina(a)
'stampiamo a video l'array ordinato
Response.Write("
Array ordinato:
")
for i=0 to ubound(a)
Response.Write(a(i)&" ")
next
%>
Ciao
Lele