Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Contact Staff Error		  New Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Maxime
Average Member

France
521 Posts
Posted - 19 December 2013 :  00:05:28  Show Profile  Visit Maxime's Homepage  Reply with Quote
Hello,

When I check the box to receive a copy of the email, it does not work on contact_staff.asp page. I do not get a copy.

See line 188 and 258-261


<%
'###############################################################################
'##
'## 	                Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-06 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
'##
'###############################################################################
'###############################################################################
'## 						Field Limiter 2.0 ©
'##				Dynamic Drive DHTML Code Library
'##						(www.dynamicdrive.com)
'###############################################################################
ThemeID=5
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
'	############
'	##
'	##	Set "HowManyNbr" to length of anti-spam code desired.
'	##
'	##	Set "intMaxLength" to allowed number of characters.
'	##
'	############
HowManyNbr		=	8
intMaxLength 	=	1000
'  ##	Captcha Routine
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")
If strRC = "image" then
	NullStop = False
	RandCode = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode)
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode = NullRC & RandCode
	ImageP = Mid(RandCode, strRCP,1)
	Response.Redirect ImageP & ".gif"
End If
'	##### End Captcha Routine
if Request.QueryString("mode") = "DoIt" then
	if Request("Staff") > "0" then
		intMemberID = Request("Staff")
		strSql = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & intMemberID
		set rsID = my_Conn.Execute (strSql)
		if not rsID.EOF then
			strRecipientsName = rsID("M_NAME")
			strRecipients = rsID("M_EMAIL")
			rsID.close
		end if
		set rsID = nothing
	else
		intMemberID = 0
	end if
	if strRecipientsName = "" then
		strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intAdminMemberID
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if rs.EOF then
			Response.Write	"Aucun Super Admin N'Existe."
		else
			strRecipientsName=rs("M_NAME")
			strRecipients=rs("M_EMAIL")
			rs.Close
		end if
		Set rs=Nothing
	end if
	RandCode = Request.Form("code")
	strRCCode = Request.Form("coder")
	RandCode2 = (mid(strRCCode,3) + 17456) / 50000
	lenCode = Len(RandCode2)
	NullStop = False
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode2 = NullRC & RandCode2
	if RandCode = "" then
		Err_Msg = Err_Msg & "<li>S'il vous plaît entrez le code d'authentification.</li>"
	end if
	if RandCode > "" and RandCode <> RandCode2 then
		Err_Msg = Err_Msg & "<li>Le code de confirmation que vous avez saisi n'est pas correct!</li>"
	End If
	strSubject = "Contacter " & strForumTitle & " Staff"
	strMessage = Request.Form("CUTxt") & vbNewLine & vbNewLine
	strAuthor = "Vous avez reçu de la part de: " & Request.Form("CUName") & " (" & Request.Form("CUEMail") & ") "
	strMessage = strMessage & strAuthor
	strSender = Request.Form("CUEMail")
	strSql = "SELECT B_BADWORD FROM " & strTablePrefix & "BADWORDS"
	set rsBW = my_Conn.Execute(strSql)
	dim strKW(100)
	if not rsBW.EOF then
		rsBW.MoveFirst
		strKW(1)="porn"
		strKW(2)="viagra"
		strKW(3)="bondage"
		strKW(4)="hardcore"
		strKW(5)="cialis"
		strKW(6)="penis"
		strKW(7)="lolita"
		i=7
		Do while not rsBW.EOF
			i=i+1
			strKW(i)=rsBW("B_BADWORD")
			rsBW.MoveNext
		loop
		rsBW.Close
	end if
	set rsBW=Nothing
	SPAM = False
	For j = 1 to i
		If InStr(LCase(strMessage),LCase(strKW(j))) Then
			SPAM = True
			Exit For
		End If
	Next
	If Trim(strMessage) = "" or SPAM = True Then
		Response.Redirect "http://www.fbi.gov"
		Response.Buffer=True
		Response.Flush
	End If
	if strRecipientsName = "" then
		if strSender = "" then
			if strFromName = "" & MEMBER_ID = 0 then
				Err_Msg = Err_Msg & "<li>Vous devez entrer votre nom.</li>"
			end if
		end if
		if strSender = "" then
			if Request.Form("CUEmail") = "" then
				Err_Msg = Err_Msg & "<li>Vous devez entrer votre adresse e-mail.</li>"
			else
				if EmailField(Request.Form("CUEmail")) = 0 then
					Err_Msg = Err_Msg & "<li>Adresse e-mail n'est pas valide.</li>"
				end if
			end if
		end if
	end if
	if strMessage = "" then
		Err_Msg = Err_Msg & "<li>Vous devez saisir un message.</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
 			if Request.Form("ccself") = "on" and Err_Msg = "" then
				strSubject = "Contacter " & strForumTitle & " Staff"
				strMessage = Request.Form("CUTxt") & vbNewLine & vbNewLine
				strSender = Request.Form("CUEMail")
				strRecipients=Request.Form("CUEmail")
				strFromName = Request.Form("CUName")
				%>
				<!--#INCLUDE FILE="inc_mail.asp" -->
				<%
			end if
			Response.Write	"	<p><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><center>Votre message a été envoyé.</center></font></b></p>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine
		else
			Response.Write("	<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>Il Y A Un Problème.</center></font></b></p>") & vbNewLine & _
				"<table align=""center"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul>" & vbNewLine & _
				"		</font></td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Retour et corriger les données.</center></a></font></p>" & vbNewLine
	 	end if
	end if
else
	Response.Write "<form action=""contact_staff.asp?mode=DoIt"" method=""post"" id=""Form"" name=""Form"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"	<table bgColor=""" & strTableBorderColor & """ align=""center"" border=""1"" width=""60%"" cellspacing=""1"" cellpadding=""2"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td width=""100%"" bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
		"				<table bgColor=""" & strTableBorderColor & """ style=""border-collapse: collapse"" border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b>" & vbNewLine & _
		"							<font face=""" & strHeadFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeadFontColor & """>Contacter " & strForumTitle & " Staff" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""2"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" width=""98%"" bgColor=""" & strForumFirstCellColor & """ align=""center"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Choisissez Un Membre Du Staff:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""left""><font size=""1""><small> </small></font>" & vbNewLine
	StaffSearch
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Votre Nom:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""> </font><input type=""text"" name=""CUName"" value=""" & CUName & """ size=""30"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Votre E-mail:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""> </font><input type=""text"" name=""CUEmail"" value=""" & CUEmail & """ size=""30"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Recevoir Une Copie?" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""><input type=""checkbox"" name=""ccself"" value=""on""" & chkCheckBox(ccself,1,true) & "></font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" bgColor=""" & strForumCellColor & """ align=""left"">" & vbNewLine & _
		"							<font face=""" & strFooterFontFace & """ size=""" & strFooterFontSize & """> <br>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"							<font face=""" & strHeadFontFace & """ size=""" & strHeadFontSize & """><b>Message:</b>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" align=""center"" valign=""top"" nowrap><b>" & vbNewLine & _
		"							<textarea class=""bgd"" align=""left"" name=""CUTxt"" id=""CUTxt"" cols=""80"" rows=""9"" wrap=""VIRTUAL""></textarea>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"				<table border=""0"" style=""border-collapse: collapse"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" bgColor=""" & strAltForumCellColor & """ align=""center"" valign=""top"" nowrap><b><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Saisissez Le Code Ci-Dessous</font></b></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" align=""center"" bgColor=""" & strAltForumCellColor & """>" & vbNewLine
	NumbersToShow = ""
	Randomize
	For I = 1 to HowManyNbr
		NumbersToShow = NumbersToShow & Fix(9*Rnd)
	Next
	RandomizedCode = NumbersToShow * 50000 - 17456
	NullStop = False
	For I = 1 to HowManyNbr
		Response.Write  "							<img src='contact_staff.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
	Next
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"						<input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" bgColor=""" & strAltForumCellColor & """ colspan=""2"" align=""center""><input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"	<p><center><input class=""bdn"" type=""submit"" value="" Envoyer EMail!"" id=""Submit"" name=""submit""></center></p>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"" src=""fieldlimiter.js"">" & vbNewLine & _
		"	fieldlimiter.setup({" & vbNewLine & _
		"	thefield: document.getElementById(""msg"")," & vbNewLine & _
		"	maxlength: " & intMaxLength & "," & vbNewLine & _
		"	statusids: [""msg-status""]," & vbNewLine & _
		"	onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter
Response.End

Function StaffSearch
	Response.Write	"<select name=""Staff"">" & vbNewLine & _
		"	<option value="""">Choisissez Un Membre Du Staff</option>" & vbNewLine
	strSql = "SELECT MEMBER_ID, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS = 1 AND M_LEVEL > 1 ORDER BY M_LEVEL DESC, M_NAME ASC"
	set rsMem = my_Conn.Execute(strSql)
	if rsMem.EOF then
		recMemberCount = ""
	else
		allMemberData = rsMem.GetRows(adGetRowsRest)
		recMemberCount = UBound(allMemberData,2)
		meMEMBER_ID = 0
		meM_NAME = 1
		rsMem.close
	end if
	set rsMem = nothing
	if recMemberCount <> "" then
		for iMember = 0 to recMemberCount
			MembersMemberID = allMemberData(meMEMBER_ID, iMember)
			MembersMemberName = allMemberData(meM_NAME, iMember)
			Response.Write	"	<option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewLine
		next
	end if
	Response.Write	"</select>" & vbNewLine
End Function
%>
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 19 December 2013 :  02:26:03  Show Profile
My copy works just fine. Try this, it's slightly modified from the original.


<%
'###############################################################################
'##
'## 	                Snitz Forums 2000 v3.4.06
'##
'###############################################################################
'##
'## Copyright © 2000-06 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
'##
'###############################################################################
'###############################################################################
'## 						Field Limiter 2.0 ©
'##				Dynamic Drive DHTML Code Library
'##						(www.dynamicdrive.com)
'###############################################################################
ThemeID=5
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<%
if intRPI = 2 then Response.Redirect	"forum.asp?FORUM_ID=2"
'	############
'	##
'	##	Set "HowManyNbr" to length of anti-spam code desired.
'	##
'	##	Set "intMaxLength" to allowed number of characters.
'	##
'	############
HowManyNbr		=	8
intMaxLength 	=	1000
'  ##	Captcha Routine
strRCCode = Request.QueryString("rc")
strRC = Request.QueryString("code")
strRCP = Request.QueryString("p")
If strRC = "image" then
	NullStop = False
	RandCode = (strRCCode + 17456) / 50000
	lenCode = Len(RandCode)
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode = NullRC & RandCode
	ImageP = Mid(RandCode, strRCP,1)
	Response.Redirect ImageP & ".png"
End If
'	##### End Captcha Routine
if Request.QueryString("mode") = "DoIt" then
	if Request("Staff") > "0" then
		intMemberID = Request("Staff")
		strSql = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & intMemberID
		set rsID = my_Conn.Execute (strSql)
		if not rsID.EOF then
			strRecipientsName = rsID("M_NAME")
			strRecipients = rsID("M_EMAIL")
			rsID.close
		end if
		set rsID = nothing
	else
		intMemberID = 0
	end if
	if strRecipientsName = "" then
		strSql = "SELECT M_NAME, M_EMAIL FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intAdminMemberID
		set rs = Server.CreateObject("ADODB.Recordset")
		rs.open strSql, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText
		if rs.EOF then
			Response.Write	"No super admin exists."
		else
			strRecipientsName=rs("M_NAME")
			strRecipients=rs("M_EMAIL")
			rs.Close
		end if
		Set rs=Nothing
	end if
	RandCode = Request.Form("code")
	strRCCode = Request.Form("coder")
	RandCode2 = (mid(strRCCode,3) + 17456) / 50000
	lenCode = Len(RandCode2)
	NullStop = False
	If LenCode < 6 and Nullstop = False then
		For J = 1 to (6 - LenCode)
			NullRC = NullRC & "0"
		Next
		NullStop = True
	End If
	RandCode2 = NullRC & RandCode2
	if RandCode = "" then
		Err_Msg = Err_Msg & "<li>Please enter the authentication code.</li>"
	end if
	if RandCode > "" and RandCode <> RandCode2 then
		Err_Msg = Err_Msg & "<li>The confirmation code you have entered is not correct!</li>"
	End If
	strSubject = "Contact " & strForumTitle & " Staff"
	strMessage = Request.Form("CUTxt") & vbNewLine & vbNewLine
	strAuthor = "Author: " & Request.Form("CUName")
	strMessage = strMessage & strAuthor
	strSender = Request.Form("CUEMail")
	strSql = "SELECT B_BADWORD FROM " & strTablePrefix & "BADWORDS"
	set rsBW = my_Conn.Execute(strSql)
	dim strKW(100)
	if not rsBW.EOF then
		rsBW.MoveFirst
		strKW(1)="porn"
		strKW(2)="viagra"
		strKW(3)="bondage"
		strKW(4)="hardcore"
		strKW(5)="cialis"
		strKW(6)="penis"
		strKW(7)="lolita"
		i=7
		Do while not rsBW.EOF
			i=i+1
			strKW(i)=rsBW("B_BADWORD")
			rsBW.MoveNext
		loop
		rsBW.Close
	end if
	set rsBW=Nothing
	SPAM = False
	For j = 1 to i
		If InStr(LCase(strMessage),LCase(strKW(j))) Then
			SPAM = True
			Exit For
		End If
	Next
	If Trim(strMessage) = "" or SPAM = True Then
		Response.Redirect "http://www.fbi.gov"
		Response.Buffer=True
		Response.Flush
	End If
	if strRecipientsName = "" then
		if strSender = "" then
			if strFromName = "" & MEMBER_ID = 0 then
				Err_Msg = Err_Msg & "<li>You must enter your name.</li>"
			end if
		end if
		if strSender = "" then
			if Request.Form("CUEmail") = "" then
				Err_Msg = Err_Msg & "<li>You must enter your e-mail address.</li>"
			else
				if EmailField(Request.Form("CUEmail")) = 0 then
					Err_Msg = Err_Msg & "<li>EMail address is invalid.</li>"
				end if
			end if
		end if
	end if
	if strMessage = "" then
		Err_Msg = Err_Msg & "<li>You must enter a message.</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
 			if Request.Form("ccself") = "on" and Err_Msg = "" then
				strSubject = "Contact " & strForumTitle & " Staff"
				strMessage = "This is a copy of the mail you sent." & vbcrlf & vbcrlf & "The text of the message was:" & vbcrlf & vbcrlf & Request.Form("CUTxt") & vbcrlf & vbcrlf
				strAuthor = "Author: " & Request.Form("CUName")
				strSender = Request.Form("CUEMail")
				strRecipients=Request.Form("CUEmail")
				strFromName = Request.Form("CUName")
				%>
				<!--#INCLUDE FILE="inc_mail.asp" -->
				<%
			end if
			Response.Write	"	<p><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><center>Your message has been sent.</center></font></b></p>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""2; URL=default.asp"">" & vbNewLine
		else
			Response.Write("	<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was a Problem.</center></font></b></p>") & vbNewLine & _
				"<table align=""center"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul>" & vbNewLine & _
				"		</font></td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine & _
				"<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go back to correct data.</center></a></font></p>" & vbNewLine
	 	end if
	end if
else
	Response.Write "<form action=""contact_staff.asp?mode=DoIt"" method=""post"" id=""Form"" name=""Form"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"	<table bgColor=""transparent"" align=""center"" border=""1"" width=""60%"" cellspacing=""1"" cellpadding=""2"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td width=""100%"" bgcolor=""transparent"">" & vbNewLine & _
		"				<table bgColor=""" & strTableBorderColor & """ style=""border-collapse: collapse"" border=""1"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b>" & vbNewLine & _
		"							<font face=""" & strHeadFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeadFontColor & """>Contact " & strForumTitle & " Staff" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""2"" bgColor=""transparent"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" width=""98%"" bgColor=""" & strForumFirstCellColor & """ align=""center"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Choose Staff Member:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""left""><font size=""1""><small> </small></font>" & vbNewLine
	StaffSearch
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""> </font><input type=""text"" name=""CUName"" value=""" & CUName & """ size=""30"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""> </font><input type=""text"" name=""CUEmail"" value=""" & CUEmail & """ size=""30"">" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" bgColor=""" & strForumCellColor & """ align=""right""><b>" & vbNewLine & _
		"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Copy to Yourself?" & vbNewLine & _
		"							</font></b>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"						<td colspan=""1"" width=""49%"" align=""left"" bgColor=""" & strForumCellColor & """><font size=""5""><input type=""checkbox"" name=""ccself"" value=""on""" & chkCheckBox(ccself,1,true) & "></font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" bgColor=""" & strForumCellColor & """ align=""center"">" & vbNewLine & _
		"							<font face=""" & strFooterFontFace & """ size=""" & strFooterFontSize & """> <br>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"							<font face=""" & strHeadFontFace & """ size=""" & strHeadFontSize & """><b>Message:</b>" & vbNewLine & _
		"							</font>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" align=""center"" valign=""top"" nowrap><b>" & vbNewLine & _
		"							<textarea class=""bgd"" align=""left"" name=""CUTxt"" id=""CUTxt"" cols=""80"" rows=""9"" wrap=""VIRTUAL""></textarea>" & vbNewLine & _
		"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"				<table border=""0"" style=""border-collapse: collapse"" width=""100%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" valign=""top"" nowrap><font color=""" & strForumFontColor & """ face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Type the Code Below</font></b></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" colspan=""2"" align=""center"" bgColor=""" & strHeadCellColor & """>" & vbNewLine
	NumbersToShow = ""
	Randomize
	For I = 1 to HowManyNbr
		NumbersToShow = NumbersToShow & Fix(9*Rnd)
	Next
	RandomizedCode = NumbersToShow * 50000 - 17456
	NullStop = False
	For I = 1 to HowManyNbr
		Response.Write  "							<img src='contact_staff.asp?code=image&rc=" & RandomizedCode &"&p=" & I & "' border='0' alt='Code'>"
	Next
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"						<input type=""hidden"" name=""Coder"" value=""" & RandomizedCode & """>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td width=""98%"" bgColor=""" & strHeadCellColor & """ colspan=""2"" align=""center""><input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"	<p><center><input class=""bdn"" type=""submit"" value=""EMail It!"" id=""Submit"" name=""Submit""></center></p>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"" src=""fieldlimiter.js"">" & vbNewLine & _
		"	fieldlimiter.setup({" & vbNewLine & _
		"	thefield: document.getElementById(""msg"")," & vbNewLine & _
		"	maxlength: " & intMaxLength & "," & vbNewLine & _
		"	statusids: [""msg-status""]," & vbNewLine & _
		"	onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter
Response.End

Function StaffSearch
	Response.Write	"<select name=""Staff"">" & vbNewLine & _
		"	<option value="""">Choose a Staff Member</option>" & vbNewLine
	strSql = "SELECT MEMBER_ID, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE M_STATUS = 1 AND M_LEVEL > 1 ORDER BY M_LEVEL DESC, M_NAME ASC"
	set rsMem = my_Conn.Execute(strSql)
	if rsMem.EOF then
		recMemberCount = ""
	else
		allMemberData = rsMem.GetRows(adGetRowsRest)
		recMemberCount = UBound(allMemberData,2)
		meMEMBER_ID = 0
		meM_NAME = 1
		rsMem.close
	end if
	set rsMem = nothing
	if recMemberCount <> "" then
		for iMember = 0 to recMemberCount
			MembersMemberID = allMemberData(meMEMBER_ID, iMember)
			MembersMemberName = allMemberData(meM_NAME, iMember)
			Response.Write	"	<option value=""" & MembersMemberID & """>" & ChkString(MembersMemberName,"display") & "</option>" & vbNewLine
		next
	end if
	Response.Write	"</select>" & vbNewLine
End Function
%>
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 19 December 2013 :  03:05:04  Show Profile  Visit Maxime's Homepage
Hello Carefree,

File you have placed does not show figures captcha code and the box is weird.
I reinstalled the old
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Edited by - Maxime on 19 December 2013 07:44:01
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 19 December 2013 :  09:07:58  Show Profile
I get the captcha characters just fine. Maybe you didn't extract them to the images directory?
Go to Top of Page

Maxime
Average Member

France
521 Posts
Posted - 19 December 2013 :  09:44:17  Show Profile  Visit Maxime's Homepage

They are on the image folder and also the folder or there is the forum. I delivered the first version of your page. Too bad if they do not receive a copy of the email
Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.27 seconds. Powered By: Snitz Forums 2000 Version 3.4.07