<%
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
%>