| Line 85... |
Line 85... |
| 85 |
|
85 |
|
| 86 |
IsApplicationRunning = mbIsApplicationRunning
|
86 |
IsApplicationRunning = mbIsApplicationRunning
|
| 87 |
End Property
|
87 |
End Property
|
| 88 |
|
88 |
|
| 89 |
Public Property Get isDevSystem()
|
89 |
Public Property Get isDevSystem()
|
| 90 |
isDevSystem = InStr(OraDatabase.DatabaseName,"RELMANU1") > 0
|
90 |
isDevSystem = IsEmpty(Application("LiveSystem"))
|
| 91 |
End Property
|
91 |
End Property
|
| 92 |
|
92 |
|
| 93 |
'-----------------------------------------------------------------------------------------------------------------
|
93 |
'-----------------------------------------------------------------------------------------------------------------
|
| 94 |
Public Function UserApplication ( nAppId )
|
94 |
Public Function UserApplication ( nAppId )
|
| 95 |
UserApplication = FALSE
|
95 |
UserApplication = FALSE
|
| Line 342... |
Line 342... |
| 342 |
|
342 |
|
| 343 |
moOraDatabase.Parameters.Remove "USER_ID"
|
343 |
moOraDatabase.Parameters.Remove "USER_ID"
|
| 344 |
rsQry.Close
|
344 |
rsQry.Close
|
| 345 |
Set rsQry = Nothing
|
345 |
Set rsQry = Nothing
|
| 346 |
|
346 |
|
| 347 |
|
- |
|
| 348 |
'--- Check if User is still Loged on ---
|
347 |
'--- Check if User is still Logged on ---
|
| 349 |
If is_Online = "Y" Then
|
348 |
If is_Online = "Y" Then
|
| 350 |
Call SessionsAndCookieSetup ( sUserId )
|
349 |
Call SessionsAndCookieSetup ( sUserId )
|
| 351 |
|
- |
|
| 352 |
End If
|
350 |
End If
|
| 353 |
|
351 |
|
| 354 |
|
- |
|
| 355 |
End Function
|
352 |
End Function
|
| 356 |
'-----------------------------------------------------------------------------------------------------------------
|
353 |
'-----------------------------------------------------------------------------------------------------------------
|
| 357 |
Public Sub LogonUser ( sUserName, sUserPassword )
|
354 |
Public Sub LogonUser ( sUserName, sUserPassword )
|
| 358 |
Dim rsQry, query, sMessage
|
355 |
Dim rsQry, query, sMessage
|
| 359 |
sMessage = NULL
|
356 |
sMessage = NULL
|
| Line 392... |
Line 389... |
| 392 |
|
389 |
|
| 393 |
' Tag user login
|
390 |
' Tag user login
|
| 394 |
Call TagLogon ( rsQry )
|
391 |
Call TagLogon ( rsQry )
|
| 395 |
|
392 |
|
| 396 |
End If
|
393 |
End If
|
| 397 |
|
- |
|
| 398 |
|
- |
|
| 399 |
End If
|
394 |
End If
|
| 400 |
|
395 |
|
| 401 |
Else
|
396 |
Else
|
| 402 |
' User Not Found !
|
397 |
' User Not Found !
|
| 403 |
sMessage = "Account <b>"& sUserName &"</b> Not Found!"
|
398 |
sMessage = "Account <b>"& sUserName &"</b> Not Found!"
|
| Line 408... |
Line 403... |
| 408 |
'-- Raise Exception --
|
403 |
'-- Raise Exception --
|
| 409 |
Err.Raise 8, sMessage, "Make sure your Username is correct <br>OR <br>Please go back and register if you are new user. "
|
404 |
Err.Raise 8, sMessage, "Make sure your Username is correct <br>OR <br>Please go back and register if you are new user. "
|
| 410 |
|
405 |
|
| 411 |
End If
|
406 |
End If
|
| 412 |
'--------------------------
|
407 |
'--------------------------
|
| 413 |
|
- |
|
| 414 |
|
- |
|
| 415 |
|
- |
|
| 416 |
|
- |
|
| 417 |
rsQry.Close()
|
408 |
rsQry.Close()
|
| 418 |
Set rsQry = Nothing
|
409 |
Set rsQry = Nothing
|
| 419 |
End Sub
|
410 |
End Sub
|
| 420 |
'-----------------------------------------------------------------------------------------------------------------
|
411 |
'-----------------------------------------------------------------------------------------------------------------
|
| 421 |
Public Function RequiresPasswordUpdate ( sUserName )
|
412 |
Public Function RequiresPasswordUpdate ( sUserName )
|
| Line 552... |
Line 543... |
| 552 |
'-----------------------------------------------------------------------------------------------------------------
|
543 |
'-----------------------------------------------------------------------------------------------------------------
|
| 553 |
Private Function IsLocaPasswordCorrect ( sUserName, sPassword )
|
544 |
Private Function IsLocaPasswordCorrect ( sUserName, sPassword )
|
| 554 |
|
545 |
|
| 555 |
moOraDatabase.Parameters.Add "USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
546 |
moOraDatabase.Parameters.Add "USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 556 |
moOraDatabase.Parameters.Add "PASSWORD", sPassword, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
547 |
moOraDatabase.Parameters.Add "PASSWORD", sPassword, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 557 |
moOraDatabase.Parameters.Add "RETURN_CODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
548 |
moOraDatabase.Parameters.Add "RETURN_CODE", 0, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
| 558 |
|
549 |
|
| 559 |
moOraDatabase.ExecuteSQL _
|
550 |
moOraDatabase.ExecuteSQL _
|
| 560 |
"BEGIN :RETURN_CODE := PK_SECURITY.IS_LOCAL_PASSWORD_CORRECT ( :USER_NAME, :PASSWORD ); END;"
|
551 |
"BEGIN :RETURN_CODE := PK_SECURITY.IS_LOCAL_PASSWORD_CORRECT ( :USER_NAME, :PASSWORD ); END;"
|
| 561 |
|
552 |
|
| 562 |
If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 1 Then
|
553 |
If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 1 Then
|
| Line 603... |
Line 594... |
| 603 |
|
594 |
|
| 604 |
End Sub
|
595 |
End Sub
|
| 605 |
'-----------------------------------------------------------------------------------------------------------------
|
596 |
'-----------------------------------------------------------------------------------------------------------------
|
| 606 |
Private Sub LoginTrail ( nEvent, sUserName, sMessage )
|
597 |
Private Sub LoginTrail ( nEvent, sUserName, sMessage )
|
| 607 |
|
598 |
|
| 608 |
moOraDatabase.Parameters.Add "EVENT_ENUM", nEvent, ORAPARM_INPUT, ORATYPE_NUMBER
|
599 |
moOraDatabase.Parameters.Add "EVENT_ENUM", nEvent, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 609 |
moOraDatabase.Parameters.Add "LOGIN_USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
600 |
moOraDatabase.Parameters.Add "LOGIN_USER_NAME", sUserName, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 610 |
moOraDatabase.Parameters.Add "CLIENT_IP", Request.ServerVariables("REMOTE_ADDR"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
601 |
moOraDatabase.Parameters.Add "CLIENT_IP", Request.ServerVariables("REMOTE_ADDR"), ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 611 |
moOraDatabase.Parameters.Add "APPLICATION_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
|
602 |
moOraDatabase.Parameters.Add "APPLICATION_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 612 |
moOraDatabase.Parameters.Add "LOGIN_COMMENTS", sMessage, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
603 |
moOraDatabase.Parameters.Add "LOGIN_COMMENTS", sMessage, ORAPARM_INPUT, ORATYPE_VARCHAR2
|
| 613 |
|
604 |
|
| 614 |
objEH.TryORA ( moOraSession )
|
605 |
objEH.TryORA ( moOraSession )
|
| 615 |
On Error Resume Next
|
606 |
On Error Resume Next
|
| 616 |
|
607 |
|
| 617 |
moOraDatabase.ExecuteSQL _
|
608 |
moOraDatabase.ExecuteSQL _
|