<% 

		MyArray=Array(25,14,20,45,25,4,1,31,22,7) 
		
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 those ones: <BR>")  

		
For i=0 to max  

		  Response.write (MyArray(i) & "<BR>")  

		next  

		%>