sayıları virgülle ayırıp değişkene koyup dizinin içine yerleştirince onu 1 tane dizi nesnesi olarak algılar. bu sorunun önüne geçmek için değişkendeki sayıları for kullanarak yeni bir dizi oluşturmak gerekir. örnek kod aşağıda. takıldığınız yerde sorun cevaplarız.
Alıntı
<%
Gelen="25,14,20,45,25,4,1,31,22,7"
Bol=Split(Gelen,",")
Dim Sirala()
ReDim Preserve Sirala(Ubound(Bol))
For k=0 TO Ubound(Bol)
Sirala(k) = Clng(Trim(Bol(k)))
Next
Toplam=Ubound(Sirala)
For i=0 to Toplam
For j=i+1 to Toplam
if Sirala(i)>Sirala(j) then
HafizayaAl=Sirala(i)
Sirala(i)=Sirala(j)
Sirala(j)=HafizayaAl
end if
next
next
For i=0 to Toplam
Response.write (Sirala(i) & "<br />")
next
%>