<% Dim colArrayList As ArrayList Dim objRanNumber As Random Dim intCounter As Integer Dim intItem As Integer colArrayList = New ArrayList objRanNumber = New Random For intCounter = 1 to 10 colArrayList.Add( objRanNumber.Next( 100 ) ) Next colArrayList.Sort colArrayList.Reverse For Each intItem in colArrayList Response.Write( "

" & intItem.ToString() ) Next %>