<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Login Trail | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsUser '------------ CONSTANTS DECLARATION ----------- Const LIMG_LOGON_SUCCESS = "" Const LIMG_LOGON_FAIL = "" Const LIMG_LOGOFF = "" Const LIMG_SESSION_EXPIRE = "" '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ("tree") '---------------------------------------------- %>

Login Trail <% Dim startPosition, pageNumber, navigator, totalRecords, lastRecord Const MAX_ROWS = 100 ' Maximum number of rows displayed Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("LoginTrail.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%> <% '--- 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 %> <%rsUser.MoveNext%> <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%> <%End If%> <% Loop rsUser.Close() Set rsUser = Nothing %> User Name Full Name Remote Address (IP) Application Date Comments <%=Eval(rsUser("event_icon"))%> <%=rsUser("user_name")%> &<%=objPMod.ComposeURL%>" class="body_link"><%=rsUser("full_name")%> &<%=objPMod.ComposeURL%>" class="body_link"><%=rsUser("client_ip")%> <%=rsUser("application_name")%> <%=rsUser("stamp")%> <%=rsUser("comments")%> <%=navigator%>

<% '------------ RUN AFTER PAGE RENDER ----------- '---------------------------------------------- %>