scusate sapete aiutarmi, non capisco perché non funziona
massimo = "(9, 8, 7, 6, 5, 4, 3, 20, 2, 19, 18, 17, 12, 11, 10, 1, 0 )"
Ar = Array(massimo)
Dim Min,Max
Min=Ar(0):Max=Ar(0)
For i=1 to uBound(Ar)-1
If (Ar(i))<Min then
Min = (Ar(i))
ElseIf (Ar(i))>Max then
Max = (Ar(i))
End if
Next
Response.Write "Minimo : " & Min & "
"
Response.Write "Massimo : " & Max & "
"
Rispondi quotando
