54 messaggi dal 21 gennaio 2002
ciao,
ho un form in asp che invia dei dati ad un db controllando se l'email e la passowrd sono già esistenti.

Il controllo dell'email funziona ma la password no.

Credo perchè nel controllo della password rscount non mi ritorna a puntare il primo elemento del db.

Come posso fare?


set rscount = conn.execute("SELECT * FROM tabellautentiareariservata")
dove="no"
Do Until rscount.Eof or dove="si"
if request.form("txtemail")= rscount.fields.item("campoemail") then
dove="si"
else
dove="no"
end if
rscount.moveNext
Loop


set rscount = conn.execute("SELECT * FROM tabellautentiareariservata")
dovep="no"
Do Until rscount.Eof or dove="si"
if request.form("txtpassword")= rscount.fields.item("campopassword") then
dovep="si"
else
dovep="no"
end if
rscount.moveNext
Loop


if dove="si" then
response.redirect("email_esistente.asp")
else if dovep="si" then
response.redirect("password_esistente.asp")
else


----inserimento db----


end if
end if

rscount.close
Set rscount = nothing

conn.Close

1.605 messaggi dal 06 settembre 2002
scrivi così


<%

dim doveMail
dim dovePWD
set rscount = conn.execute("SELECT * FROM tabellautentiareariservata")
doveMail="no"
dovePWD="no"
Do Until rscount.Eof or (dovePWD="si" and doveMail="si" )
if request.form("txtemail")= rscount.fields.item("campoemail") then
doveMail="si"
end if
if request.form("txtpassword")= rscount.fields.item("campopassword") then
dovePWD="si"
end if
rscount.moveNext
Loop






if doveMail="si" then

rscount.close
Set rscount = nothing

conn.Close
set conn = nothing
response.redirect("email_esistente.asp")
elseif dovePWD="si" then

rscount.close
Set rscount = nothing

conn.Close
set conn = nothing
response.redirect("password_esistente.asp")
else

----inserimento db----


rscount.close
Set rscount = nothing

conn.Close
set conn = nothing
end if




%>



FORZA LA MAGICA ROMA

FORZA LA MAGICA ROMA
54 messaggi dal 21 gennaio 2002
qual'è la sintassi per usare Move.First ?

635 messaggi dal 06 settembre 2002
Ciao

rs.MoveFirst in questo modo riposizioni il recordset all'inizio.


 JD

OJD
635 messaggi dal 06 settembre 2002
Ciao,

per controllare se esistono dei valori in un database puoi sempicemente fare:

txtpassword=Request.Form("txtpassword")
txtemail=Request.Form("txtemail")

Set COUNT_EMAIL=Conn.Execute("Select Count(*) as TOT_EMAIL from tabellautentiareariservata where campoemail=' "&txtemail&" ' ")
TOT_EMAIL=COUNT_EMAIL("TOT_EMAIL")
Set COUNT_PSW=Nothing

Set COUNT_PSW=Conn.Execute("Select Count(*) as TOT_PSW from tabellautentiareariservata where campopassword=' "&txtpassword&" ' ")
TOT_PSW=COUNT_PSW("TOT_PSW")
Set COUNT_PSW=Nothing

if TOT_EMAIL>0 then
Response.Write("Email "&txtemail&" già presente in archivio")
end if
if TOT_PSW>0 then
Response.Write("Password "&txtpassword&" già presente in archivio")
end if

Ciao.

 JD

OJD
Ricordati i parametri di apertura del recordset per utilizzare il movefirst e company. Devono permettere lo scorrimento bidirezionale e non solo in avanti (quindi non 1,1 ma ad esempio, 1,3)

---[ www.digiscout.it ]---

"This message was written using 100% recycled electrons"

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.