<% '################################################################################# '## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# %> <% Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & getCurrentIcon(strIconFolderOpen,"","") & " Tutti i Forum
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Password Dimenticata?
" & vbNewLine & _ "

" & vbNewLine if lcase(strEmail) <> "1" then Response.Redirect("default.asp") end if if Request.Form("mode") <> "DoIt" and Request.Form("mode") <> "UpdateIt" and Request.QueryString("pwkey") = "" then call ShowForm elseif Request.QueryString("pwkey") <> "" and Request.Form("mode") <> "UpdateID" then key = chkString(Request.QueryString("pwkey"),"SQLString") '###Forum_SQL strSql = "SELECT M_PWKEY, MEMBER_ID, M_NAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_PWKEY = '" & key & "'" set rsKey = my_Conn.Execute (strSql) if rsKey.EOF or rsKey.BOF then 'Error message to user Response.Write "

Chiave di Attivazione Non Trovata!

" & vbNewLine & _ "

La tua Chiave di Attivazione non è stata Trovata nel nostro Database.
Per favore riprova a registrarti di nuovo cliccando sul link Registrati in alto nella pagina.
Se il problema persiste, per favore contatta l'Amministratore di questo forum.

" & vbNewLine & _ "

Torna al Forum

" & vbNewLine elseif strComp(key,rsKey("M_PWKEY")) <> 0 then 'Error message to user Response.Write "

Chiave di Attivazione Non Trovata!

" & vbNewLine & _ "

Torna al Forum

" & vbNewLine else PWMember_ID = rsKey("MEMBER_ID") call showForm2 end if rsKey.close set rsKey = nothing elseif Request.Form("pwkey") <> "" and Request.Form("mode") = "UpdateIt" then key = chkString(Request.Form("pwkey"),"SQLString") '###Forum_SQL strSql = "SELECT M_PWKEY, MEMBER_ID, M_NAME, M_EMAIL " strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) strSql = strSql & " AND M_PWKEY = '" & key & "'" set rsKey = my_Conn.Execute (strSql) if rsKey.EOF or rsKey.BOF then 'Error message to user Response.Write "

Chiave di Attivazione Non Trovata!

" & vbNewLine & _ "

Torna al Forum

" & vbNewLine elseif strComp(key,rsKey("M_PWKEY")) <> 0 then 'Error message to user Response.Write "

Chiave di Attivazione Non Trovata!

" & vbNewLine & _ "

Torna al Forum

" & vbNewLine else if trim(Request.Form("Password")) = "" then Err_Msg = Err_Msg & "

Devi scegliere una Password

" end if if Len(Request.Form("Password")) > 25 then Err_Msg = Err_Msg & "

La tua Password non può superare i 25 caratteri

" end if if Request.Form("Password") <> Request.Form("Password2") then Err_Msg = Err_Msg & "

La tua Password non è esatta.

" end if if Err_Msg = "" then strEncodedPassword = sha256("" & Request.Form("Password")) pwkey = "" 'Update the user's password strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_PASSWORD = '" & chkString(strEncodedPassword,"SQLString") & "'" strSql = strSql & ", M_PWKEY = '" & chkString(pwkey,"SQLString") & "'" strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID")) strSql = strSql & " AND M_PWKEY = '" & key & "'" my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords else if Err_Msg <> "" then Response.Write "

C'è stato un Problema

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Torna indietro per inserire i Dati

" & vbNewLine rsKey.close set rsKey = nothing WriteFooter Response.End end if end if Response.Write "

La tua Password è stata aggiornata!

" & vbNewLine & _ "

Ora puoi eseguire il login" if strAuthType = "db" then Response.Write(" con il tuo Nome Utente e la nuova Password") Response.Write ".

" & vbNewLine Response.Write " " & vbNewLine Response.Write "

Torna al Forum

" & vbNewLine end if rsKey.close set rsKey = nothing else Err_Msg = "" if trim(Request.Form("Name")) = "" then Err_Msg = Err_Msg & "

Devi inserire il tuo Nome Utente

" end if if trim(Request.Form("Email")) = "" then Err_Msg = Err_Msg & "

Devi inserire il tuo indirizzo E-mail

" end if '## Forum_SQL strSql = "SELECT MEMBER_ID, M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " WHERE M_NAME = '" & ChkString(Trim(Request.Form("Name")), "SQLString") &"'" strSql = strSql & " AND M_EMAIL = '" & ChkString(Trim(Request.Form("Email")), "SQLString") &"'" set rs = my_Conn.Execute (strSql) if rs.BOF and rs.EOF then Err_Msg = Err_Msg & "

Il Nome Utente o l'indirizzo E-mail inserito non esistono nel database.

" else PWMember_ID = rs("MEMBER_ID") PWMember_Name = rs("M_NAME") PWMember_Email = rs("M_EMAIL") end if rs.close set rs = nothing if Err_Msg = "" then pwkey = GetKey("none") 'Update the user Member Level strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS " strSql = strSql & " SET M_PWKEY = '" & chkString(pwkey,"SQLString") & "'" strSql = strSql & " WHERE MEMBER_ID = " & PWMember_ID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords if lcase(strEmail) = "1" then '## E-mails Message to the Author of this Reply. strRecipientsName = PWMember_Name strRecipients = PWMember_Email strFrom = strSender strFromName = strForumTitle strsubject = strForumTitle & " - Password Dimenticata? " strMessage = "Ciao " & PWMember_Name & vbNewline & vbNewline strMessage = strMessage & "Hai ricevuto questo messaggio dal " & strForumTitle & " perché hai richiesto una nuova password tramite la funzione ""Password Dimenticata?""" & vbNewline & vbNewline strMessage = strMessage & "Per favore clicca sul link seguente per procedere con l'operazione." & vbNewline & vbNewLine strMessage = strMessage & strForumURL & "password.asp?pwkey=" & pwkey & vbNewline & vbNewline strMessage = strMessage & vbNewLine & "Se non hai dimenticato la tua password e hai ricevuto quest'e-mail per errore, puoi tranquillamente eliminarla, non è necessaria nessuna azione." & vbNewLine & vbNewLine %> <% end if else if Err_Msg <> "" then Response.Write "

C'è stato un Problema

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & Err_Msg & "

" & vbNewLine & _ "

Torna a reinserire i Dati

" & vbNewLine WriteFooter Response.End end if end if Response.Write "

Prima Operazione Completata!

" & vbNewLine & _ "

Per favore segui le istruzioni che troverai nell'e-mail che è stata spedita all'indirizzo " & ChkString(PWMember_Email,"email") & " per completare l'operazione di recupero password.

" & vbNewLine Response.Write " " & vbNewLine Response.Write "

Torna al Forum

" & vbNewLine end if WriteFooter Response.End sub ShowForm() Response.Write "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewline & _ " " & vbNewline & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

Password Dimenticata?
Questo Processo è composto da 3 fasi:" & vbNewLine & _ " " & vbNewLine & _ " Prima fase: Inserisci il tuo Nome Utente e l'indirizzo e-mail nel form sotto per ricevere un e-mail contenente un codice per verificare la tua identità. " & vbNewLine & _ " Seconda Fase: Controlla la tua casella e clicca sul link nell'e-mail che ti sarà spedita per ritornare a questa pagina. " & vbNewLine & _ " Terza Fase: Scegli la tua nuova password. " & vbNewLine & _ "
Nome Utente:
Indirizzo E-mail:

" & vbNewLine & _ "

" & vbNewLine end sub sub ShowForm2() Response.Write "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

Password Dimenticata?
Questo Processo è composto da 3 fasi:" & vbNewLine & _ " " & vbNewLine & _ " Prima Fase: Inserisci il tuo Nome Utente e l'indirizzo e-mail nel form sotto per ricevere un e-mail contenente un codice per verificare la tua identità. (COMPLETATA) " & vbNewLine & _ " Seconda Fase: Controlla la tua casella e clicca sul link nell'e-mail che ti sarà spedita per ritornare a questa pagina. (COMPLETATA) " & vbNewLine & _ " Terza Fase: Scegli la tua nuova password. " & vbNewLine & _ "
Password:
Riscrivi Password:

" & vbNewLine & _ "

" & vbNewLine end sub %>