<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Default | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsUser 'Dim objBtnControl 'Dim aTabBtnsDef '------------ CONSTANTS DECLARATION ----------- 'Const LIMG_USER = "" 'Const LIMG_USER_DISABLED = "" 'Const LIMG_ROLE = "" '------------ VARIABLE INIT ------------------- 'Set objBtnControl = New ActionButtonControl '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- objPMod.PersistInQryString ("tree") '---------------------------------------------- %> <% If (Request("action") <> "") Then '-- Select Action Select Case Request("action") Case "btnRemoveAccount" Call OpenInWindow ( "_RemoveUserAccount.asp?user_id_list="& Request("user_id_list") &"&rfile="& SCRIPT_NAME &"&"& objPMod.ComposeURL() ) End Select End If %>

<%=objPMod.ComposeHiddenTags()%> <% '-- Define Action buttons on this tab aTabBtnsDef = Array("btnNewAccount", "btnRemoveAccount", "height=14", "btnDisableAccount" ) Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl ) objBtnControl.Render( aTabBtnsDef ) %> User Accounts <% Dim startPosition, pageNumber, navigator, totalRecords, lastRecord Const MAX_ROWS = 50 ' Maximum number of rows displayed '--- Set filters --- If Request("filter") <> "" Then OraDatabase.Parameters.Add "FULL_NAME", "%"& Request("filter") &"%", ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_NAME", Request("filter") &"%", ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DOMAIN_NAME", Request("filter") &"%", ORAPARM_INPUT, ORATYPE_VARCHAR2 Else OraDatabase.Parameters.Add "FULL_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DOMAIN_NAME", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2 End If Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("GetUserList.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 Request("updated") = "ok" Or Request("removed") = "ok" Then%> <%End If%> <% If Request("updated") = "ok" Then Response.Write("User Account Details Updated Successfully") Else Response.Write("User Account(s) Removed Successfully") 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 OraDatabase.Parameters.Remove "FULL_NAME" OraDatabase.Parameters.Remove "USER_NAME" OraDatabase.Parameters.Remove "DOMAIN_NAME" rsUser.Close() Set rsUser = Nothing %> Full Name Email User Name Domain Last Request Edit Roles "> <%=UserOnlineIcon ( rsUser("user_online"), rsUser("last_request") )%> &<%=objPMod.ComposeURL%>" class="body_link"><%=Eval( rsUser("user_image") ) & rsUser("full_name")%> " class="body_link"><%=rsUser("user_email")%> <%=rsUser("user_name")%> <%=rsUser("domain")%> <%=LastRequest ( rsUser("last_request") )%> &rfile=<%=SCRIPT_NAME%>&<%=objPMod.ComposeURL%>','EditAccount','scrollbars=yes,resizable=yes,width=600,height=350')"><%=LIMG_EDIT%> &<%=objPMod.ComposeURL%>" title="See User Roles"><%=LIMG_ROLE%> <%=navigator%>

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