'---------
'Richiamo i valori
	str_wanted_email = Request.form("email")
	str_password = Request.form("pw1")
	'Creo una nuova stringa SQL
	strSQL = "SELECT * FROM tbl_authors"
	'Creo un nuovo RecordSet
	set rs_check_email=Server.CreateObject("ADODB.Recordset")
	'Apro il recordset e eseguo SQL
	rs_check_email.Open strSQL,adoCon
	'Eseguo un ciclo fino alla fine
	Do While NOT rs_check_email.EOF
		'Set variable to hold a database username value
		str_db_email = rs_check_email("email")
	
		'See l'username è già inserito nel database response.Redirect("errore.asp")
		If str_db_email = str_wanted_email Then Response.Redirect("errore_email.asp")
	
		'passo al record successivo
		rs_check_email.MoveNext
	'Loop
	Loop
	rs_check_email.Close
	Set rs_check_email = Nothing
'-------------