<%

Dim mioArrayLst as New ArrayList
Dim i as integer

' aggiungo gli elementi al mio array List
mioArrayLst.Add("Giallo")
mioArrayLst.Add("Rosso")
mioArrayLst.Add("Verde")
mioArrayLst.Add("Nero")


' imposto la dimensione reale
mioArrayLst.TrimToSize()

' ordinamento 
mioArrayLst.Sort()


for i = 0 to mioArrayLst.Count -1
	Response.Write ("<strong>" & mioArrayLst(i) & "</strong><br/>")
next


%>