|
|
 |
|
|
<%
Set objTabControl = New TabControl
objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleMac/mac_style.html") ) ' Supply tab style definition
objTabControl.TabStyle = "StyleMac"
objTabControl.AddTabDefnition ( arrUserAccount )
objTabControl.SelectByName ( "Login Trail" )
objTabControl.Render ()
%>
|
<%
Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
Const MAX_ROWS = 100 ' Maximum number of rows displayed
OraDatabase.Parameters.Add "USER_NAME", objUserCollector("user_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2
Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("UserLoginTrail.sql") , ORADYN_DEFAULT )
'--- Get page number ---
pageNumber = 0
If Request("pg") <> "" Then
pageNumber = CInt(Request("pg"))
End If
'--- Set Cursor start position ---
startPosition = pageNumber * MAX_ROWS + 1
If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
rsUser.MoveTo ( startPosition ) ' Set starting cursor point
End If
'--- Construct Navigator
navigator = ""
If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then
totalRecords = rsUser.RecordCount ' Get total number of records
'--- Create "Previous" link
If pageNumber > 0 Then
navigator = navigator &"« Previous"
End If
'--- Create "Next" link
If ( startPosition + MAX_ROWS ) < totalRecords Then
navigator = navigator &" Next »"
End If
End If
'--- Calculate Last Record ---
If totalRecords > 0 Then
lastRecord = ( startPosition - 1 + MAX_ROWS ) _
+ ( CInt( ( startPosition - 1 + MAX_ROWS )/totalRecords > 1) ) * ( ( startPosition - 1 + MAX_ROWS ) - totalRecords )
End If
%>
| |
|
<%
If totalRecords > 0 Then
Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
Else
Response.write "No Results."
End If
%> |
<%=navigator%> |
|
|
Remote Address (IP) |
Application |
Date |
Comments |
<%
'--- Render rows ---
Do While (NOT rsUser.BOF) AND (NOT rsUser.EOF)
If rsUser.RowPosition => (startPosition + MAX_ROWS) Then Exit Do ' Limit the number of rows displayed
%>
| <%=Eval(rsUser("event_icon"))%> |
<%=rsUser("user_name")%> |
&<%=objPMod.ComposeURL%>" class="body_link"><%=rsUser("client_ip")%> |
<%=rsUser("application_name")%> |
<%=rsUser("stamp")%> |
<%=rsUser("comments")%> |
<%rsUser.MoveNext%>
<%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
|
<%End If%>
<%
Loop
OraDatabase.Parameters.Remove "USER_NAME"
rsUser.Close()
Set rsUser = Nothing
%>
|
|
|
|
|
|
|
|
"
Const LIMG_LOGON_FAIL = "
"
Const LIMG_LOGOFF = "
"
Const LIMG_SESSION_EXPIRE = "
"
'------------ VARIABLE INIT -------------------
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
Call GetUserDetails ( parUser_id, objUserCollector )
'----------------------------------------------
%>