Aiuto.. Non ci capisco nulla

[caiolo]

Allora in questo codice ci dovrebbe essere una funzione che controlla in un database se un determinato dato è presente :


<%
mail = Request.QueryString("mail")
pass = Request.QueryString("pwd")
esiste = "no"
Set dwhfDB = Server.CreateObject("ADODB.Connection")
dwhfDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(".\..") & "\mdb-database\newsletter.mdb"
sql = "select * from Mail where email = '" & lcase(mail) & "'"
set rs = dwhfDB.Execute(sql)
if rs.eof then
esiste = "no"
else
Session("QUIZMAIL") = lcase(mail)
Session("PWD") = lcase(pass)
Session("ENTRATO") = "no"
Session("ENTRATO1") = "no"
Session("ENTRATO2") = "no"
dwhfDB.Close
response.redirect "rispondi_ok.asp"
end if
dwhfDB.Close

%>


Xò ci sono anche altri controlli, ecco io devo soltanto bypassare quello del controllo mail nel db... Quindi o elimino la funzione... Come posso fare metto a esiste = "no" un altro campo, magari come nonso = "no" e quindi la pagina successiva non conoscendo quel comando la ignora... Dico bene ?? HELP !!!

[buji]

QUel controllo verifica soltanto che esista un record conl'email che ti arriva dal querystring e setta delle variabili sdi sessione che probabilmente sono testate nella pagina successiva.

[caiolo]

Ecco... è proprio questo il problema... Io devo eliminare quel controllo... Anche se quel controllo è negativo, il sistema deve andare avanti come se fosse stato tutto ok,


Come posso fare ???????

[buji]

Posta la pagina successiva allora...

[caiolo]

Ma scusate, ma la pagina dopo che centra ?? è li il controllo del dato presente o meno... e è quello che devo eliminare... Il redirect alla pagina dopo deve avvenire come se il dato lo avesse trovato...Comunque ecco la pag dopo:

<%
mail = Session("QUIZMAIL")
pass = Session("PWD")
esiste = "no"
Set dwhfDB = Server.CreateObject("ADODB.Connection")
dwhfDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(".\..") & "\mdb-database\Quizzone.mdb"
sql = "select * from Utenti where Mail = '" & mail & "' and Data='" & FormatDateTime(Now,2) & "'"
set rs = dwhfDB.Execute(sql)
if rs.eof then
sql = "select * from Utenti where Mail = '" & mail & "'"
set rs = dwhfDB.Execute(sql)
if rs.eof then
dwhfDB.Close
response.redirect "domanda.asp"
else
if lcase(rs.fields("Pass"))<>pass then
esiste = "pwd"
else
dwhfDB.Close
response.redirect "domanda.asp"
end if
end if
else
esiste = "si"
end if
dwhfDB.Close

%>

[caiolo]

Praticamente il punto è questo :

<%
mail = Request.QueryString("mail")
pass = Request.QueryString("pwd")
esiste = "no"
Set dwhfDB = Server.CreateObject("ADODB.Connection")
dwhfDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(".\..") & "\mdb-database\newsletter.mdb"
sql = "select * from Mail where email = '" & lcase(mail) & "'"
set rs = dwhfDB.Execute(sql)
if rs.eof then
esiste = "no"
else
Session("QUIZMAIL") = lcase(mail)
Session("PWD") = lcase(pass)
Session("ENTRATO") = "no"
Session("ENTRATO1") = "no"
Session("ENTRATO2") = "no"
dwhfDB.Close
response.redirect "rispondi_ok.asp"
end if
dwhfDB.Close

%>


VEdete dice che se non lo trova deve dare nella stessa pagina esiste=no..... Altrimenti ( else ) redirecta alla pagina rispondi_ok.asp... Ecco io devo eliminare la parte prima di else... Come se fosse sempre vera e farlo redirectare sempre... Ma non posso cancellare la parte di sopra... Come fo ??

[caiolo]

Allora ho risolto così....

<%
mail = Request.QueryString("mail")
pass = Request.QueryString("pwd")
esiste = "no"
Set dwhfDB = Server.CreateObject("ADODB.Connection")
dwhfDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Server.MapPath(".\..") & "\mdb-database\newsletter.mdb"
sql = "select * from Mail where email = '" & lcase(mail) & "'"
set rs = dwhfDB.Execute(sql)
if rs.eof then


Session("QUIZMAIL") = lcase(mail)
Session("PWD") = lcase(pass)
Session("ENTRATO") = "no"
Session("ENTRATO1") = "no"
Session("ENTRATO2") = "no"
dwhfDB.Close
response.redirect "rispondi_ok.asp"
end if


else

Session("QUIZMAIL") = lcase(mail)
Session("PWD") = lcase(pass)
Session("ENTRATO") = "no"
Session("ENTRATO1") = "no"
Session("ENTRATO2") = "no"
dwhfDB.Close
response.redirect "rispondi_ok.asp"
end if

dwhfDB.Close

%>


HO dato le stesse condizioni uguali in entrambi i casi. E così anche se non la trova fa il redirect alla pagina successiva lo stesso...

Sembra funzionare !!! può andare adesso ?

[willybit]

ma a questo punto apri una connessione ed interroghi il db per niente... fa direttamente così

mail = Request.QueryString("mail") 
pass = Request.QueryString("pwd") 

Session("QUIZMAIL") = lcase(mail) 
Session("PWD") = lcase(pass) 
Session("ENTRATO") = "no" 
Session("ENTRATO1") = "no" 
Session("ENTRATO2") = "no" 
response.redirect "rispondi_ok.asp"

[caiolo]

ok grazie !