Ciao a tutti, sono un neo-utente che da poco si è avvicinato a questo linguaggio di programmazione e come tutti i neofiti ho bisogno di aiuto...

Il quesito che ho da porvi è il seguente, ho creato un'array contenente dei nomi ed ora dovrei ordinarlo alfabeticamente solo che non funziona (ovvio se no non sarei qui). Questo è il mio script:


<%
Dim aA(9), vC, lFinito

vC = 0
lFinito = false

for i = 0 to uBound(aA)
select case i
case 0
aA(i) = "Fabio"
case 1
aA(i) = "Bruno"
case 2
aA(i) = "Cristina"
case 3
aA(i) = "Pericoli"
case 4
aA(i) = "Angelo"
case 5
aA(i) = "Enzo"
case 6
aA(i) = "Massimo"
case 7
aA(i) = "Davide"
case 8
aA(i) = "Luca"
case 9
aA(i) = "Paolo"
end select
next

while not lFinito
for i = 0 to uBound(aA)
if aA(i) > aA(i + 1) then
vC = aA(i)
aA(i) = aA(i + 1)
aA(i + 1) = vC
lFinito = false
end if
next
wend


for i = 0 to uBound(aA)
response.write(aA(i))
response.write("
")
next
%>


Ringrazio anticipatamente tutti coloro che eventualmente risponderanno

P.S. Chiedo scusa per il precedente subject, spero che così sia appropriato