Generazione automatica password

[Enrique_Rojas]

Originariamente inviato da Roby_72
Chiudile in ordine inverso rispetto a come lo apri.

Roby

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/controlla_form.asp, line 308

conn.close
set conn = Nothing
cn.close
set cn = Nothing
objConn.close
set objConn = Nothing

poi un'altra cosa come discrimino l'avviso all'utente se è l'email già presente o l'username?

[Roby_72]

if not objRs.bof and not objRs.eof then 
if objRs("email")=email then 
'email esistente
else
'user esistente
end if
else

Roby

[Enrique_Rojas]

scusa Roby, mi sono perso... ho scritto così:

if not objRs.bof and not objRs.eof then 

if objRs("email")=email then 

'e-mail esistente
response.write ("L'indirizzo " & objRs("email") & " è già registrato")

else

'user esistente
response.write ("La login " & objRs("username") & " è già registrata")

end if

else 

'costruisci password
password = genera_pwd()

ma scrivendo:

username = oscar (esiste)
password = email@email.it (non esiste)

oppure

username = gigi (non esiste)
password = email@email.com (esiste)

restituisce sempre la condizione user esistente... :master:

[Roby_72]

Estraile dalla query entrambe: email e user, visto che ora prendi solo la prima.
Poi fa un controllo su una e sull'altra.

Roby

[Enrique_Rojas]

Originariamente inviato da Roby_72
Estraile dalla query entrambe: email e user, visto che ora prendi solo la prima.
Poi fa un controllo su una e sull'altra.

Roby

non ho capito, devo fare due query?

[Roby_72]

Non devi fare 2 query devi estrarre dalla query entrambi i valori.

SELECT user, email....

e poi li "testi" entrambi.

Roby

[Enrique_Rojas]

grazie, ho scritto così, ma non cambia nulla:

strsql = "SELECT nome, email FROM tbl_login WHERE nome='" &request("nome")& "' OR email='" &request("email")& "'"
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strconn, 3, 3 

if not objRs.bof and not objRs.eof then 

if objRs("nome") = nome and objRs("email") = email then 

'e-mail esistente
response.write ("L'indirizzo " & objRs("email") & " è già registrato")

else

'user esistente
response.write ("La login " & objRs("nome") & " è già registrata")

end if

else 

'costruisci password
password = genera_pwd()

[kluster]

<%

strsql = "SELECT nome, email FROM tbl_login WHERE nome='" &request("nome")& "' OR email='" & request("email")& "'"
Set objRs = Server.CreateObject("ADODB.Recordset") 
objRs.Open strsql, strconn, 3, 3 
if not objRs.bof and not objRs.eof then 
	if objRs("nome") = request("nome") and objRs("email") = request("email") then 
		'Qui esistono tutte e 2 
		response.write ("Il nome utente " & objRs("nome") & " e l'email " & objRs("email")  & " risultano ambedue registrate")
	else
		'Testi uno per uno
		if objRs("nome") = request("nome")  then 
			'user esistente
			response.write ("Il nome utente " & objRs("nome")  & " risulta registrato")
		else
			'email esistente		
			response.write ("L'indirizzo email " & objRs("nome")  & " risulta registrato")
		end if
	end if 
else 
	'NON ESISTE
	'costruisci password
	password = genera_pwd()
end if
%> 
Se la scelta della login è case sensitive ok altrimenti aggiungi ai controlli Lcase almeno sei sicuro che se è stato
gia' scelto lo user Tomas non possa essercene un altro che si chiama ToMaS

[Enrique_Rojas]

c'è qualcosa che non va nel tuo code.... nel senso che ho un utente registrato come:

nome = oscar
email = oscar@hotmail.com

scrivo nel campo nome del form 'oscar' ed invece di restituirmi

response.write ("Il nome utente " & objRs("nome")  & " risulta registrato")

mi restituisce che l'email di oscar è registrata che vuol dire??? :master:

[Roby_72]

...
...			'email esistente		
			response.write ("L'indirizzo email " & objRs("email")  & " risulta registrato")
....
...

Roby