array di immagini

[delgius]

ciao a tutti e buon anno
ho creato questo array di immagini
<%
Dim rotazione(3)
rotazione(0) = "[img][/img]"
rotazione(1) = "[img][/img]"
rotazione(2) = "[img][/img]"
rotazione(3) = "[img][/img]"

For i = 0 to UBound(rotazione)
Response.Write rotazione(i) & "

"
Next
%>

Adesso vorrei far ruotare le immagini, cioè farle scambiare di posizione, però non riesco a trovare lo script.
Protreste aiutarmi per favore?
Grazie

[chipdb]

Cosa intendi esattamente con Ruotare?

[delgius]

ho trovato questo sript
<%
N = 4 'numero di record casuali da visualizzare
Randomize
max = 3
redim arr(max)
arr(0) = "img1.jpg"
arr(1) = "img2.jpg"
arr(2) = "img3.jpg"
arr(3) = "img4.jpg"
for i=0 to max
arr(i)=i
next
'mischio i numeri in modo casuale
for i=0 to max
casuale = Int((max)*Rnd)
temp = arr(i)
arr(i) = arr(casuale)
arr(casuale) = temp
'response.write arr(i)&"
"
next

for i=0 to n-1

response.write( arr(i) & "
")
next

%>
però invece di ruotare le immagini ruotano i numeri...

Vorrei che ad ogni click le immagini si scambiassero di posizione
Ciao