Slumpa....

Hur slumpar utskriftsordningen på en array...?

om jag tex har 1,2,3,4 sen delar jag upp de talen i en array.
Hur får jag dem att skrivas ut i slumpvald ordning

tex 2,4,1,3

randomize
items = ubound(dinArray) + 1
for i = 0 to ubound(dinArray)
   slot = int(items*rnd())
   if i > 0 then response.write ","
   response.write dinArray(slot)
   items = items - 1
   dinArray(slot) = dinArray(items)
next

------------------
essentitia preter non sans multiplicandum