Generare numero casuale di 10 cifre

[fabiodj]

Ragazzi

Mi rivolgo a chi di voi ha più esperienza di me in quanto ho necessità di generare un codice casuale di 10 cifre che non si ripeta in quanto altrimenti non avrebbe senso
Io ho realizzato il codice di seguito ma ho notato che si ripete

Function genera(Max, Min, MaxChar) 
	Dim codice, cifra
	For i = 0 To MaxChar 
	Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	next 
	genera =cifra
End Function 


codicevis = lcase(genera(5, 48, 9))

Response.Write codicevis4