<% dim strUser strUser=request.form("user") dim strMail strMail = request.form("mail") if (strUser<>"")AND(strMail<>"")then dim strCodedb strCodedb="innovatel" dim 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 userMail='"&strMail&"'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, conn ,3,3 if not(rs.eof) then on error resume next Set mail = Server.CreateObject("CDONTS.NewMail") strFrom = "Webmaster of innovatel.it" mail.From = strFrom mail.to = rs(3) strBody="username: " & rs(1) &"
" strBody= strBody & "password: " & decripta(rs(2),key) &"

" 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 password smarrita" mail.mailFormat=0 mail.bodyFormat=0 mail.Send set mail = nothing if err.number>0 then strOutput= "Si verificato un errore nell'invio del codice
" else strOutput ="Password inviata correttamente
" end if else strOutput = "utente NON riconosciuto dal sistema. Riprovare." end if 'chiudo il database rs.Close set rs = Nothing conn.Close set conn = Nothing response.write strOutput response.end end if %> Recupera Password
Recupera Password Accesso
       
Nome Utente
 
Indirizzo Mail