<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddApplicationUser | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim rsUser Dim parViewId Dim parProjId '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- parProjId = Request("proj_id") parViewId = NiceInt(Request("view_id"), -1) '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub AddViewUser () On Error Resume Next OraDatabase.Parameters.Add "USER_ID_LIST", Request("user_id_list"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "VIEW_ID", parViewId, ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) objEH.ErrorRedirect = FALSE OraDatabase.ExecuteSQL "BEGIN ADD_AUTOBUILD_FAILURE_INFO ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "USER_ID_LIST" OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "VIEW_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB (for edit forms only) --- '------------------------------------------------------- ' --- Load Validation Rules --- ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then Call AddViewUser() If objEH.Finally Then Call ReloadParentWindow() Call Destroy_All_Objects Response.End End If End If End If '---------------------------------------------- %> Release Manager <%=parProjId%>-<%=parViewId%> <%'=objPMod.ComposeHiddenTags()%> <%=objPMod.ComposeHiddenTags()%>
Search for User or select from the list.
User Search ">
 
<% Dim startPosition, pageNumber, navigator, totalRecords, lastRecord Const MAX_ROWS = 50 ' Maximum number of rows displayed OraDatabase.Parameters.Add "APP_ID", APPLICATION_ID, ORAPARM_INPUT, ORATYPE_NUMBER '--- 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 OraDatabase.Parameters.Add "VIEW_ID", parViewId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsUser = OraDatabase.DbCreateDynaset( GetQuery ("GetApplicationUserList.sql") , ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "APP_ID" OraDatabase.Parameters.Remove "FULL_NAME" OraDatabase.Parameters.Remove "USER_NAME" OraDatabase.Parameters.Remove "DOMAIN_NAME" OraDatabase.Parameters.Remove "VIEW_ID" OraDatabase.Parameters.Remove "PROJ_ID" '--- 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 %>
Full Name User Name User Email
" <%If rsUser("user_id") < 1 Then%>disabled<%End If%>> <%=Eval( rsUser("user_image") ) & rsUser("full_name")%> <%=rsUser("user_name")%> <%=rsUser("user_email")%>
<%=navigator%>
<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- %>