asp - 배열 정열 및 기존 위치 뽑아오기

<%
 Dim num(15), theme_i, theme_j, theme_temp
 Dim num_array(15), test_temp

 num(1) = 100
 num(2) = 8
 num(3) = 34
 num(4) = 28
 num(5) = 7
 num(6) = 1
 num(7) = 49
 num(8) = 67
 num(9) = 97
 num(10)= 43
 num(11)= 46
 num(12)= 62
 num(13)= 86
 num(14)= 27
 num(15)= 85
 
 num_array(1) = 1
 num_array(2) = 2
 num_array(3) = 3
 num_array(4) = 4
 num_array(5) = 5
 num_array(6) = 6
 num_array(7) = 7
 num_array(8) = 8
 num_array(9) = 9
 num_array(10)= 10
 num_array(11)= 11
 num_array(12)= 12
 num_array(13)= 13
 num_array(14)= 14
 num_array(15)= 15
 
 
 for theme_i=0 to Ubound(num)-1 step 1
  for theme_j=theme_i+1 to Ubound(num) step 1
   if num(theme_j)>num(theme_i) then
    theme_temp=num(theme_j)
    num(theme_j)=num(theme_i)
    num(theme_i)=theme_temp
    
    test_temp=num_array(theme_j)
    num_array(theme_j)=num_array(theme_i)
    num_array(theme_i)=test_temp
   end if
  next

  response.write theme_i & "="
  response.write num(theme_i)&", " 
  response.write num_array(theme_i)&"<br>"
 next
%>