un aiuto per verifica in database

[strip]

Vi spiego il mio problema ho un form... lo compilo e lui dovrebbe inserire i dati nel database access...

FIN QUI FUNZIONA

il problema vero e proprio è che vorrei mettere una verifica dei campi esempio:

io mi iscrivo con nome pincopallino cognome parapao e email mia@email.it

se poi mi vado a riscrivere con gli stessi dati vorrei che mi dicesse che è gia registrato un utente con quella email...

non riesco proprio...

qualcuno puo' pastarmi il codice grazie mille

[Roby_72]

Ti diciamo come fare... altrimenti potresti trovarlo da te nel forum visto che ce ne saranno 1000....
La logica è questa, prima di inserire i dati nel db, fai una query per verificare che l'utente ci sia, se non c'è inserisci altrimenti dai un messaggio di errore.
La qyery è qualcosa del tipo:

SELECT utente FROM tabella WHERE utente = '"& request("utente") &"'"

Roby

[diegocoz]

Più che altro sei tu che dovresti postare a noi il codice che hai utilizzato per fare la insert, così possiamo indicarti dove intervenire e come, senza rifare in toto la pagina

[strip]

<%
Rs.Open "dati",cn,3,3
Rs.AddNew()

Rs("username") = user
Rs("password") = pass
Rs("email") = email
Rs.Update()
Rs.Close()
Cn.Close()
Response.Write("

Inserimento effettuato!</p>")
end if

%>


questo è il mio codice per inserire i dati nel database ma ora come li controllo?

non capisco la select dove devo piazzarla...

[gold]

Originariamente inviato da strip
<%
Rs.Open "dati",cn,3,3
Rs.AddNew()

Rs("username") = user
Rs("password") = pass
Rs("email") = email
Rs.Update()
Rs.Close()
Cn.Close()
Response.Write("

Inserimento effettuato!</p>")
end if

%>


questo è il mio codice per inserire i dati nel database ma ora come li controllo?

non capisco la select dove devo piazzarla...

<% 
Rs.Open "dati",cn,3,3 
counter=rs.recordcount
for i = 1 to cint(counter)
if rs("email") = email then
i=cint(counter)
message="email gia presente"
else
rs.movenext
end if
next

if message <> "email gia presente" then
Rs.AddNew() 

Rs("username") = user 
Rs("password") = pass 
Rs("email") = email 
Rs.Update() 
Rs.Close() 
Cn.Close() 
Response.Write("

Inserimento effettuato!</p>")
else
response.write message 
end if 

%>

[diegocoz]

Io farei :

<% 
Rs.Open "select * from dati where email = '" & email & "'",cn,3,3 
if rs.eof then
   cn.execute "insert into dati (username, password, email) values ('" & user & "','" & pass & "','" & email & "')"
   Response.Write("

Inserimento effettuato!</p>") 
else
   Response.Write("

Email già presente in archivio!</p>") 
end if
rs.close

%>
oppure per non starvolgere il tuo codice (anche se a me personalmente piace poco):

<%

Rs2.Open "select * from dati where email = '" & email & "'",cn,3,3 
if rs2.eof then

  Rs.Open "dati",cn,3,3 
  Rs.AddNew() 

  Rs("username") = user 
  Rs("password") = pass 
  Rs("email") = email 
  Rs.Update() 
  Rs.Close() 
  Response.Write("

Inserimento effettuato!</p>") 
else
   Response.Write("

Email già presente in archivio!</p>") 
end if 
rs2.close
Cn.Close
%>

spero di non aver dimenticato nulla

[strip]

Inserimento effettuato!

ADODB.Recordset error '800a0e78'

Operation is not allowed when the object is closed.

[strip]

no scusa funziona