Controlla nick e email già esistente

[gant85]

Ciao ho scritto lo script qui sotto per la registrazione degli utenti e controllo pure se l'email è gia presente nel database. Ora volevo mettere nel codice anke se la login usata è già presente ma midiventa un casino perchè apro troppe volte il database. Sapreste dirmi un modo più veloce per controllare email e login e salvare i dati dell'utente nel db?
thanks

<%
	nome=request.form("nome")
	cognome=request.form("cognome")
	login=request.form("login")
	password=request.form("password")
	email=request.form("email")

	Dim Conn3 
	Set Conn3 = Server.CreateObject("ADODB.Connection") 
	conn3.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb") 
	Set rs3 = Server.CreateObject("ADODB.Recordset") 
	qry = "Select * from utenti Where (email='" 
	qry = qry & email & "');" 
	rs3.ActiveConnection = conn3
	rs3.CursorLocation = 2 
	rs3.Open qry
	Response.Expires=0
	if rs3.EOF then 
	
		Dim conn1 
		Set conn1 = Server.CreateObject("ADODB.Connection") 
		conn1.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/utenti.mdb") 
		sql = "SELECT * FROM utenti" 
		Set rs = Server.CreateObject("ADODB.Recordset") 
		rs.Open sql, conn1, 3, 3 
		RS.AddNew
		
		rs.fields("nome")=nome
		rs.fields("cognome")=cognome
		rs.fields("login")=login
		rs.fields("password")=password
		rs.fields("email")=email
		
		rs.update 
		RS.Close 
		Set RS=Nothing 
		conn1.Close 
		Set conn1=Nothing
	
		Set Conn = Server.CreateObject("ADODB.Connection") 
		conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb") 
		Set rs = Server.CreateObject("ADODB.Recordset") 
		qry = "Select * from utenti Where ((login='" 
		qry = qry & login & "') AND (password='" 
		qry = qry & password & "'));" 
		rs.ActiveConnection = conn
		rs.CursorLocation = 2 
		rs.Open qry
		Response.Expires=0
		if rs.EOF then 
			response.write "Utente non registrato."
		else
			id = rs("id")
		rs.close
		set rs = nothing 
		conn.close 
		set conn = nothing
		end if

	else
		response.write "email già presente"
	end if
	
	rs3.close
	set rs3 = nothing 
	conn3.close 
	set conn3 = nothing
%>

[cavicchiandrea]

Io farei prima i controlli poi l'inserimento tipo:

nome=request.form("nome")
	cognome=request.form("cognome")
	login=request.form("login")
	password=request.form("password")
	email=request.form("email")
'i dati email password e login devo essere presenti
if email <> "" and password <> "" and Login <> "" Then
Dim Conn 
	Set Conn = Server.CreateObject("ADODB.Connection") 
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/utenti.mdb") 
sql= "SELECT login, email FROM utenti where email ='"&email&"'"
Set rs = conn.Execute(SQL)
if not rs.bof then
e_mail = Rs("email")
user = Rs("login")
else
'se non presente la mail inserisco i dati ho utilizzato insert perché + performante.
'attenzione la parola password e parola riservata pertanto va racchiusa tra le parentesi [] 
'se dovesse dare problemi cambia il nome nella tabella (tipo psw)
SQL = "INSERT INTO utenti (nome,cognome,login,password,email)VALUES('"&nome&"','"&cognome&"','"&login&"','["&password&"]','"&email&"')"
Conn.Execute(SQL)
End if
'verifico se mail o user sono nulli (non valorizzati) in tal caso faccio il login
if e_mail = "" or user = "" Then
sqll= "SELECT * FROM utenti where login ='"&login&"' and [password]='"&password&"'"
Set rec = conn.Execute(SQLL)
if rec.eof Then
Errore = "Login o password errati"
else
Errore = rec("id")
End if
else
if e_mail <> "" Then Errore = "Email già presente"
if user <> "" Then Errore = "Login già presente"
End if
else
'mancano i dati essenziali
Errore = "Inserire email, login, password"  
End if
conn.close()
set conn = nothing

Response.write Errore

Non l'ho verificato ma dovrebbe andare, cosi (credo) che sia il codice + "pulito" che ci possa essere.

[gant85]

ti ringrazio