Evitare codice numerico random doppio

[optime]

l'hai provato? che errore ti dà?

[Grambo]

no nn l'ho provato ma nn fa niente era solo curiosità

ciao ciao

[orcim]

Originariamente inviato da Grambo
no nn l'ho provato ma nn fa niente era solo curiosità

ciao ciao

Funziona, funziona....

[optime]

Originariamente inviato da orcim


Funziona, funziona....

micro_bello_de_casa, per tutti coloro che dovessero avere il tuo stesso problema, fa' il bravo, posta la soluzione

[orcim]

Originariamente inviato da optime
micro_bello_de_casa, per tutti coloro che dovessero avere il tuo stesso problema, fa' il bravo, posta la soluzione

La soluzione l'hai postata tu....

<%

Function genera(Max, Min, MaxChar)
	Dim codice, cifra

	Set rs = Server.CreateObject("ADODB.Recordset") '''''''''''''''''''''

DO ''''''''''''''''''''''''''''''''''''''''
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
		
	SQL = " SELECT NUMERO FROM tbl WHERE NUMERO = '" & cifra & "%' " '''''''''''''''''''
         rs.Open SQL, cn
	
	if rs.eof then ''''''''''''''''''''''
                   exit do '''''''''''''''''''''''''
             end if  '''''''''''''''''''''''''''''''''

             rs.close ''''''''''''''''''''''

LOOP ''''''''''''''''''''''''''''''''''''''''

             rs.close ''''''''''''''''''''''

>>>>>>>>>>>>>>     SCRIVI NEL DB PER LA VOLTA DOPO!!!!!!!!!!!!!!!!!!!!

GENERA=CIFRA ''''''''''''''''''''''''''''

SET RS=NOTHING ''''''''''''''

End Function 

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

response.write strVar

%>

[optime]

non fare il furbo, quella bella pulita che hai adottato tu...

[orcim]

Originariamente inviato da optime
non fare il furbo, quella bella pulita che hai adottato tu...

OK OK OK

Function genera(Max, Min, MaxChar)
	Dim codice, cifra
	Set rs = Server.CreateObject("ADODB.Recordset")

DO

    cifra = ""
  
	For i = 1 To MaxChar 
		Randomize timer
		codice = Int((Max * Rnd()) + 1) 
		cifra = cifra & codice
	Next 
		
         SQL = " SELECT NUMERO FROM tbl WHERE NUMERO LIKE '" & cifra & "%' "
         rs.Open SQL, cn
	
	         if rs.eof then
                   exit do
             end if

         rs.close

LOOP

    rs.close

GENERA = CIFRA

SET RS = NOTHING

End Function 

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

[optime]

manca la parte dove memorizzi nel db il numero valido generato!

[orcim]

Originariamente inviato da optime
manca la parte dove memorizzi nel db il numero valido generato!

Non lo memorizzo nella pagina dove è prevista la funzione... mi sa che non ho capito bene il tuo esempio...

[optime]

in qualche momento lo memorizzi, però, giusto?