Randomize - men ikke ens!

Jeg har følgende script:

Dim num1, num2, num3, num4

Randomize

num1 = Int((10 * Rnd) + 1)
Response.write "<img src='forside_grafik/" & num1 &".jpg' border='0'>"

num2 = Int((10 * Rnd) + 1)
Response.write "<img src='forside_grafik/" & num2 &".jpg' border='0'>"

num3 = Int((10 * Rnd) + 1)
Response.write "<img src='forside_grafik/" & num3 &".jpg' border='0'>"


num4 = Int((10 * Rnd) + 1)
Response.write "<img src='forside_grafik/" & num4 &".jpg' border='0'>"

Den sætter 4 random billeder ind - men den tjekker ikke for om de er ens.

Den skal laves således at den tjekker for om de er ens - hvis de er det så skal der genereres et nyt nymmer - indtil man har 4 random - unikke tal - der svarer til 4 forskellige billeder.