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
 Add AntiSpam to Contact Form
 New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 3

leatherlips
Senior Member

USA
1838 Posts

Posted - 01 March 2009 :  08:52:15  Show Profile  Visit leatherlips's Homepage
I'm trying to add some type of anti spam to my contact page. At least several times a week I get some bogus submission that is filled with junk. I have the anti spam mod on my register.asp page but I can't figure out how to add it to my contact page.

Here is my contact page code in text format. This is the anti spam mod I have on my register.asp page.

I've also looked at the gatekeeper one, but I just can't figure out how to add them to my page. Anyone else know how to do this?

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Edited by - leatherlips on 01 March 2009 08:54:27

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  13:13:17  Show Profile
Here you go: pop_contact_admin.txt
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 01 March 2009 :  13:43:37  Show Profile  Visit leatherlips's Homepage
Thanks carefree for looking at this so quickly! The numbers do show up but they do not really do anything. You can leave it blank and the form will still send. There is also no error message if the number is missing or incorrect. This is the error message from the mod. I've tried inserting it but it doesn't work for me.

'###########################
      '#### Antispam Error Start
      RandCode = Request.Form("reg_code")
      strRCCode = Request.Form("regid")
      RandCode2 = (strRCCode + 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 <> RandCode2 then
         Err_Msg = Err_Msg & "<li>The registration code you have enterd is not correct!</li>"
      End If
      '#### Antispam Error End
      '########################

In the code you've supplied, I've tried inserting the above at line 75. That is where the other error messages are located for the other fields of the form.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD

Edited by - leatherlips on 01 March 2009 13:45:11
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  13:50:18  Show Profile
quote:
Originally posted by leatherlips

Thanks carefree for looking at this so quickly! The numbers do show up but they do not really do anything. You can leave it blank and the form will still send. There is also no error message if the number is missing or incorrect.


Try using my code by itself - your code is intact within it. The error message if the number is missing or incorrect is at lines 49-51. If the number is blank or incorrect, it will not send.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 01 March 2009 :  16:43:39  Show Profile  Visit leatherlips's Homepage
I tried you code again but it does not give an error if you leave it empty or if you enter in a wrong number. It sends it email anyway.

Here is the test page from your code.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  19:39:10  Show Profile
quote:
Originally posted by leatherlips

I tried you code again but it does not give an error if you leave it empty or if you enter in a wrong number. It sends it email anyway.

Here is the test page from your code.



That cannot be my coding - the numbers aren't random anymore. Post a link to that page in .txt format and I'll see what's up.

Here's a small change to the randomization routine - vastly decreases chances of repetition in series.... Either use the code in my next reply (when I attempted to put both sets of code in here, the second wasn't included in a scrollcode box) or replace everything in my code above between the first and last lines (in red) below so it looks like this:

	HowManyNbr=6
	strCode=""
	for kk = 1 to HowManyNbr
		strCode=strCode+"8"
	next
	strCd=""
	for kk = 1 to len(strCode)
		strCd=strCd+"1"
	next
	kl=Int(strCode)
	l=Int(strCd)
	strCode = ""
		Randomize
		j=int(rnd * kl) + l
		strCode=cStr(j)
	For i = 1 to HowManyNbr
		strjint=strImageURL+mid(strCode,i,1)+".gif"
		Response.Write "<img src=""" & strjint & """ border=""0"" alt=""PicCode"">"& vbNewLine

Edited by - Carefree on 01 March 2009 20:12:29
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  20:13:27  Show Profile
Complete code with randomization routine change:

<%
'###############################################################################
'##
'## 	                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
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
if Request.QueryString("mode") = "DoIt" then
	Err_Msg = ""
	if Request.Form("Coder") <> Request.Form("Code") then
		Err_Msg = Err_Msg & "<li>Invalid authentication code.</li>"
	end if
	if (Request.Form("YName") = "") then
		Err_Msg = Err_Msg & "<li>You must enter your name</li>"
	end if
	if (Request.Form("YEmail") = "") then
		Err_Msg = Err_Msg & "<li>You Must give your e-mail address</li>"
	else
		if (EmailField(Request.Form("YEmail")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address</li>"
		end if
	end if
	if (Request.Form("Name") = "") then
		Err_Msg = Err_Msg & "<li>You must enter the recipients name</li>"
	end if
	if (Request.Form("Email") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter the recipients e-mail address</li>"
	else
		if (EmailField(Request.Form("Email")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address for the recipient</li>"
		end if
	end if
	if (Request.Form("Msg") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
	 		strRecipientsName = Request.Form("Name")
 			strRecipients = Request.Form("Email")
 			strSubject = strForumTitle
	 		strMessage = Request.Form("Msg") & vbNewline & vbNewline
 			strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
			strFromName = Request.Form("YName")
	 		strSender = Request.Form("YEmail")
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
 			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>Your email has been sent</center></font></b></p>" & vbNewLine)
 			Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
		else
 			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
			Response.Write "<table align=""center"">" & vbNewLine & _
				"<tr>" & vbNewLine & _
				"<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"</tr>" & vbNewLine & _
				"</table>" & vbNewLine
	 		Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data</center></a><br><br></font></p>" & vbNewLine)
		end if
	end if
else
 	'	## Forum_SQL
 	strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
 	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
 	strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
	set rs = my_conn.Execute (strSql)
	if (rs.EOF or rs.BOF)then
		Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
		Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
		Response.Write "<table align=""center"">" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table>" & vbNewLine
		set rs = nothing
		Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
		Response.End
 	else
 		Name = Trim("" & rs("M_NAME"))
 		Email = Trim("" & rs("M_EMAIL"))
	end if
	rs.close
	set rs = nothing
	Response.Write "<form action=""pop_contact_admin.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
		"	<br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
		"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact Mangione Magic</font></b></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" id=""msg"" cols=""50"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Type the Code Below</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	HowManyNbr=6
	strCode=""
	for kk = 1 to HowManyNbr
		strCode=strCode+"8"
	next
	strCd=""
	for kk = 1 to len(strCode)
		strCd=strCd+"1"
	next
	kl=Int(strCode)
	l=Int(strCd)
	strCode = ""
		Randomize
		j=int(rnd * kl) + l
		strCode=cStr(j)
	For i = 1 to HowManyNbr
		strjint=strImageURL+mid(strCode,i,1)+".gif"
		Response.Write "<img src=""" & strjint & """ border=""0"" alt=""PicCode"">"& vbNewLine
	Next	
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"	<input type=""hidden"" name=""Coder"" value=""" & strCode & """>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"">" & vbNewLine & _
		"	fieldlimiter.setup({" & vbNewLine & _
		"	thefield: document.getElementById(""msg"")," & vbNewLine & _
		"	maxlength: 500," & vbNewLine & _
		"	statusids: [""msg-status""]," & vbNewLine & _
		"	onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter
Response.End
%>
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 01 March 2009 :  20:51:29  Show Profile  Visit leatherlips's Homepage
Sorry. I used your code in the reply above this one. Here is the result:

http://www.mangionemagic.com/forum/contacttest2.asp

If it's too much trouble, don't worry about it. It's not a big issue. I don't want you to get too frustrated with this request.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  21:13:18  Show Profile
It's no problem - keeps my brain functioning. Please post a link to that page in .txt format (not in .asp) so I can review the code.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 01 March 2009 :  21:55:06  Show Profile  Visit leatherlips's Homepage
Thanks for your patience and work.

Here it is in text format.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 01 March 2009 :  22:17:30  Show Profile
quote:
Originally posted by leatherlips

Thanks for your patience and work.

Here it is in text format.



I found your problem. The URL for the action of the form is still sending it to your "pop_contact_admin.asp" - but you renamed the file to "contacttest2.asp". That's why it isn't acting on the code.

To test it as "contacttest2.asp", go to line 222 and change it from:

<form action="pop_contact_admin.asp?mode=DoIt" method="post" id="Form1" name="Form1">

to say:

<form action="contacttest2.asp?mode=DoIt" method="post" id="Form1" name="Form1">
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 02 March 2009 :  06:32:42  Show Profile  Visit leatherlips's Homepage
Awesome! Thank you! Works great!

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 02 March 2009 :  06:44:10  Show Profile
You're welcome.
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts

Posted - 02 March 2009 :  16:48:10  Show Profile  Visit leatherlips's Homepage
A possible minor issue. If you view the source of the page the anti spam number images are clearly listed. In the register.asp page, the number gif's are not automatically identifiable. Is there a way to make them less obvious on the contact page?

I've changed the contact page URL and layout slightly. It is now here. The text version is here.

Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 02 March 2009 :  18:33:49  Show Profile
Sure. I'll make them hidden.
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 02 March 2009 :  18:41:31  Show Profile
Here you go... Let's see a bot type this one LOL.

<%
'###############################################################################
'##
'## 	                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
'##
'###############################################################################
%>
<!--#INCLUDE FILE="config.asp" -->
<!--#INCLUDE FILE="inc_sha256.asp" -->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE file="inc_func_member.asp" -->
<%
if Request.QueryString("mode") = "DoIt" then
	Err_Msg = ""
	if Request.Form("Coder") <> sha256(Request.Form("Code")) then
		Err_Msg = Err_Msg & "<li>Invalid authentication code.</li>"
	end if
	if (Request.Form("YName") = "") then
		Err_Msg = Err_Msg & "<li>You must enter your name</li>"
	end if
	if (Request.Form("YEmail") = "") then
		Err_Msg = Err_Msg & "<li>You Must give your e-mail address</li>"
	else
		if (EmailField(Request.Form("YEmail")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address</li>"
		end if
	end if
	if (Request.Form("Name") = "") then
		Err_Msg = Err_Msg & "<li>You must enter the recipients name</li>"
	end if
	if (Request.Form("Email") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter the recipients e-mail address</li>"
	else
		if (EmailField(Request.Form("Email")) = 0) then
			Err_Msg = Err_Msg & "<li>You Must enter a valid e-mail address for the recipient</li>"
		end if
	end if
	if (Request.Form("Msg") = "") then
		Err_Msg = Err_Msg & "<li>You Must enter a message</li>"
	end if
	if lcase(strEmail) = "1" then
		if (Err_Msg = "") then
	 		strRecipientsName = Request.Form("Name")
 			strRecipients = Request.Form("Email")
 			strSubject = strForumTitle
	 		strMessage = Request.Form("Msg") & vbNewline & vbNewline
 			strMessage = strMessage & "You received this from : " & Request.Form("YName") & " (" & Request.Form("YEmail") & ") "
			strFromName = Request.Form("YName")
	 		strSender = Request.Form("YEmail")
			%>
			<!--#INCLUDE FILE="inc_mail.asp" -->
			<%
 			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """><center><br>Your email has been sent</center></font></b></p>" & vbNewLine)
 			Response.write " <p align=""center""><font size=""" & strDefaultFontSize & """ align=""center""><a href=""JavaScript:history.go(-2)"">Go Back</a></font></p><br /><br />" & vbNewLine
		else
 			Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center><br>There Was A Problem</center></font></b></p>" & vbNewLine)
			Response.Write "<table align=""center"">" & vbNewLine & _
				"<tr>" & vbNewLine & _
				"<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
				"</tr>" & vbNewLine & _
				"</table>" & vbNewLine
	 		Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:history.go(-1)""><center>Go Back To Enter Data</center></a><br><br></font></p>" & vbNewLine)
		end if
	end if
else
 	'	## Forum_SQL
 	strSql ="SELECT M_NAME, M_USERNAME, M_EMAIL "
 	strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS"
 	strSql = strSql & " WHERE MEMBER_ID = " & intAdminMemberID & ""
	set rs = my_conn.Execute (strSql)
	if (rs.EOF or rs.BOF)then
		Err_Msg = Err_Msg & "<li>The Administrator's account could not be located</li>"
		Response.Write("<p><b><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """><center>There Was A Problem</center></font></b></p>" & vbNewLine)
		Response.Write "<table align=""center"">" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"		<td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><ul>" & Err_Msg & "</ul></font></td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table>" & vbNewLine
		set rs = nothing
		Response.Write("<p><font size=""" & strDefaultFontSize & """><a href=""JavaScript:onClick= window.close()"">Close Window</A></font></p>" & vbNewLine)
		Response.End
 	else
 		Name = Trim("" & rs("M_NAME"))
 		Email = Trim("" & rs("M_EMAIL"))
	end if
	rs.close
	set rs = nothing
	Response.Write "<form action=""pop_contact_admin.asp?mode=DoIt"" method=""post"" id=""Form1"" name=""Form1"">" & vbNewLine & _
		"	<input type=""hidden"" name=""Page"" value=""" & Request.QueryString & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Name"" value=""" & Name & """>" & vbNewLine & _
		"	<input type=""hidden"" name=""Email"" value=""" & Email & """>" & vbNewLine & _
		"	<br><table align=""center"" border=""0"" width=""95%"" cellspacing=""0"" cellpadding=""0"">" & vbNewLine & _
		"		<tr>" & vbNewLine & _
		"			<td bgcolor=""" & strPopUpBorderColor & """>" & vbNewLine & _
		"				<table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td colspan=""2"" bgColor=""" & strHeadCellColor & """ align=""center"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>Contact Mangione Magic</font></b></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your Name:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YName"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Your E-mail:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""YEmail"" size=""25""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Message:</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """><textarea name=""Msg"" id=""msg"" cols=""50"" rows=""10""></textarea><div><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ id=""msg-status""></div></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""top"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Type the Code Below</font></b></td>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	HowManyNbr=6
	strCode=""
	for kk = 1 to HowManyNbr
		strCode=strCode+"8"
	next
	strCd=""
	for kk = 1 to len(strCode)
		strCd=strCd+"1"
	next
	kl=Int(strCode)
	l=Int(strCd)
	strCode = ""
		Randomize
		j=int(rnd * kl) + l
		strCd=sha256(cStr(j))
		strCode=(cStr(j))
	For i = 1 to HowManyNbr
		strjint=strImageURL+mid(strCode,i,1)+".gif"
		Response.Write "<img src=""" & strjint & """ border=""0"" alt=""PicCode"">"& vbNewLine
	Next	
	Response.Write	"						</td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"					<input type=""hidden"" name=""Coder"" value=""" & strCd & """>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""text"" name=""code"" size=""" & HowManyNbr & """ maxlength=""" & HowManyNbr & """></td>" & vbNewLine & _
		"					<tr>" & vbNewLine & _
		"						<td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Send"" id=""Submit1"" name=""Submit1""></td>" & vbNewLine & _
		"					</tr>" & vbNewLine & _
		"				</table>" & vbNewLine & _
		"			</td>" & vbNewLine & _
		"		</tr>" & vbNewLine & _
		"	</table>" & vbNewLine & _
		"</form>" & vbNewLine & _
		"<script type=""text/javascript"">" & vbNewLine & _
		"	fieldlimiter.setup({" & vbNewLine & _
		"	thefield: document.getElementById(""msg"")," & vbNewLine & _
		"	maxlength: 500," & vbNewLine & _
		"	statusids: [""msg-status""]," & vbNewLine & _
		"	onkeypress:function(maxlength, curlength){" & vbNewLine & _
		"}" & vbNewLine & _
		"})" & vbNewLine & _
		"</script>" & vbNewLine
end if
WriteFooter
Response.End
%>
Go to Top of Page
Page: of 3 Previous Topic Topic Next Topic  
Next Page
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.32 seconds. Powered By: Snitz Forums 2000 Version 3.4.07