asp büyükten küçüğe sayılar

Kullanılan Asp de
sabit sayılarım var örneğin
a1:5
a2:8
a3:3
a4:1
a5:2
a6:9

bu sayıları buyükten küçüğe doğru sıralamak istiyorum
sonuç:
a6=9
a2=8
a1=5

gibi for next yada her hangi bir döngü içinde nasıl kullanırım

<%
MyArray=Array( a1,a2, a3 ,a4, a5, a6, a7,a8, a9,a10,a11,a12,a13,a14)
max=ubound(MyArray)

For i=0 to max
For j=i+1 to max
if MyArray(i)<MyArray(j) then
TemporalVariable=MyArray(i)
MyArray(i)=MyArray(j)
MyArray(j)=TemporalVariable
end if
next
next

%>
<%
For i=0 to max
Response.write (MyArray(i) & "<BR>") next
%>

bu şekilde kullanıyorum tamam işlemi yapıyor fakat
9
8
5
3
2
1
gibi
ama yanlarında
a6=9
a2=8
a1=5
bu şekilde istiyorum

9 hangi sütuna geliyorsa bir şekilde yaptıramdım yada başka yolla yapılıyor acil yardıma ihtiyacım var teşekkürler

<%
a1=5
a2=8
a3=3
a4=1
a5=2
a6=9

MyArray=Array( a1,a2, a3 ,a4, a5, a6)
MyArray_isimler=Array( "a1","a2", "a3" ,"a4", "a5", "a6")
max=ubound(MyArray)

For i=0 to max
For j=i+1 to max
if MyArray(i)<MyArray(j) then
TemporalVariable=MyArray(i)
MyArray(i)=MyArray(j)
MyArray(j)=TemporalVariable
end if
next
next

%>
<%
For i=0 to max
Response.write (MyArray_isimler(i)& "--->" &MyArray(i) & "<BR>") 
next
%>

bu tarz bir şey işinizi görürür

yeni gördüm teşekkürler oktayman deniyeyim bir

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 21:30:52 -->-> Daha önceki mesaj 21:26:38 --

sayıları büyükten küçüğe sıralıyır örneğin
a1--->9
a2--->8
a3--->5
a4--->3
a5--->2
a6--->1
aslında burda çıkması gereken sonuç şu 9 sayısının sol yanında a6 olması olay bu yani 9 sayısı hangisine denk geliyorsa bir inceliyeyim kodları bu arada anlatabildiysem bakarmısın bir kodlara

bu şekilde kullana bilirsiniz,bu konuda daha iyi yöntemler için matriks diziler kullanılıyor diye biliyorum ama detay bilmiyorum

<%
a1=5
a2=8
a3=3
a4=1
a5=2
a6=9

MyArray=Array( a1,a2, a3 ,a4, a5, a6)
MyArray_isimler=Array( "a1","a2", "a3" ,"a4", "a5", "a6")
max=ubound(MyArray)

For i=0 to max
For j=i+1 to max
if MyArray(i)<MyArray(j) then
TemporalVariable=MyArray(i)
TemporalVariable2=MyArray_isimler(i)
MyArray(i)=MyArray(j)
MyArray_isimler(i)=MyArray_isimler(j)
MyArray(j)=TemporalVariable
MyArray_isimler(j)=TemporalVariable2
end if
next
next

%>
<%
For i=0 to max
Response.write (MyArray_isimler(i)& "--->" &MyArray(i) & "<BR>") 
next
%>

aynen bu istediğim teşekkür ederim eline sağlık oktayman