Evitare codice numerico random doppio

[orcim]

Ciao a tutti.

Come posso evitare che questa funzione che genera un numero random, restituisce sempre una combinazione di numeri diversa ???

La combinazione generata è memorizzata in un db mysl.

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

strVar = lcase(genera(91, 48, 3))

Grazie--

[Roby_72]

Lo vuoi evitare od ottenere? In quest'ultimo coso "che cosa"?

Roby

[orcim]

Originariamente inviato da Roby_72
Lo vuoi evitare od ottenere? In quest'ultimo coso "che cosa"?

Roby

Voglio sempre ottenere un codice numerico diverso e non già presente e memorizzato nel db mysql.

[Roby_72]

Sono due operazioni diverse.
La funzione estrae un numero casuale che per sua natura può essere già stato estratto, mica è la tombola...
Sei tu che devi crearti un meccanismo per andarlo a cercare nel db e ripetere l'estrazione se ti accorgi che è già stato estratto.

Roby

[orcim]

Originariamente inviato da Roby_72
Sono due operazioni diverse.
La funzione estrae un numero casuale che per sua natura può essere già stato estratto, mica è la tombola...
Sei tu che devi crearti un meccanismo per andarlo a cercare nel db e ripetere l'estrazione se ti accorgi che è già stato estratto.

Roby

Ho capito, ho scritto così la funzione:

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

	genera = cifra
	
	set rs = server.createobject("adodb.recordset")
	set rs = cn.execute("select id from tbl where id = " & genera)
	
	if not rs.eof then
	genera = cifra
	end if

	rs.close
	set rs = nothing
	
End Function

Ti sembra corretto ?
Grazie-

[orcim]

Potreste aiutarmi a capire se ho scritto bene? non funziona...

[optime]

micro, mmmmmmm che vuol dire "NON FUNZIONA" (ma nun ze po' fa na' rplace de "non funziona" con na fila de sterischi?)

[orcim]

Originariamente inviato da optime
micro, mmmmmmm che vuol dire "NON FUNZIONA" (ma nun ze po' fa na' rplace de "non funziona" con na fila de sterischi?)

Vuol dire che genera valori numerici già presenti nel db mysql...

[optime]

e noi lo si sarebbe dovuto capire da soli?

[orcim]

Originariamente inviato da optime
e noi lo si sarebbe dovuto capire da soli?

No, ho spiegato male io.