Codice random doppio

[[trodat]]

Ciao a tutti.

Nonostante abbia messo un controllo per la verifica della presenza del nr_autorizzazione, (un controllo che se già presente nella tabella Gest genera un secondo codice nr_autorizzazione), ho sempre il problema che anche quando viene generato un secondo codice questo potrebbe essere già presente, causando confusione.

Cosa posso fare?

nr_autorizzazione = request.form("nr_autorizzazione")

Sql = "SELECT * from Gest where NR_AUTORIZZAZIONE = '"& NR_AUTORIZZAZIONE &"'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, conn, 3, 3

if NOT objRS.eof then

   nr_autorizzazione = request.form("nr_autorizzazione")
   
else

Function RandomPW(myLength)
	Const minLength = 6
	Const maxLength = 20
	
	Dim X, Y, strPW
	
	If myLength = 0 Then
		Randomize
		myLength = Int((maxLength * Rnd) + minLength)
	End If
	
	For X = 1 To myLength
		Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase
		
		Select Case Y
			Case 1
				Randomize
				strPW = strPW & CHR(Int((9 * Rnd) + 48))
			Case 2
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 65))
			Case 3
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 97))
		End Select
	Next
	
	RandomPW = strPW
End Function

strfinal = RandomPW(10)

   nr_autorizzazione = strfinal
   
end if

[saltodifondi]

function IsPresente(stringa)

Sql = "SELECT * from Gest where NR_AUTORIZZAZIONE = '"& stringa &"'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, conn, 3, 3

  IsPresente = objRsw.eof

  objrs.close
  set objRs = nothing
end function



Function RandomPW(myLength)
	Const minLength = 6
	Const maxLength = 20
	
	Dim X, Y, strPW
	
	If myLength = 0 Then
		Randomize
		myLength = Int((maxLength * Rnd) + minLength)
	End If
	
	For X = 1 To myLength
		Y = Int((3 * Rnd) + 1) '(1) Numeric, (2) Uppercase, (3) Lowercase
		
		Select Case Y
			Case 1
				Randomize
				strPW = strPW & CHR(Int((9 * Rnd) + 48))
			Case 2
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 65))
			Case 3
				Randomize
				strPW = strPW & CHR(Int((25 * Rnd) + 97))
		End Select
	Next
       if IsPresente(strPW) then
             RandomPW = RandomPW(myLength)
       else
	    RandomPW = strPW
       end if
End Function

[[trodat]]

Scusa ma non capisco cosa cambia...

[saltodifondi]

hops, scusa

function IsPresente(stringa)

Sql = "SELECT * from Gest where NR_AUTORIZZAZIONE = '"& stringa &"'"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL, conn, 3, 3

  IsPresente = NOT objRsw.eof

  objrs.close
  set objRs = nothing
end function

[saltodifondi]

dunque, la funzione che genera il codice fa direttamente il controllo nel database. e richiama se stessa se il codeice è già presente. è ricorsiva. prova

[[trodat]]

Ma al posto di questo cosa devo mettere se lo sostituisci con stringa?:

nr_autorizzazione = request.form("nr_autorizzazione")

e poi perchè:

objRsw.eof

e non

objRs.eof

???

[saltodifondi]

dopo le funzioni scrivi

function isPresente(stringa)
...
end function

Function RandomPW(myLength)
...
end function


nr_autorizzazione = request.form("nr_autorizzazione")

if isPresente(nr_autorizzazione) then
          nr_autorizzazione = RandomPW(10)
end if

[saltodifondi]

Originariamente inviato da [trodat]
Ma al posto di questo cosa devo mettere se lo sostituisci con stringa?:

nr_autorizzazione = request.form("nr_autorizzazione")

e poi perchè:

objRsw.eof

e non

objRs.eof

???

errore di battitura. il l'oggetto è ObjRs

[[trodat]]

Grazie, sembra funzionare correttamente.

[[trodat]]

Non funziona !!!!
Mi ha creato gli stessi codici random...