Author |
Topic |
taropatch
Average Member
USA
741 Posts |
Posted - 21 October 2003 : 11:58:03
|
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. |
|
|
tomasalsbro
Average Member
Sweden
818 Posts |
Posted - 22 October 2003 : 03:41:53
|
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 |
|
|
Classicmotorcycling
Development Team Leader
Australia
2084 Posts |
Posted - 23 October 2003 : 05:34:27
|
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 |
|
|
R01
Starting Member
15 Posts |
Posted - 19 November 2003 : 09:36:22
|
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! |
|
|
taropatch
Average Member
USA
741 Posts |
Posted - 04 April 2004 : 19:12:58
|
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? |
|
|
lilaccrafts
Starting Member
18 Posts |
Posted - 10 April 2004 : 20:43:31
|
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.
|
|
|
taropatch
Average Member
USA
741 Posts |
Posted - 11 April 2004 : 00:40:16
|
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. |
|
|
Battalion
Starting Member
6 Posts |
Posted - 07 May 2004 : 10:22:39
|
I have have the same problem with this mod...Can anyone help with this? |
|
|
PeeWee.Inc
Senior Member
United Kingdom
1893 Posts |
Posted - 07 May 2004 : 10:42:51
|
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 |
|
|
taropatch
Average Member
USA
741 Posts |
Posted - 07 May 2004 : 11:24:07
|
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? |
|
|
Battalion
Starting Member
6 Posts |
Posted - 07 May 2004 : 11:53:43
|
AU Mod I believe is the Active user Mod.
|
|
|
Battalion
Starting Member
6 Posts |
Posted - 07 May 2004 : 11:59:43
|
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 |
|
|
ikalota
Starting Member
37 Posts |
Posted - 21 September 2004 : 18:30:19
|
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.. |
|
|
motivations
Starting Member
Australia
15 Posts |
Posted - 11 October 2004 : 01:33:34
|
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 |
|
|
Topic |
|