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

codice:
<%
	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
%>