[ASP] 버블소트

  for i = 0 to UBound(CMT)
        for j = i+1 to UBound(CMT)
         response.write CMT(i) &"보다" &CMT(j) &"가 크다면  swap <br/>"

     if (CMT(i) > CMT(j)) then 
        call swap(i, j)    
     end if
        next
    next


 function swap(i, j)
     valor_1_antigo = CMT(i)
     valor_2_antigo = CMT(j)

     CMT(i) = valor_2_antigo
     CMT(j) = valor_1_antigo

     valor_1_antigo = id(i)
     valor_2_antigo = id(j)

     id(i) = valor_2_antigo
     id(j) = valor_1_antigo

     valor_1_antigo = title(i)
     valor_2_antigo = title(j)

     title(i) = valor_2_antigo
     title(j) = valor_1_antigo


 end Function