Snitz Forums 2000 - Log-In Flood Control on 3.4.05

Snitz Forums 2000

Username:	Password:
Save Password
Forgot your Password?

All Forums

Help Groups for Snitz Forums 2000 Users

Help: MOD Implementation

Log-In Flood Control on 3.4.05

New Topic

Topic Locked

Printer Friendly

Author

Topic

richfed
Average Member

United States
999 Posts

Posted - 05 July 2009 : 13:04:03

I am using 3.4.05, so that is probably the cause of this, but if I try to delete a member, I am getting the following error after installing this MOD:

quote:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'cLng'

/messageboard/inc_func_common.asp, line 1584

I had a difference in the implementation of this part on inc_func_common[from the ReadMe]:

quote:
MemberID = rsCheck("MEMBER_ID")
strDBNTUserName = rsCheck("M_NAME")

I am mising the second line on my file.

Here is a link to that file: inc_func_common

leatherlips
Senior Member

USA
1838 Posts

Posted - 05 July 2009 : 13:11:18

I also have 3.4.05 (with all patches installed) and I do not have this problem. I deleted my demo account to see if I would have the same issue as you but it deleted just fine.

Are you sure this isn't caused by something else?

richfed
Average Member

United States
999 Posts

Posted - 05 July 2009 : 13:17:14

No, not sure, but it is likely a result of this Mod, or rather a mistake in its installation on my part. I can say that the last time I deleted an inactive member - which I do weekly - it suceeded.

I'm confused!

edit--> Just put my backup files back online and I was able to delete, so, I am sure now.

Edited by - richfed on 05 July 2009 13:25:08

cripto9t
Average Member

USA
881 Posts

Posted - 05 July 2009 : 17:21:03

I don't have a .05 version to test on, but I don't think the chkUser function (if that's where the error is occuring) has changed. I'll take a look and do some testing.

could you post line 1584 and the line before and after it?

_-/Cripto9t\-_

richfed
Average Member

United States
999 Posts

Posted - 05 July 2009 : 18:09:31

Sure, it falls in this routine from the MOD. The line in red is 1584 on my file:

'## Login Flood Control ## ADD sub routine below ##############################

Sub chkLoginSession(typ)

    select case cLng(typ)
        case 1
            '## if the user is waiting and hasnt waited long enough   ##
            '## start the wait all over and send them to password.asp ##

            if trim(Session(strCookieURL & "logindelay")) <> "" and isDate(Session(strCookieURL & "logindelay")) then
                if DateDiff("s",Session(strCookieURL & "logindelay"),time) < 0 then
                    Session(strCookieURL & "logindelay") = DateAdd("s",(intLoginCheckTime * 60),time)
                    Session(strCookieURL & "logingrace") = ""
                   Response.Redirect("password2.asp")
                end if
            end if
        case 2

            '## set variables back to default if user has waited long enough ##
            '## and start the login attempts all over                        ##

            if cLng(Session(strCookieURL & "login")) > cLng(intLoginAttempts) then
                if trim(Session(strCookieURL & "logindelay")) <> "" and isDate(Session(strCookieURL & "logindelay")) then
                    Session(strCookieURL & "login") = 0
                    Session(strCookieURL & "logindelay") = ""
                end if
            end if

            '## set login attempts to "" if grace is on and the time has been met ##

            if cLng(intLoginFloodGrace) = 1 then
                if trim(Session(strCookieURL & "logingrace")) <> "" and isDate(Session(strCookieURL & "logingrace")) then
                    if DateDiff("s",trim(Session(strCookieURL & "logingrace")),time) > cLng(intLoginGraceTime) then
                        if isNumeric(Session(strCookieURL & "login")) = true then
                            Session(strCookieURL & "login") = ""
                        end if
                    end if
                end if
                Session(strCookieURL & "logingrace") = time
            end if

            '## Increase login attempts ##

            if trim(Session(strCookieURL & "login")) = "" then
                Session(strCookieURL & "login") = 1
            else
                if isNumeric(Session(strCookieURL & "login")) = true then
                    Session(strCookieURL & "login") = cLng(Session(strCookieURL & "login")) + 1
                else
                    Session(strCookieURL & "login") = 1
                end if
            end if

            '## if user exceeds intLoginAttempts, start the wait ##

            if cLng(Session(strCookieURL & "login")) > cLng(intLoginAttempts) then
                Session(strCookieURL & "logindelay") = DateAdd("s",(intLoginCheckTime * 60),time)
                if cLng(intLoginFloodGrace) = 1 then
                    Session(strCookieURL & "logingrace") = ""
                end if
               Response.Redirect("password2.asp")
            end if

        case 3

            '## clean up after successful login

            if trim(Session(strCookieURL & "login")) <> "" then
                Session(strCookieURL & "login") = ""
                Session(strCookieURL & "logindelay") = ""
                if cLng(intLoginFloodGrace) = 1 then
                    if trim(Session(strCookieURL & "logingrace")) <> "" then
                        Session(strCookieURL & "logingrace") = ""
                    end if
                end if
            end if

    end select
End Sub

'## End ################################################################

Thanks for looking into this ...

cripto9t
Average Member

USA
881 Posts

Posted - 05 July 2009 : 20:55:16

richfed, I'll give it a look in the morning, but I'm pretty sure it's my sloppy coding.

try replacing this

if cLng(Session(strCookieURL & "login")) > cLng(intLoginAttempts) then
                if trim(Session(strCookieURL & "logindelay")) <> "" and isDate(Session(strCookieURL & "logindelay")) then
                    Session(strCookieURL & "login") = 0
                    Session(strCookieURL & "logindelay") = ""
                end if
            end if

with this

if trim(Session(strCookieURL & "login")) <> "" and isNumeric(Session(strCookieURL & "login")) = true then
           if cLng(Session(strCookieURL & "login")) > cLng(intLoginAttempts) then
                if trim(Session(strCookieURL & "logindelay")) <> "" and isDate(Session(strCookieURL & "logindelay")) then
                    Session(strCookieURL & "login") = 0
                    Session(strCookieURL & "logindelay") = ""
                end if
            end if
        end if

I think that should fix it.

_-/Cripto9t\-_

cripto9t
Average Member

USA
881 Posts

Posted - 06 July 2009 : 10:45:33

I missed the link to your file yesterday. I thought maybe you had something out of place but everything looks alright. The reason I thought something was out of place is because it shouldn't execute that line unless your login fails.

I can't recreate it. Hopefully the code I posted will help.

_-/Cripto9t\-_

richfed
Average Member

United States
999 Posts

Posted - 06 July 2009 : 10:49:31

Hi cripto9t!

Yep ... workin' now. That code seems to have done the trick. I have a question, but will post it in the original MOD thread.

Thanks a lot!

Topic

New Topic

Topic Locked

Printer Friendly

Jump To:

Snitz Forums 2000

This page was generated in 0.37 seconds.