bu şekilde yaptım çalışmadı
arrShort=Array("12","3","55","123","5","5","7","34 44")
function sortArray(arrShort)
for i = UBound(arrShort) - 1 To 0 Step -1
for j= 0 to i
if arrShort(j)>arrShort(j+1) then
temp=arrShort(j+1)
arrShort(j+1)=arrShort(j)
arrShort(j)=temp
end if
next
next
sortArray = arrShort
end function
response.Write sortArray(arrShort)