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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Antispam - Registration Add-On
 New Topic  Topic Locked
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 2

taropatch
Average Member

USA
741 Posts

Posted - 21 October 2003 :  11:58:03  Show Profile
Thanks dayve and TestMagic,

Yes, I've seen this type of thing used too. My only hesitation is that one more step in the registration process will create additional registrants with problems. Not sure why, but I always have a handful of people having trouble validating they're email. This does seem like a great mod, though.
Go to Top of Page

tomasalsbro
Average Member

Sweden
818 Posts

Posted - 22 October 2003 :  03:41:53  Show Profile  Visit tomasalsbro's Homepage
I also think this is a great mod in a preventive view, but one person reported that she couldn't register. All she saw was question marks.

Tomas

!-Keep distance in traffic-!
www.whiplashinfo.se
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 23 October 2003 :  05:34:27  Show Profile
All I am going to say about this mod is, it is great.

Made a small mod to it, so you only need to change one spot to make the gode the length you want, instead of the 4 I found.

Great work Bob..


Cheers,

David Greening
Go to Top of Page

R01
Starting Member

15 Posts

Posted - 19 November 2003 :  09:36:22  Show Profile  Visit R01's Homepage
Would love to add this mod. But like "edbyrne" that posted above, I have no lines in ver. 3.4.03 that even UltraEdit or myself can find.

If there is an updated ver. of this could someone point me in the right direction?

Thanks


I'm the one they warn you about!
Go to Top of Page

taropatch
Average Member

USA
741 Posts

Posted - 04 April 2004 :  19:12:58  Show Profile
Am I going crazy?!?!
quote:
2. Goto line 507 the section above should look like this

if strAUAnon = "1" then
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & fLang(strLangMOD_Ls3kAU_04000) & "<br />" & fLang(strLangMOD_Ls3kAU_04010) & ": </font></b></td>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle"">" & VBNewLine & _
" <select name=""AUHide"">" & vbNewLine
if RS("M_AUHIDE") = "1" or trim(RS("M_AUHIDE")) = "" then
response.write " <option value=""1"" selected>" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"">" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
else
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
I cannot find this code in my inc_profile.asp (version 3.4.04). I'm not just talking about line 507, I'm talking about the whole file. Maybe I'm losing it but it looks like R01 had the same problem?
Go to Top of Page

lilaccrafts
Starting Member

18 Posts

Posted - 10 April 2004 :  20:43:31  Show Profile
quote:
Originally posted by R01

Would love to add this mod. But like "edbyrne" that posted above, I have no lines in ver. 3.4.03 that even UltraEdit or myself can find.

If there is an updated ver. of this could someone point me in the right direction?

Thanks




Go to my site at www.lilaccrafts.com and see if thats the way you want it.
Go to Top of Page

taropatch
Average Member

USA
741 Posts

Posted - 11 April 2004 :  00:40:16  Show Profile
lilaccrafts,

I checked your site and saw your registration page. I want to add this mod but for some reason could not find the appropriate code in the inc_profile.asp.
Go to Top of Page

Battalion
Starting Member

6 Posts

Posted - 07 May 2004 :  10:22:39  Show Profile
I have have the same problem with this mod...Can anyone help with this?
Go to Top of Page

PeeWee.Inc
Senior Member

United Kingdom
1893 Posts

Posted - 07 May 2004 :  10:42:51  Show Profile  Visit PeeWee.Inc's Homepage
quote:
Originally posted by taropatch

Am I going crazy?!?!
quote:
2. Goto line 507 the section above should look like this

if strAUAnon = "1" then
response.write " <tr>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ align=""right"" valign=""middle"" nowrap><b><font face=""" & strDefaultFontFace & """ size=""" & strFooterFontSize & """>" & fLang(strLangMOD_Ls3kAU_04000) & "<br />" & fLang(strLangMOD_Ls3kAU_04010) & ": </font></b></td>" & VBNewLine & _
" <td bgColor=""" & strPopUpTableColor & """ valign=""middle"">" & VBNewLine & _
" <select name=""AUHide"">" & vbNewLine
if RS("M_AUHIDE") = "1" or trim(RS("M_AUHIDE")) = "" then
response.write " <option value=""1"" selected>" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"">" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
else
response.write " <option value=""1"">" & fLang(strLangMOD_Ls3kAU_04020) & "</option>" & VBNewLine & _
" <option value=""0"" selected>" & fLang(strLangMOD_Ls3kAU_04030) & "</option>" & VBNewLine
end if
response.write " </select>" & VBNewLine & _
" </td>" & VBNewLine & _
" </tr>" & VBNewLine
end if
I cannot find this code in my inc_profile.asp (version 3.4.04). I'm not just talking about line 507, I'm talking about the whole file. Maybe I'm losing it but it looks like R01 had the same problem?



Looking at that, it seems like it's from the AU Mod.


De Priofundus Calmo Ad Te Damine
Go to Top of Page

taropatch
Average Member

USA
741 Posts

Posted - 07 May 2004 :  11:24:07  Show Profile
That's what I got when I downloaded the Antispam Registration Add-On at SnitzBitz. What is the AU Mod?

Maybe I'm getting the wrong files from SB?
Go to Top of Page

Battalion
Starting Member

6 Posts

Posted - 07 May 2004 :  11:53:43  Show Profile
AU Mod I believe is the Active user Mod.
Go to Top of Page

Battalion
Starting Member

6 Posts

Posted - 07 May 2004 :  11:59:43  Show Profile
Taropatch

around line 507 you should find:
if Request.Form("Method_Type") = "Modify" then

insert the code above that line... everything else seems to be ok
Go to Top of Page

ikalota
Starting Member

37 Posts

Posted - 21 September 2004 :  18:30:19  Show Profile
Hi All,

I dont have any problems with in_profile.asp, but I am having problems finding lines in register.asp.

Can someone help pleaase. I am running Snitz 3.4.04 and am trying to add Antispam 3304-1

HELP please...
Thanks..
Go to Top of Page

motivations
Starting Member

Australia
15 Posts

Posted - 11 October 2004 :  01:33:34  Show Profile
FIRST LOOK FOR THIS

'##
'## 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
'##
'#################################################################################
'###################
'## Antispam Start
'####################
'We now set the code
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 "images/" & ImageP & ".gif"
Else
'#####################
'## Antspam End
'#####################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->


NEXT LOOK FOR THIS:

		if strBadWordFilter = "1" then
			chkNameBadWords(trim(Request.Form("Name")))
		end if

'###########################
'#### 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
'########################


		if not IsValidString(trim(Request.Form("Name"))) then
			Err_Msg = Err_Msg & "<li>" & fLang(strLangRegister00160) & "  !#$%^&*()=+{}[]|\;:/?>,<' </li>"
		end if
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Previous 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.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07