Snitz Forums 2000 - Catcha Mod Post_info.asp Error : SOLVED

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Catcha Mod Post_info.asp Error : SOLVED

New Topic

Topic Locked

Printer Friendly

Author

Topic

kolucoms6
Average Member

845 Posts

Posted - 06 March 2008 : 07:49:10

I have Installed Captch Mod by Author: Podge (Support Moderator)

Now,

If I dont login an try to post a topic, I get an option of entering Captcha Keyword with login details and it gets accepted also, at post_info.asp.

But if I am already logged in and try to post , then in post.asp, Captcha is not shown while posting , but post_info.asp gives error askling for Anti-Spam code.

Anyone faced this problem ?

Edited by - kolucoms6 on 06 March 2008 07:58:03

kolucoms6
Average Member

845 Posts

Posted - 06 March 2008 : 07:55:15

ahhh

I resolved it...

I just made few changes in Post.asp.

Here is the complete Code :


mlev = 1 then 
	Response.Write	"              <input name=""UserName"" type=""hidden"" value=""" & strDBNTUserName & """>" & vbNewLine & _
			"              <input name=""Password"" type=""hidden"" value=""" & strCkPassWord & """>" & vbNewLine
	'CAPTCHA Mod
	if strLinkSpamCaptcha = 1 then
	captcha = generateCode()
	Session("Snitz.captcha") = captcha 'Store the code in a Session Object
		Response.Write 	"              <tr>" & vbNewLine & _
				"				 <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Anti-Spam Code:</b></font></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><a href=""#""><acronym title=""Please enter the four letter code in the box below. Click to reload the image.""><img src = ""captcha.asp?c=" & SHA256(captcha) & """ border=""0"" onClick=""window.location.reload()""></acronym></a><br /><input name=""captcha"" maxLength=""25"" size=""25"" type=""text"" value=""""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine
	else
	Session("Snitz.captcha") = ""
	end if
	'Captcha Mod

else
	if (lcase(strNoCookies) = "1") or _
	(strDBNTUserName = "" or _
	strCkPassWord = "") then 
		Response.Write	"              <tr>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>UserName:</b></font></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """><input name=""UserName"" maxLength=""25"" size=""25"" type=""text"" value=""" & Request.Form("UserName") & """></td>" & vbNewLine & _
				"              </tr>" & vbNewLine & _
				"              <tr>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Password:</b></font></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><input name=""Password"" maxLength=""25"" size=""25"" type=""password"" value=""" & Request.Form("password") & """></td>" & vbNewLine & _
				"              </tr>" & vbNewLine

	'CAPTCHA Mod
	if strLinkSpamCaptcha = 1 then
	captcha = generateCode()
	Session("Snitz.captcha") = captcha 'Store the code in a Session Object
		Response.Write 	"              <tr>" & vbNewLine & _
				"				 <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Anti-Spam Code:</b></font></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><a href=""#""><acronym title=""Please enter the four letter code in the box below. Click to reload the image.""><img src = ""captcha.asp?c=" & SHA256(captcha) & """ border=""0"" onClick=""window.location.reload()""></acronym></a><br /><input name=""captcha"" maxLength=""25"" size=""25"" type=""text"" value=""""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine
	else
	Session("Snitz.captcha") = ""
	end if
	'Captcha Mod

kolucoms6
Average Member

845 Posts

Posted - 06 March 2008 : 07:57:41

Simply Copied


'CAPTCHA Mod
	if strLinkSpamCaptcha = 1 then
	captcha = generateCode()
	Session("Snitz.captcha") = captcha 'Store the code in a Session Object
		Response.Write 	"              <tr>" & vbNewLine & _
				"				 <td bgColor=""" & strPopUpTableColor & """ noWrap vAlign=""top"" align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Anti-Spam Code:</b></font></td>" & vbNewLine & _
				"                <td bgColor=""" & strPopUpTableColor & """ valign=""top""><a href=""#""><acronym title=""Please enter the four letter code in the box below. Click to reload the image.""><img src = ""captcha.asp?c=" & SHA256(captcha) & """ border=""0"" onClick=""window.location.reload()""></acronym></a><br /><input name=""captcha"" maxLength=""25"" size=""25"" type=""text"" value=""""></td>" & vbNewLine & _
				"              </tr>" & vbNewLine
	else
	Session("Snitz.captcha") = ""
	end if
	'Captcha Mod

below

		"              <input name=""Password"" type=""hidden"" value=""" & strCkPassWord & """>" & vbNewLine

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.44 seconds.