<% dim strUser strUser = request.form("user") dim strCode1 strCode1 = request.form("act_code") strCode1 = cripta(strCode1,key) dim strCode2 strCode2 = request.form("new_code1") dim strCode3 strCode3 = request.form("new_code2") dim strMail strMail= request.form("mail") if(strUser<>"")AND(strCode1<>"")AND(strCode2<>"")AND(strCode2=strCode3)AND(strMail<>"") then 'Apertura del database dim strCodedb strCodedb="innovatel" dim strOutput strOutput="" Set Conn=Server.CreateObject("ADODB.Connection") strConn="driver={Microsoft Access Driver (*.mdb)}; " strConn=strConn & " DBQ=" & Server.MapPath("users.mdb") strConn=strConn & ";pwd=" & strCodedb Conn.Open (strConn) strSql = "SELECT * FROM codici WHERE userName='"&strUser&"' AND userCode='"&strCode1&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, conn ,3,3 if not(rs.eof) then 'Utente in elenco. Modifico il dato. rs(1)=strUser rs(2)=cripta(strCode2,Key) rs(3)=strMail rs.update else strOutput="Nessun utnte con username e password validi" end if 'chiudo il database rs.Close set rs = Nothing conn.Close set conn = Nothing if strOutput<>"" then response.write strOutput else 'Invio la modifica del profilo via e-mail on error resume next Set mail = Server.CreateObject("CDONTS.NewMail") strFrom = "Webmaster of innovatel.it" mail.From = strFrom mail.to =strMail strBody="Username: " & strUser &"
" strBody= strBody & "Password: " & strCode2 &"
" strBody=strBody & "E-mail: "&strMail&"

" strBody = strBody & "Richiesta effettuata il: " & now() &"
" strBody = strBody & "Indirizzo I.P. richiedente: "& request.ServerVariables("REMOTE_ADDR") &"

" strBody = strBody & " *** Lo staff di innovatel.it *** " mail.Body = strBody mail.Subject = "Invio dati dopo modifica profilo" mail.mailFormat=0 mail.bodyFormat=0 mail.Send set mail = nothing if err.number>0 then strOutput= "Si verificato un errore nell'invio delle modifiche del profilo tramite posta elettronica. I nuovi dati sono stati comunque salvati regolarmente." else strOutput ="Password inviata correttamente all'indirizzo e-mail immesso" end if response.write strOutput end if response.end end if %> Modifica Password Utente
Modifica Profilo
 
Nome utente
Indirizzo Mail
Password ATTUALE
 
Nuova Password
Conferma NUOVA Password