Controllo presenza email

[djjunior]

Cari amici come posso fare per eseguire la condizione:

Ti logghi, i dati vengono processati e se la tua mail è presente su tutte e 2 le tabelle redirect ad una pagina altrimenti vai ad un altra.

In pratica devo controllare se la mail dell'utente è presente su 2 tabelle dello stesso db.
Come posso fare?
Grazie
G.

[Roby_72]

Fai due query...



Roby

[djjunior]

cioè????

[Roby_72]

Se c'è nella prima effettui la seconda, se c'è anche lì agisci di conseguenza.

Roby

[djjunior]

scusa puoi farmi l'esempio dell'IF???

[Roby_72]

bol1 = false: bol2 = false
sql1 = "SELECT ...."
rs1 = objconn.Execute(sql)
if not rs1.EOF then
bol1 = true
'Nella prima tabella c'è
sql2 = "SELECT ...."
rs2 = objconn.Execute(sql)
if not rs1.EOF then
'Nella seconda tabella c'è
bol2 = true
end if
set rs2 = nothing
end if
set rs1 = nothing
if bol1 and bol2 then
'vai dove vuoi
else
'fai quello che ti pare
end if

Roby

[djjunior]

Grazie ROBY, come sempre per la tua risposta ma mi dà errore ecco come l'ho inserito:

Email1 = Replace(Request.Form("Email"), "'", "''")
Email2 = Replace(Request.Form("Email"), "'", "''")
Pass = Replace(Request.Form("Pass"), "'", "''")

Email1 = false: Email2 = false

sql1 = "SELECT Email, pass, id FROM primatabella WHERE Email = '" & Email1 & "' AND pass = '" & pass & "'"
rs1 = conn.Execute(sql1)

if not rs1.EOF then
Email1 = true

sql2 = "SELECT Email, pass, id FROM secondatabella WHERE Email = '" & Email2 & "' AND pass = '" & pass & "'"
rs2 = conn.Execute(sql2)

if not rs1.EOF then
Email2 = true
end if

set rs2 = nothing
end if
set rs1 = nothing

if Email1 and Email2 then

response.redirect("scegli.asp")

else

response.redirect("intro.asp")


end if

L'errore è:

Proprietà o metodo non supportati dall'oggetto: 'rs1.EOF'

Dove sbaglio?

[djjunior]

Chiedo ancora lumi a Roby, aiutami tu.
Grazie
G.

[Roby_72]

Set  rs1 = conn.Execute(sql1)

Roby

[djjunior]

Ciao ROBY,
scusa ancora il disturbo, l'errore se corretto ma il ciclo non funziona, non controlla neanche se email e password sono presenti o meno nel db, anche se metto dati fasulli automaticamente mi restituisce la pagina dell'else cioè oralorposter.asp
Ecco lo script con le modifiche che mi hai indicato.

Email1 = Replace(Request.Form("Email"), "'", "''")
Email2 = Replace(Request.Form("Email"), "'", "''")
Pass = Replace(Request.Form("Pass"), "'", "''")

Email1 = false: Email2 = false

sql1 = "SELECT Email, pass FROM tabella1 WHERE Email = '" & Email1 & "' AND pass = '" & Pass & "'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1 = conn.Execute(sql1)

if not rs1.EOF then
Email1 = true

sql2 = "SELECT Email, pass FROM tabella2 WHERE Email = '" & Email2 & "' AND pass = '" & Pass & "'"
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs2 = conn.Execute(sql2)

if not rs1.EOF then
Email2 = true

end if

set rs2 = nothing
end if
set rs1 = nothing

if Email1 and Email2 then

response.redirect("scegli.asp")

else

response.redirect("oralorposter.asp")

end if

Cosa che non va?
Grazie per la disponibilità.
Ciao
G.