Con il seguente codice do la possibilità ad un utente iscritto, ma che ha dimenticato i suoi dati di login, di ricevere via mail i dati persi.
Ho già creato un listato con un form che ricupera l'indirizzo e-mail ("email") e lo invia alla seguente pagina.
Non ho ancora inserito il codice per inviare la mail con CDONTS, ora il mio problema è impostare il codice in modo che :
- se la funzione invalidEmail è TRUE mi esca scritto "è mail non corretta"
- se la funzione noMail è TRUE mi esca scritto "mail non presente nel database"
- se quanto detto sopra è corretto mi esca scritto "i dati sono stati spediti alla tua mail" come scritto in formato html.
Parte ho cercato di scriverlo inserendo dei response.write ma non riesco ad inserire le condizioni if e then in modo corretto.
Ecco il codice che uso e che voglio modificare come detto sopra.
Ciao.
<%
' Apre la connessione al db
dim Con
Set Con = Server.CreateObject( "ADODB.Connection" )
Con.Open "accessDSN"
email = Request.Form("email")
'cambia le eventuale virgolette dei dati inseriti in doppie virgolette per non mandare il db in crash
FUNCTION fixQuotes( theString )
fixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION
' controlla la corretta digitazione della mail con . e @
FUNCTION invalidEmail( email )
IF INSTR( email, "@" ) = 0 OR INSTR( email, "." ) = 0 OR INSTR( email, " " ) <> 0 THEN
invalidEmail = TRUE
ELSE
invalidEmail = FALSE
END IF
END FUNCTION
'controlla se esiste l'indirizzo mail inserito
FUNCTION noMail( email )
sqlString = "SELECT user_email FROM users " &_
"WHERE user_email='" & fixQuotes( email ) & "'"
SET RS = Con.Execute( sqlString )
IF RS.EOF THEN
noMail = TRUE
ELSE
noMail = FALSE
END IF
RS.Close
END FUNCTION
'verifica inserimente mail
IF invalidEmail( email ) THEN
Response.Write ("Non hai inserito un indirizzo e-mail valido; controlla che non ci siano spazi vuoti")
END IF
' verifica della presenza nel db della mial
IF noMail( email ) THEN
Response.Write ("Indirizzo non presente, controlla.")
END IF
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
Abbiamo spedito all'indirizzo e-mail i tuoi dati di login
</BODY>
</HTML>
<%
Con.Close
Set Con = Nothing
%>
Rispondi quotando
