Sæt array i alfabetisk orden!

fandt selv ud af det!
<%
MyArray=Array("John","Peter","Anna","Alberto","George","Unai")
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 

Response.write ("The sorted values are these ones: <BR>") 

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