'---------
'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
'-------------