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 ...