Mi sono accorto di un problema nel recuperare i propri dati di accesso all'area riservata quando vengono perduti; il recupero avviene tramite l'inserimento della propria email; la tabella del dbase è composta da 4 campi:
id
nome
cognome
email
il problema è che alcuni di questi records non hanno il nome, per cui controllando solo il campo email, viene spedito un msg con i campi vuoti, ci vorrebbe dunque anche un controllo sul campo 'nome', questo è il code:
codice:
Dim rs, conn, sql, email
email = request.form("email")
If Len(email) > 0 Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/crm.mdb")
sql = "SELECT * FROM tbl_login where email = '" & email & "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
if not rs.eof then
indirizzo = rs("email")
user = rs("login1")
pass = rs("password1")
Dim miaMail
..............
else
response.write("
<center><font face=Verdana size=1>email non registrata.
")
end if
rs.close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
Rispondi quotando
