Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/O Code)
 Forgotten Username & Password ?

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
   

T O P I C    R E V I E W
Webbo Posted - 04 September 2011 : 12:01:55
We get several enquiries a week from members who've forgotten both their username and password - is there a mod available that allows a member to look up their username based on an email address query and then to be able to reset their password from the results page in the same way that it is done at the moment?
4   L A T E S T    R E P L I E S    (Newest First)
Webbo Posted - 08 September 2011 : 16:37:40
Sorted it


For versions 3.4.03

Replace password.asp with all the code below:

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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 (at your option) 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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
Response.Write "      <table width=""100%"" border=""0"">" & vbNewLine & _
   "        <tr>" & vbNewLine & _
   "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
   "          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Forgot your Username and/or Password?<br /></font></td>" & vbNewLine & _
   "        </tr>" & vbNewLine & _
   "      </table>" & vbNewLine
If lCase(strEmail) <> "1" Then
   Response.Redirect("default.asp")
End If
If Request.Form("mode") <> "UpdateIt" and Trim(Request.QueryString("pwkey")) = "" and Request.Form("mode") <> "DoIt" Then
   Call ShowForm
ElseIf Request.Form("mode") <> "UpdateIt" and Trim(Request.QueryString("pwkey")) <> "" Then
   key = chkString(Request.QueryString("pwkey"),"SQLString")
   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
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
   ElseIf strComp(key,rsKey("M_PWKEY")) <> 0 Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
   Else
      PWMember_ID = rsKey("MEMBER_ID")
      Call showForm2
      rsKey.Close
   End If
   Set rsKey = Nothing
ElseIf Trim(Request.Form("pwkey")) <> "" and Request.Form("mode") = "UpdateIt" Then
   key = chkString(Request.Form("pwkey"),"SQLString")
   strSql = "SELECT M_PWKEY, M_EMAIL "
   strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
   strSql = strSql & " WHERE M_EMAIL = " & cLng(Request.Form("Email"))
   strSql = strSql & " AND M_PWKEY = '" & key & "'"
   Set rsKey = my_Conn.Execute(strSql)
   If rsKey.EOF or rsKey.BOF Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
   ElseIf strComp(key,rsKey("M_PWKEY")) <> 0 Then
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
  Else
      If Trim(Request.Form("Password")) = "" Then
         Err_Msg = Err_Msg & "<li>You must choose a Password</li>"
      End If
      If Len(Request.Form("Password")) > 25 Then
         Err_Msg = Err_Msg & "<li>Your Password can not be greater than 25 characters</li>"
      End If
      If Request.Form("Password") <> Request.Form("Password2") Then
         Err_Msg = Err_Msg & "<li>Your Passwords didn't match.</li>"
      End If
      If Err_Msg = "" Then
         strEncodedPassword = sha256("" & Request.Form("Password"))
         strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
         strSql = strSql & " Set M_PASSWORD = '" & chkString(strEncodedPassword,"SQLString") & "'"
         strSql = strSql & ", M_PWKEY = ''"
         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 "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
               "      <table align=""center"" border=""0"">" & vbNewLine & _
               "        <tr>" & vbNewLine & _
               "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
               "        </tr>" & vbNewLine & _
               "      </table>" & vbNewLine & _
               "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
            rsKey.Close
            Set rsKey = Nothing
            WriteFooter
            Response.End
         End If
      End If
      Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your Password has been updated!</font></p>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You may now login"
      If strAuthType = "db" Then Response.Write(" with your UserName and new Password")
      Response.Write ".</font></p>" & vbNewLine & _
         "      <meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
         "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
   End If
   rsKey.Close
   Set rsKey = Nothing
Else
   Err_Msg = ""
   If Trim(Request.Form("Email")) = "" Then
      Err_Msg = Err_Msg & "<li>You must enter your E-mail Address</li>"
   End If
   strSql = "SELECT MEMBER_ID, M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
   strSql = strSql & " WHERE 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 & "<li>The E-mail Address you entered does not exist in the database.</li>"
   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")
      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
         strRecipientsName = PWMember_Name
         strRecipients = PWMember_Email
         strFrom = strSender
         strFromName = strForumTitle
         strsubject = strForumTitle & " - Forgot Your Username and/or Password? "
         strMessage = "Hello, your Username is: " & PWMember_Name & vbNewline & vbNewline
         strMessage = strMessage & "You received this message from " & strForumTitle & " because you have completed the First Step on the ""Forgot Your Username and/or Password?"" page." & vbNewline & vbNewline
         strMessage = strMessage & "If you wish to reset your Password, please click on the link below to proceed to the next step." & vbNewline & vbNewLine
         strMessage = strMessage & strForumURL & "password.asp?pwkey=" & pwkey & vbNewline & vbNewline
         strMessage = strMessage & vbNewLine & "If you did not forget your username and/or password and received this e-mail in error, then you can just disregard/delete this e-mail, no further action is necessary." & vbNewLine & vbNewLine
         %>
         <!--#INCLUDE FILE="inc_mail.asp" -->
         <%
      End If
   Else
      If Err_Msg <> "" Then
         Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
            "      <table align=""center"" border=""0"">" & vbNewLine & _
            "        <tr>" & vbNewLine & _
            "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
            "        </tr>" & vbNewLine & _
            "      </table>" & vbNewLine & _
            "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
         WriteFooter
         Response.End
      End If
   End If
   Response.Write "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Step One is Complete!</font></p>" & vbNewLine & _
      "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Please follow the instructions in the e-mail that has been sent to <b>" & ChkString(PWMember_Email,"email") & "</b> to complete the next step in this process.</font></p>" & vbNewLine & _
      "      <meta http-equiv=""Refresh"" content=""5; URL=default.asp"">" & vbNewLine & _
      "      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
End If
WriteFooter
Response.End

Sub ShowForm()
   Response.Write "      <form action=""password.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
      "      <input name=""mode"" type=""hidden"" value=""DoIt"">" & vbNewLine & _
      "      <table width=""100%"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
      "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
      "              <tr>" & vbNewline & _
      "                <td colspan=""2"" align=""center"" bgcolor=""" & strHeadCellColor & """ valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Forgot your Username and/or Password?</font></b></td>" & vbNewline & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewline & _
      "                <td colspan=""2"" align=""left"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>This is a 3 step process:" & vbNewLine & _
      "                <ul>" & vbNewLine & _
      "                 <font color=""" & strHiLiteFontColor & """><li><b>First Step:</b><br />Enter your forum e-mail address below to receive an e-mail containing a code to verify that you are who you say you are.</li></font>" & vbNewLine & _
      "                <li><b>Check your email:</b> Your Username will be at the top of the email you receive.</li><br />" & vbNewLine & _
      "                <br />" & vbNewLine & _
      "                <li><b>Second Step (To reset your Password):</b><br />Check your email and click on the link that is provided to return to this page.</li>" & vbNewLine & _
      "                <li><b>Third Step:</b><br />Choose your new password.</li>" & vbNewLine & _
      "                </ul></font></td>" & vbNewline & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                <td width=""50%"" align=""right"" bgcolor=""" & strForumCellColor & """ nowrap><b><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>E-mail Address: </font></b></td>" & vbNewLine & _
      "                <td width=""50%"" bgcolor=""" & strForumCellColor & """><input type=""text"" name=""Email"" size=""25"" maxLength=""50""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                <td colspan=""2"" bgcolor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Submit"" id=""Submit1"" name=""Submit1"">   <input type=""reset"" value=""Reset"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "            </table>" & vbNewLine & _
      "          </td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "      </table>" & vbNewLine & _
      "      </form><br />" & vbNewLine
End Sub

Sub ShowForm2()
   Response.Write "      <form action=""password.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
      "      <input name=""mode"" type=""hidden"" value=""UpdateIt"">" & vbNewLine & _
      "      <input name=""MEMBER_ID"" type=""hidden"" value=""" & PWMember_ID & """>" & vbNewLine & _
      "      <input name=""pwkey"" type=""hidden"" value=""" & key & """>" & vbNewLine & _
      "      <table width=""100%"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
      "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
      "              <tr>" & vbNewline & _
      "                <td colspan=""2"" align=""center"" bgcolor=""" & strHeadCellColor & """ valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Forgot your Password?</font></b></td>" & vbNewline & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewline & _
      "                <td colspan=""2"" align=""left"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>This is a 3 step process:" & vbNewLine & _
      "                <ul>" & vbNewLine & _
      "                <li><b>First Step:</b><br />Enter your e-mail address in the form below to receive an e-mail containing a code to verify that you are who you say you are. <b>(COMPLETED)</b></li>" & vbNewLine & _
      "                <li><b>Second Step:</b><br />Check your e-mail and Then click on the link that is provided to return to this page. <b>(COMPLETED)</b></li>" & vbNewLine & _
      "                <font color=""" & strHiLiteFontColor & """><li><b>Third Step:</b><br />Choose your new password.</li></font>" & vbNewLine & _
      "                </ul></font></td>" & vbNewline & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                <td width=""50%"" bgColor=""" & strForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Password: </font></b></td>" & vbNewLine & _
      "                <td width=""50%"" bgColor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                <td width=""50%"" bgColor=""" & strForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Password Again: </font></b></td>" & vbNewLine & _
      "                <td width=""50%"" bgColor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" maxLength=""25"" size=""25"" value=""""></font></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "              <tr>" & vbNewLine & _
      "                <td colspan=""2"" bgcolor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Submit"" id=""Submit1"" name=""Submit1"">   <input type=""reset"" value=""Reset"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
      "              </tr>" & vbNewLine & _
      "            </table>" & vbNewLine & _
      "          </td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "      </table>" & vbNewLine & _
      "      </form><br />" & vbNewLine
End Sub
%>



Replace policy.asp with below:
<%
'#################################################################################
'## 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
'#################################################################################
%> <!--#INCLUDE FILE="config.asp"--><!--#INCLUDE FILE="inc_sha256.asp"--><!--#INCLUDE FILE="inc_header.asp" --><%
Response.Write "      <table width=""100%"" border=""0"">" & vbNewLine & _
      "        <tr>" & vbNewLine & _
      "          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
      "          " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
      "          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Registration Rules and Policies Agreement</font></td>" & vbNewLine & _
      "        </tr>" & vbNewLine & _
      "      </table>" & vbNewLine

if strProhibitNewMembers <> "1" then
   Response.Write "      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
         "        <tr>" & vbNewLine & _
         "          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
         "            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Privacy Statement for " & strForumTitle & "</b></font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "              <tr>" & vbNewLine & _
         "                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
         "                <p>If you agree to the terms and conditions stated below, " & _
         "press the "Agree" button. Otherwise, press "Cancel".</p>" & vbNewLine & _
         "                <p>In order to use these Forums, users are required to " & _
         "provide a username, password and <br>e-mail address. Neither the Administrators of " & _
         "these forums, or the Moderators participating, are responsible for the privacy " & _
         "practices of any user. Remember that all information that is disclosed in these " & _
         "areas becomes public information and you should exercise caution when deciding " & _
         "to share any of your personal information. Any user who finds material posted by " & _
         "another user objectionable is encouraged to contact us via e-mail. We are " & _
         "authorized by you to remove or modify any data submitted by you to these forums " & _
         "for any reason we feel constitutes a violation of our policies, whether stated, " & _
         "implied or not.</p>" & vbNewLine & _   
         "                <p>This site may contain links to other web sites and " & _
         "files. We have no control over the content and can not ensure it will not be offensive " & _
         "or objectionable.  We will, however, remove links to material that we feel is inappropriate as we become aware of them.</p>" & vbNewLine & _
         "                <p>These forums give users two options for changing and " & _
         "modifying information that they provide in their profile: " & _
         "<ol>" & _
         "  <li>Users can login with their username and password to " & _
         "    change any information in their profile." & _
         " <br><br> " & _
         "  <li>In case of lost Username and/or Password, users can request a Username reminder and/or reset their password:<br/> " & _
         "    To request a Username reminder or reset your Password <a href=""password.asp"">Click Here</a>.</li>" & _
         "</ol>" & _
         "</p>" & vbNewLine & _
         "                <p>Cookies must be turned on in your browser to participate " & _
         "as a user in these forums. Cookies are used here to hold your username and " & _
         "password and viewing options, allowing you to login.</p>" & vbNewLine & _
         "                <p>By pressing the "Agree" button, you agree that you, the " & _
         "user, are 13 years of age or over. You are fully responsible for any information " & _
         "or file supplied by this user. You also agree that you will not post any " & _
         "copyrighted material that is not owned by yourself or the owners of these " & _
         "forums. In your use of these forums, you agree that you will not post any " & _
         "information which is vulgar, harassing, hateful, threatening, invading of others " & _
         "privacy, sexually oriented, or violates any laws.</p>" & vbNewLine & _
         "                <p>If you do agree with the rules and policies stated in " & _
         "this agreement, and meet the criteria stated herein, proceed to press the " & _
         ""Agree" button below, otherwise press "Cancel".</p>" & vbNewLine & _
         "                <hr size=""1"">" & vbNewLine & _
         "                  <table align=""center"" border=""0"">" & vbNewLine & _
         "                    <tbody>" & vbNewLine & _
         "                      <tr>" & vbNewLine & _
         "                        <td>" & vbNewLine & _
         "                        <form action=""register.asp?mode=Register"" id=""form1"" method=""post"" name=""form1"">" & vbNewLine & _
         "                        <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
         "                        <input name=""Submit"" type=""Submit"" value=""Agree"">" & vbNewLine & _
         "                        </form>" & vbNewLine & _
         "                        </td>" & vbNewLine & _
         "                        <td>" & vbNewLine & _
         "                        <form action=""JavaScript:history.go(-1)"" id=""form2"" method=""post"" name=""form2"">" & vbNewLine & _
         "                        <input name=""Submit"" type=""Submit"" value=""Cancel"">" & vbNewLine & _
         "                        </form>" & vbNewLine & _
         "                        </td>" & vbNewLine & _
         "                      </tr>" & vbNewLine & _
         "                    </tbody>" & vbNewLine & _
         "                  </table>" & vbNewLine & _
         "                <hr size=""1"">" & vbNewLine & _
         "                <p>If you have any questions about this privacy statement " & _
         "or the use of these forums, you may contact us: " & _
         "<a href=""contact.asp"">Contact us</a></p>" & vbNewLine & _
         "                </font></td>" & vbNewLine & _
         "              </tr>" & vbNewLine & _
         "            </table>" & vbNewLine & _
         "          </td>" & vbNewLine & _
         "        </tr>" & vbNewLine & _
         "      </table>" & vbNewLine & _
         "      <br />" & vbNewLine
else
   Response.Write "    <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Sorry, we are not accepting any new Members at this time.</font></p>" & vbNewLine & _
         "    <meta http-equiv=""Refresh"" content=""5; URL=default.asp"">" & vbNewLine & _
         "    <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p><br />" & vbNewLine
end if
WriteFooter
Response.End
%>



inc_header.asp

Search for: Password
Replace with: Username and/or Password


faq.asp

Find: 
   Response.Write "                <li><span class=""spnMessageText""><a href=""#pw"">What do I do if I forget my Password?</a></span></li>" & vbNewLine & _


Replace with:
   Response.Write "                <li><span class=""spnMessageText""><a href=""#pw"">What do I do if I forget my Username and/or Password?</a></span></li>" & vbNewLine & _



Find:
        "                 <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""pw""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Lost Password</b></font></td>" & vbNewLine & _


Replace with:
        "                 <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""pw""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Forgotten Username and/or Password</b></font></td>" & vbNewLine & _



Find:
         "                 Changing a lost password is simple, assuming that e-mail features are turned on for this forum. All of the pages that require you to identify yourself with your Username and Password carry a "lost Password" link that you can use to have a code e-mailed instantly to your e-mail address of record that will allow you to create a new password. Because of the Encryption that we use for your password, we cannot tell you what your password is.</font></p></td>" & vbNewLine & _


Replace with:
         "                 Recovering a Username or changing a lost password is simple, assuming that e-mail features are turned on for this forum. All of the pages that require you to identify yourself with your Username and Password carry a "forgotten Username and/or Password" link that you can use to have a code e-mailed instantly to your e-mail address of record that will remind you of your username and allow you to create a new password. Because of the Encryption that we use for your password, we cannot tell you what your password is.</font></p></td>" & vbNewLine & _



This makes it all grammatically correct and reads as it should

I don't know the differences between the 3.4.03 and later versions policy.asp files but if someone wants to write it into a MOD please feel free to do so.
The password.asp works in 3.4.03 and 3.4.07 versions


Edited to add changes to faq.asp
Carefree Posted - 06 September 2011 : 01:41:23
This ought to do it for you, Webbo. If you're using password salting, you'll have to modify line 98 to reflect what you're doing.


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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 (at your option) 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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<%
Response.Write	"      <table width=""100%"" border=""0"">" & vbNewLine & _
	"        <tr>" & vbNewLine & _
	"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Forgot your Password?<br /></font></td>" & vbNewLine & _
	"        </tr>" & vbNewLine & _
	"      </table>" & vbNewLine
If lCase(strEmail) <> "1" Then
	Response.Redirect("default.asp")
End If
If Request.Form("mode") <> "UpdateIt" and Trim(Request.QueryString("pwkey")) = "" and Request.Form("mode") <> "DoIt" Then
	Call ShowForm
ElseIf Request.Form("mode") <> "UpdateIt" and Trim(Request.QueryString("pwkey")) <> "" Then
	key = chkString(Request.QueryString("pwkey"),"SQLString")
	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
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
	ElseIf strComp(key,rsKey("M_PWKEY")) <> 0 Then
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
	Else
		PWMember_ID = rsKey("MEMBER_ID")
		Call showForm2
		rsKey.Close
	End If
	Set rsKey = Nothing
ElseIf Trim(Request.Form("pwkey")) <> "" and Request.Form("mode") = "UpdateIt" Then
	key = chkString(Request.Form("pwkey"),"SQLString")
	strSql = "SELECT M_PWKEY, M_EMAIL "
	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE M_EMAIL = " & cLng(Request.Form("Email"))
	strSql = strSql & " AND M_PWKEY = '" & key & "'"
	Set rsKey = my_Conn.Execute(strSql)
	If rsKey.EOF or rsKey.BOF Then
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
	ElseIf strComp(key,rsKey("M_PWKEY")) <> 0 Then
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><b>Your password key did not match!</b></font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your password key did not match the one that we have in our database.<br />Please try submitting your UserName and E-mail Address again by clicking the Forgot your Password? link from the Main page of this forum.<br />If this problem persists, please contact the <a href=""mailto:" & strSender & """>Administrator</a> of the forums.</font></p>" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
  Else
		If Trim(Request.Form("Password")) = "" Then
			Err_Msg = Err_Msg & "<li>You must choose a Password</li>"
		End If
		If Len(Request.Form("Password")) > 25 Then
			Err_Msg = Err_Msg & "<li>Your Password can not be greater than 25 characters</li>"
		End If
		If Request.Form("Password") <> Request.Form("Password2") Then
			Err_Msg = Err_Msg & "<li>Your Passwords didn't match.</li>"
		End If
		If Err_Msg = "" Then
			strEncodedPassword = sha256("" & Request.Form("Password"))
			strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
			strSql = strSql & " Set M_PASSWORD = '" & chkString(strEncodedPassword,"SQLString") & "'"
			strSql = strSql & ", M_PWKEY = ''"
			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	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
					"      <table align=""center"" border=""0"">" & vbNewLine & _
					"        <tr>" & vbNewLine & _
					"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
					"        </tr>" & vbNewLine & _
					"      </table>" & vbNewLine & _
					"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
				rsKey.Close
				Set rsKey = Nothing
				WriteFooter
				Response.End
			End If
		End If
		Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Your Password has been updated!</font></p>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You may now login"
		If strAuthType = "db" Then Response.Write(" with your UserName and new Password")
		Response.Write	".</font></p>" & vbNewLine & _
			"      <meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine & _
			"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
	End If
	rsKey.Close
	Set rsKey = Nothing
Else
	Err_Msg = ""
	If Trim(Request.Form("Email")) = "" Then
		Err_Msg = Err_Msg & "<li>You must enter your E-mail Address</li>"
	End If
	strSql = "SELECT MEMBER_ID, M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS "
	strSql = strSql & " WHERE 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 & "<li>The E-mail Address you entered does not exist in the database.</li>"
	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")
		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
			strRecipientsName = PWMember_Name
			strRecipients = PWMember_Email
			strFrom = strSender
			strFromName = strForumTitle
			strsubject = strForumTitle & " - Forgot Your Password? "
			strMessage = "Hello " & PWMember_Name & vbNewline & vbNewline
			strMessage = strMessage & "You received this message from " & strForumTitle & " because you have completed the First Step on the ""Forgot Your Password?"" page." & vbNewline & vbNewline
			strMessage = strMessage & "Please click on the link below to proceed to the next step." & vbNewline & vbNewLine
			strMessage = strMessage & strForumURL & "password.asp?pwkey=" & pwkey & vbNewline & vbNewline
			strMessage = strMessage & vbNewLine & "If you did not forget your password and received this e-mail in error, Then you can just disregard/delete this e-mail, no further action is necessary." & vbNewLine & vbNewLine
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
		End If
	Else
		If Err_Msg <> "" Then
			Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>There Was A Problem With Your Details</font></p>" & vbNewLine & _
				"      <table align=""center"" border=""0"">" & vbNewLine & _
				"        <tr>" & vbNewLine & _
				"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"        </tr>" & vbNewLine & _
				"      </table>" & vbNewLine & _
				"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
			WriteFooter
			Response.End
		End If
	End If
	Response.Write	"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """>Step One is Complete!</font></p>" & vbNewLine & _
		"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Please follow the instructions in the e-mail that has been sent to <b>" & ChkString(PWMember_Email,"email") & "</b> to complete the next step in this process.</font></p>" & vbNewLine & _
		"      <meta http-equiv=""Refresh"" content=""5; URL=default.asp"">" & vbNewLine & _
		"      <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p>" & vbNewLine
End If
WriteFooter
Response.End

Sub ShowForm()
	Response.Write	"      <form action=""password.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"      <input name=""mode"" type=""hidden"" value=""DoIt"">" & vbNewLine & _
		"      <table width=""100%"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
		"              <tr>" & vbNewline & _
		"                <td colspan=""2"" align=""center"" bgcolor=""" & strHeadCellColor & """ valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Forgot your Password?</font></b></td>" & vbNewline & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewline & _
		"                <td colspan=""2"" align=""left"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>This is a 3 step process:" & vbNewLine & _
		"                <ul>" & vbNewLine & _
		"                 <font color=""" & strHiLiteFontColor & """><li><b>First Step:</b><br />Enter your username and e-mail address in the form below to receive an e-mail containing a code to verify that you are who you say you are.</li></font>" & vbNewLine & _
		"                <li><b>Second Step:</b><br />Check your e-mail and Then click on the link that is provided to return to this page.</li>" & vbNewLine & _
		"                <li><b>Third Step:</b><br />Choose your new password.</li>" & vbNewLine & _
		"                </ul></font></td>" & vbNewline & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td width=""50%"" align=""right"" bgcolor=""" & strForumCellColor & """ nowrap><b><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>E-mail Address: </font></b></td>" & vbNewLine & _
		"                <td width=""50%"" bgcolor=""" & strForumCellColor & """><input type=""text"" name=""Email"" size=""25"" maxLength=""50""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td colspan=""2"" bgcolor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Submit"" id=""Submit1"" name=""Submit1"">   <input type=""reset"" value=""Reset"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"            </table>" & vbNewLine & _
		"          </td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine & _
		"      </form><br />" & vbNewLine
End Sub

Sub ShowForm2()
	Response.Write	"      <form action=""password.asp"" method=""Post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"      <input name=""mode"" type=""hidden"" value=""UpdateIt"">" & vbNewLine & _
		"      <input name=""MEMBER_ID"" type=""hidden"" value=""" & PWMember_ID & """>" & vbNewLine & _
		"      <input name=""pwkey"" type=""hidden"" value=""" & key & """>" & vbNewLine & _
		"      <table width=""100%"" border=""0"" align=""center"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewline & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewline & _
		"              <tr>" & vbNewline & _
		"                <td colspan=""2"" align=""center"" bgcolor=""" & strHeadCellColor & """ valign=""top""><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Forgot your Password?</font></b></td>" & vbNewline & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewline & _
		"                <td colspan=""2"" align=""left"" bgcolor=""" & strForumCellColor & """ valign=""top""><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """ color=""" & strForumFontColor & """>This is a 3 step process:" & vbNewLine & _
		"                <ul>" & vbNewLine & _
		"                <li><b>First Step:</b><br />Enter your e-mail address in the form below to receive an e-mail containing a code to verify that you are who you say you are. <b>(COMPLETED)</b></li>" & vbNewLine & _
		"                <li><b>Second Step:</b><br />Check your e-mail and Then click on the link that is provided to return to this page. <b>(COMPLETED)</b></li>" & vbNewLine & _
		"                <font color=""" & strHiLiteFontColor & """><li><b>Third Step:</b><br />Choose your new password.</li></font>" & vbNewLine & _
		"                </ul></font></td>" & vbNewline & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td width=""50%"" bgColor=""" & strForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Password: </font></b></td>" & vbNewLine & _
		"                <td width=""50%"" bgColor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password"" type=""Password"" size=""25"" maxLength=""25"" value=""""></font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td width=""50%"" bgColor=""" & strForumCellColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Password Again: </font></b></td>" & vbNewLine & _
		"                <td width=""50%"" bgColor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><input name=""Password2"" type=""Password"" maxLength=""25"" size=""25"" value=""""></font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td colspan=""2"" bgcolor=""" & strForumCellColor & """ align=""center""><input type=""submit"" value=""Submit"" id=""Submit1"" name=""Submit1"">   <input type=""reset"" value=""Reset"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"            </table>" & vbNewLine & _
		"          </td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine & _
		"      </form><br />" & vbNewLine
End Sub
%>
Webbo Posted - 05 September 2011 : 17:36:23
Many thanks Shaggy, I'll look into it in the next few days
Shaggy Posted - 05 September 2011 : 05:28:47
Unless you've modified password.asp, the username is included in the e-mail that gets sent to the member containing the link to reset their password so all you'd have to do is edit the text of the link to password.asp to indicate they can retrieve their username from that page and the code of password.asp itself so that you only require them to provide their e-mail address.

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.22 seconds. Powered By: Snitz Forums 2000 Version 3.4.07