Forgotten Username & Password ?
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/70000?pagenum=1
05 November 2025, 04:03
Topic
Replies ...
Webbo
08 September 2011, 16:37
08 September 2011, 16:37
Sorted it [^]
For versions 3.4.03
Replace password.asp with all the code below:
Replace policy.asp with below:
inc_header.asp
Search for: Password
Replace with: Username and/or Password
faq.asp
Find:
Replace with:
Find:
Replace with:
Find:
Replace with:
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
For versions 3.4.03
Replace password.asp with all the code below:
Code:
<%
'#################################################################################
'## 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:
Code:
<%
'#################################################################################
'## 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:
Code:
Response.Write " <li><span class=""spnMessageText""><a href=""#pw"">What do I do if I forget my Password?</a></span></li>" & vbNewLine & _Replace with:
Code:
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:
Code:
" <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:
Code:
" <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:
Code:
" 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:
Code:
" 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