[classic asp] 배열 버블소트

For i = 0 To UBound(arCompany) '모든 배열수 만큼 루프

  For j = 1 To UBound(arCompany) '두번째 배열부터 루프

    If arCompany(j-1) > arCompany(j) Then '앞 배열이 뒷 배열보다 크면 자리를 바꾼다

      tempCompany = arCompany(j-1)

      arCompany(j-1) = arCompany(j)

      arCompany(j) = tempCompany     

    End If

  Next

Next