<% Dim colArrayList As ArrayList Dim objranNumber As Random Dim intCounter As Integer Dim intItemIndex As Integer colArrayList = New ArrayList objRanNumber = New Random For intCounter = 1 to 1000 colArrayList.Add( objRanNumber.Next( 1000 ) ) Next colArrayList.Sort() intItemIndex = colArrayList.BinarySearch( 53 ) If intItemIndex > 0 Then Response.Write( "Found 53!" ) Else Response.Write( "Couldn't Find 53!" ) End If %>