Slumpa fram tal

Jag vill slumpa fram 7 tal mellan 1 och 35. Men dessa tal får bara finnas i ett exemplar.

Att göra själva randomiseringen är inga problem, men hur undviker jag att samma tal slumpas fram mer än en gång?

Du får kolla det, och slumpa igen vid behov.

En variant.. :

[red]<%

Function rndDgts(intLoop)

	Dim rndNum, maxValue, i, x, c
	Redim rndNum(intLoop)

	maxValue = 35

	Randomize
	For i = 1 To intLoop
		rndNum(i) = Int(Rnd * maxValue)+1
		For x = 1 To i-1
			If rndNum(x) = rndNum(i) Then
				i=i-1
			End If
		Next
	Next

	For c = 1 To intLoop
		rndDgts = rndDgts & rndNum(c) &"<br>"
	Next

End Function

'// Skriv ut..
Response.Write rndDgts(7) 

%>[/red]