Joe
|
| Posted: 06/04/2004, 10:56 AM |
|
I need to Update Last Login and Login Count
Table=Information
Last Login = Last_Login
Login Count = Login_Count
I have tried the example but no luck, Also i have a Status Field, That show the Status of the Account, Open or Closed, how can i make the login check that before it allow access, and if the account is closed can i make it redirect to a certain page to renew, Thanks, Below is the code i use on the login page, it works fine untill i put the update login count and last login
<%
'BindEvents Method @1-3261B678
Sub BindEvents()
Set Login.Button_DoLogin.CCSEvents("OnClick") = GetRef("Login_Button_DoLogin_OnClick")
End Sub
'End BindEvents Method
Function Login_Button_DoLogin_OnClick() 'Login_Button_DoLogin_OnClick @3-ADB4691A
'Login @4-AA430BB1
With Login
If NOT CCLoginUser(.login.Value, .password.Value) Then
.Errors.addError("Login or Password is incorrect.")
Login_Button_DoLogin_OnClick = False
.password.Value = ""
Else
If Not IsEmpty(CCGetParam("ret_link", Empty)) Then _
Redirect = CCGetParam("ret_link", Empty)
Login_Button_DoLogin_OnClick = True
End If
End With
'End Login
'Custom Code @8-73254650
' -------------------------
Select Case Session("Usr_Group")
Case "1" Redirect="Carrier/Paymentsearch.asp"
Case "2" Redirect="case.asp"
Case "3" Redirect="case.asp"
Case "4" Redirect="admin_site.asp"
Case "5" Redirect="Users/Users.asp"
End Select
' -------------------------
'End Custom Code
End Function 'Close Login_Button_DoLogin_OnClick @3-54C34B28
%>
|
