Snitz Forums 2000


<%
'###############################################################################
'##
'##				 							Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##				 							Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modIfy it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.	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 an 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:
'##
'##						Free Software Foundation, Inc.
'##						59 Temple Place, Suite 330
'##						Boston, MA 02111-1307
'##
'## Support can be obtained from our support forums at:
'##
'## 						http://forum.snitz.com
'##
'## Correspondence and marketing questions can be sent to:
'##
'## 						manderson@snitz.com
'##
'###############################################################################
'##
'## Friendly Registration Mod
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp"-->
<!--#INCLUDE FILE="inc_func_member.asp"-->
<!--#INCLUDE FILE="inc_func_secure.asp"-->
<%
If (strDBNTUsername<>"") or (Request.Cookies("forums")("registered")= "yes") Then
	Response.Write	"Registration already completed." & vbNewLine & _
			"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
		WriteFooter
		Response.End
End If
If Request.Form("Befriend") = "Resend" Then
	If strProhibitNewMembers <> "1" Then
		strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS_PENDING WHERE M_NAME = '" & Request.Form("UserName") & "'"
		Set rsKey=my_Conn.Execute(strSql)
		If not rsKey.EOF Then
			If lcase(strEmail) = "1" and strEmailVal = "1" Then
				regmail
				Response.Write	"<center>Activation mail resent.</center>" & vbNewLine & _
					"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
				WriteFooter
				Response.End
			End If
		End If
	End If
ElseIf Request.Form("Befriend") = "Repeat" Then
	If (Request.Form("UserName")="" or Request.Form("ActKey") = "") Then
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You must provide user name and activation key." & vbNewLine & _
			"  <a href=""JavaScript:history.go(-1)"">Go Back To Enter Data</a></font></p>" & vbNewLine
		WriteFooter
		Response.End
	End If
	strSql = "SELECT M_NAME, M_KEY FROM " & strMemberTablePrefix & "MEMBERS WHERE M_NAME = '" & Request.Form("UserName") & "' AND M_KEY = '" & Request.Form("ActKey") & "'"
	Set rsKey=my_Conn.Execute(strSql)
	If not rsKey.EOF Then
		Response.Write	"Registration completed." & vbNewLine & _
			"			<meta http-equiv=""Refresh"" content=""3; URL=default.asp"">" & vbNewLine
		WriteFooter
		Response.End
	End If
Else
	Response.Write	"<form name=""Friendly"" action=""friendly.asp"">" & vbNewLine & _
		"	<table bgColor=""" & strPageBGColor & """ align=""center"" width=""70%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"		<tr valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" width=""100%"" bgColor=""" & strTableBorderColor & """>" & vbNewLine & _
		"				<table align=""center"" width=""100%"" border=""1"" cellpadding=""3"" cellspacing=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""center"" width=""100%"" colspan=""2"" bgColor=""" & strCategoryCellColor & """>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize+2 & """ color=""" & strCategoryFontColor & """><b>Account Activation</b>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""right"" width=""25%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"								<input type=""Radio"" name=""Befriend"" value=""Resend"" checked>Resend Activation Mail " & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td align=""left"" width=""75%"" bgColor=""" & strForumCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """> User Name " & vbNewLine & _
		"								<input type=""text"" name=""UserName"" size=""25"" maxlength=""50"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr valign=""middle"">" & vbNewLine & _
		"						<td align=""right"" width=""25%"" bgColor=""" & strForumFirstCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"								<input type=""Radio"" name=""Befriend"" value=""Repeat"">Submit Activation Info " & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td align=""left"" width=""75%"" bgColor=""" & strForumFirstCellColor & """>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """> User Name " & vbNewLine & _
		"								<input type=""text"" name=""UserName"" size=""25"" maxlength=""50"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"							<font face=""Lucida Console"" size=""" & strForumFontSize & """ color=""" & strForumFontColor & """>     Activation Key " & vbNewLine & _
		"								<input type=""text"" name=""ActKey"" size=""25"" maxlength=""32"">" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"		<tr height=""60"" valign=""middle"">" & vbNewLine & _
		"			<td align=""center"" width=""100%"" colspan=""2"" bgColor=""" & strPageBGColor & """>" & vbNewLine & _
		"				<style="".button2 {font-family: Verdana, Geneva, sans-serif; font-size: 24px; color: #FFF; padding: 5px 10px 5px 10px; border: 1px solid #999; text-shadow: 0px 1px 1px #000; text-decoration: none; border-radius: 25px; -moz-border-radius: 25px; -webkit-border-radius: 25px; background: #0060df; background: -moz-linear-gradient(-90deg, #9299d0 5%, #6f78c1 15%, #3944a8 35%, #138aef 75%, #78e2ff 100%, #fff); background: -webkit-gradient(linear, left top, left bottom, from(#9299d0), to(#78e2ff), color-stop(0.2, #6f78c1), color-stop(0.5, #3944a8), color-stop(.7, #138aef), color-stop(0.9, #78e2ff)); filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#3944a8', endColorstr='#78e2ff', GradientType=0 ); cursor: pointer;} .button2:hover {background: -moz-linear-gradient(90deg, #9299d0 5%, #6f78c1 15%, #3944a8 35%, #138aef 75%, #78e2ff 100%, #fff); background: -webkit-gradient(linear, left bottom, left top, from(#9299d0), to(#78e2ff), color-stop(0.2, #6f78c1), color-stop(0.5, #3944a8), color-stop(.7, #138aef), color-stop(0.9, #78e2ff)); filter: progid:DXImageTransform.Microsoft.gradient( startColorstr='#78e2ff', endColorstr='#3944a8', GradientType=0 ); }""></style><input type=""Submit"" class=""button2"" name=""Submit"" value=""Submit"">" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine
End If
WriteFooter
%>