Slumpa fram bilder utan dubbletter

Jag försöker knåpa ihop en funktion som som ska slumpa fram fyra av totalt tio bilden på en sida. Problemet är att jag inte vill att samma bild ska komma två gånger, hur löser man detta?

<%
i = 0
Do While i < 4
 Randomize
 rand = Int(Rnd * 9) + 1
 img(i) = rand
 i = i + 1
Loop
%>

<img src="randimg_<%=img(0)%>.jpg"
<img src="randimg_<%=img(1)%>.jpg"
<img src="randimg_<%=img(2)%>.jpg"
<img src="randimg_<%=img(3)%>.jpg"