esistenza record difficoltà!!!

[naverit]

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/registrati.mdb")

Email = Request.Form("Email")

Set RS = Conn.Execute("SELECT email FROM utentiReg WHERE email = '" & email &"'")

If RS.EOF = TRUE Then
Response.Write "Nuovo utente!"
else
Response.Write "Utente già registrato!"
End If

Conn.Close


questo codice mi dovrebbe cercare nel db access se esiste una email...
ma non funziona...

mi risponde sempre Nuovo utente! ... anche se non è vero!
dove ho sbagliato?

[optime]

stampati la stringa sql prima di eseguirla e controlla che sia ok

[naverit]

come faccio? non ho capito cosa intendi! :master:

[djkoma]

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/registrati.mdb")

Email = Request.Form("Email")

SQL = "SELECT email FROM utentiReg WHERE email = '"&email&"' "
'Set Rs = Server.CreateObject("ADODB.Recordset") QUESTE DUE RIGHE LE COMMENTI
'Rs.open SQL, conn,0,1

Response.write SQL
response.end

If RS.EOF = TRUE Then
Response.Write "Nuovo utente!"
else
Response.Write "Utente già registrato!"
End If

Conn.Close

Ho cambiato un pò il codice ma in questo modo vedi se la query è corretta

[naverit]

grazie, ma ancora non va:
mi restituisce questo a schermo:

SELECT email FROM utentiReg WHERE email = 'danieleciarlo@yahoo.it'


ma non mi scrive la cosa più importante...
se l'utente è nuovo o già registrato...
non scrive nulla...

[optime]

se esegui la query direttamente dentro access funziona?

[naverit]

non so, come si va a testare dentro access?


ho provato pure a cambiare il campo email in emailUtente (per paura di aver utilizzato una delle parole riservate) ma non funziona ancora:

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/registrati.mdb")

Email = Request.Form("Email")

SQL = "SELECT email FROM utentiReg WHERE emailUtente = '"&email&"' "
'Set Rs = Server.CreateObject("ADODB.Recordset") QUESTE DUE RIGHE LE COMMENTI
'Rs.open SQL, conn,0,1

Response.write SQL
response.end

If RS.EOF = TRUE Then
Response.Write "Nuovo utente!"
else
Response.Write "Utente già registrato!"
End If

Conn.Close

[optime]

commenta il response.end

[naverit]

credo di avere risolto...
ora va bene...

grazie 1.000|

[optime]

hai visto com'è semplice fare il debug? segnatelo!