ciao avrei bisogno di uno script asp ke mi permette l'invio di una mail con un link di attivazione per l'account.. diciamo che il destinatario della mail lo prende dal form visto posto il codice ke ho. se mi date una mano ad addattarlo con cdosys su aruba
<html>
<head>
<title>SEZIONI RISERVATE</title>
</head>
<body>
</p>
<p align="center"><font face="Verdana" size="3">Sezioni Riservate -
Registrati</font></p>
<%
' VENGONO SOSTITUITI GLI APICI (') CON DUE APICI ('')
' PER EVITARE IL PROBLEMA "SQL INJECTION"
username = Replace(Request.Form("username"), "'", "''")
password = Replace(Request.Form("password"), "'", "''")
email = Replace(Request.Form("email"), "'", "''")
' CONTROLLA INNANZITUTTO SE TUTTI I CAMPI SONO STATI COMPILATI
' CORRETTAMENTE
IF username <> "" and password <> "" and Instr(email, "@") > 0 and Instr(email, ".") > 0 then
' CAMPI COMPILATI CORRETTAMENTE
' PERCORSO DEL DATABASE
url_DB = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/mdb-database/database.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti where username = '" & username &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
' CONTROLLA SE L'USERNAME INSERITO E' GIA' STATO USATO
IF Not RecSet.Eof Then
' USERNAME GIA' USATO
' IMPOSTA LA VARIABILE "USATO" SU TRUE
' (IN MODO DA POTER FAR DOPO UN CONTROLLO IF...)
usato = True
Else
' ALTRIMENTI ... USERNAME NON USATO
' IMPOSTA LA VARIABILE "USATO" SU FALSE
usato = False
End IF
' Chiude la connessione al DB
RecSet.Close
Set RecSet = Nothing
' FA LA CONDIZIONE PER VERIFICARE SE L'USERNAME
' IMMESSO E' GIA' STATO USATO...
IF usato = True then
' USERNAME GIA' USATO.
%>
<hr>
<p align="center"><font face="Verdana" size="2">Username inserito già in uso!</font></p>
<hr>
<%
Else
' NICK NON USATO...
' PROCEDE ALLA SUA REGISTRAZIONE...
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM Utenti Order By ID Desc"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
RecSet.Addnew
RecSet("username") = username
RecSet("password") = password
RecSet("email") = email
' INSERISCE NEL DB NEL CAMPO "ATTIVO" IL VALORE 0
' CHE INDICA CHE LA REGISTRAZIONE NON E' STATA ANCORA ATTIVATA,
' INFATTI, DOPO AVER IMMESSO I DATI NEL DB, VERRA' INVIATA ALL'UTENTE
' UNA EMAIL (TRAMITE L'OGGETTO CDONTS) CON UN LINK CHE PUNTA ALLA PAGINA
' "ATTIVA.ASP", PER ATTIVARE L'ACCOUNT.
' SENZA L’ATTIVAZIONE NON E' POSSIBILE
' ACCEDERE ALLE SEZIONI RISERVATE DEL NOSTRO SITO...
'
' NELLA PAGINA "ATTIVA.ASP" VERRA' POI TRASFORMATO LO ZERO (0)
' IN UNO (1) E SARA' POSSIBILE QUINDI ACCEDERE ALLE SEZIONI RISERVATE
' DEL NOSTRO SITO.
'
' ABBIAMO INSERITO QUESTO SISTEMA DI CONTROLLO
' PER VERIFICARE CHE I DATI INSERITI SIANO CORRETTI
RecSet("attivo") = 0
' CHIUDE LA CONNESSIONE AL DB
RecSet.Update
RecSet.Close
Set RecSet = Nothing
' PRELEVA L'ID DELL'UTENTE APPENA INSERITO:
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM Utenti Where username = '" & username & "' and password = '" & password &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
ID = RecSet("ID")
RecSet.Close
Set RecSet = Nothing
Conn.Close
Set Conn = Nothing
' INVIA L'EMAIL ALL'UTENTE PER ATTIVARE L'ACCOUNT
' (COME SI NOTA VIENE FATTO UN LINK DI QUESTO TIPO:
' HTTP://WWW.SITOMIO.IT/ATTIVA.ASP?ID=ID PRECEDENTEMENTE PRESO DAL DB)
mittente = "mia_email@miosito.it"
testo = "Caro utente," & chr(13)
testo = testo & "per attivare la registrazione al nostro sito, fai click sul link qui sotto" & chr(13)
testo = testo & "http://www.sitomio.it/attiva.asp?ID=" & id &"" & chr(13) & chr(13)
testo = testo & "Lo staff di Mio sito!" & chr(13)
testo = testo & "http://www.sitomio.it"
emaila = email
Set email = CreateObject("CDONTS.NewMail")
email.From = mittente
email.To = emaila
email.Subject = "[MIO SITO] ATTIVA LA REGISTRAZIONE!"
email.Body = testo
email.Send
Set email = nothing
%>
<hr>
<p align="center"><font face="Verdana" size="2">Ti è stata inviata una email per confermare la registrazione!</font></p>
<hr>
<%
End IF
Else
' DATI NON COMPILATI CORRETTAMENTE
%>
<hr>
<p align="center"><font face="Verdana" size="2">Compila tutti i dati correttamente!</font></p>
<hr>
<%
End IF
%>
</body>
</html>
Rispondi quotando
