<% Dim colShoppingList As ArrayList Dim strItem As String colShoppingList = New ArrayList colShoppingList.Add( "eggs" ) colShoppingList.Add( "milk" ) colShoppingList.Add( "beer" ) colShoppingList.Sort For Each strItem in colShoppingList Response.Write( "

" & strItem ) Next %>