Hola
Prueba y modifica este script
Código asp:
Ver original<%
Sub Ordenar_Array(byRef arr)
Dim hilera, i, pos, p_valor, n_valor, arrDivision
For hilera = 0 To UBound(arr) - 1
p_valor = arr(hilera)
n_valor = arr(hilera)
pos = hilera
For i = hilera + 1 to UBound(arr)
If arr(i) < n_valor Then
pos = i
n_valor = arr(i)
End If
Next
If pos <> hilera Then
arr(pos) = p_valor
arr(hilera) = n_valor
End If
Next
End Sub
%>
<html><body>
<form method=post id=form1 name=form1 action="./ordenar_array.asp">
Introduce una cadena<br>
<textarea name="elementos" cols=50 rows=5><%=Request.Form("elementos")%></textarea>
<p><input type=submit value="Ordenar" id=submit1 name=submit1>
</form>
<p><hr><P>
<% If Len(Request("elementos")) > 0 then
arrDivision = split(Request.Form("elementos"), " ")
Response.Write "Desordenado -- " & join(arrDivision, ", ") & "<br />"
Call Ordenar_Array(arrDivision)
Response.Write "Ordenado -- " & join(arrDivision, ", ")
Response.Write "<p><hr><p>"
End IF
%>
Suerte