WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/wAddApplicationUser.asp

 %>
 <%
 '--------------------------------------------------------------------------------------------------------------------------
 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", 			Request("proj_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
 	OraDatabase.Parameters.Add "VIEW_ID", 			Request("view_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.BeginTrans
 	objEH.TryORA ( OraSession )
 	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"
-	OraDatabase.CommitTrans
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------ RUN BEFORE PAGE RENDER ----------
 '----------------------------------------------------
 If CBool(Request("action")) Then
 	If objForm.IsValidOnPostBack Then
 		' --- Form is Valid ---
 		Call AddViewUser()
 		If objEH.Finally Then
 		%>
 	<script language="JavaScript" type="text/javascript">
 	window.opener.location='form_edit_project_view.asp?proj_id=<%=Request.Form("proj_id")%>&FRview_id=<%=Request.Form("view_id")%>';
 	</script>
 		<%
 			Call CloseWindow()
 		End If
 	End If
 End If
 '----------------------------------------------
 %>
 <html>
 </head>
 <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" onLoad="self.focus();">
 <table width="100%"  border="0" cellspacing="0" cellpadding="10">
   <tr>
     <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_user_lrg.gif" width="13" height="17" hspace="0" align="absmiddle">&nbsp;Add User </span> <br>
     Search for User or select from the list. </td>
   </tr>
   <form name="FormSearch" method="post" action="<%=ScriptName%>">
   <tr>
     <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
         <tr>
         </tr>
       </table></td>
   </tr>
   <%'=objPMod.ComposeHiddenTags()%>
   <input type="hidden" name="view_id" value="<%=Request("view_id")%>">
   <input type="hidden" name="proj_id" value="<%=Request("proj_id")%>">
   </form>
   <form name="FormName" method="post" action="<%=ScriptName%>">
   <tr>
     <td background="images/bg_drk_bage_pane.gif">
 	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
             </td>
           </tr>
           <%End If%>
           <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
         </table>
 <%
 		Dim startPosition, pageNumber, navigator, totalRecords, lastRecord
 		Const MAX_ROWS = 50	' Maximum number of rows displayed
 		OraDatabase.Parameters.Add "APP_ID", 			Request("app_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", 	Request("view_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
 		OraDatabase.Parameters.Add "PROJ_ID", 	Request("proj_id"),	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 &"<a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber - 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Previous Page'>&laquo; Previous</a>"
 			End If
 			'--- Create "Next" link
 			If ( startPosition + MAX_ROWS ) < totalRecords Then
 				navigator = navigator &"&nbsp;&nbsp;<a href='"& ScriptName &"?view_id="&Request("view_id")&"&pg="& pageNumber + 1 &"&"& objPMod.ComposeURL &"' class='body_link' title='Show Next Page'>Next &raquo;</a>"
 			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
             <td colspan="2" class="body_row">&nbsp;</td>
           </tr>
           <tr>
             <td align="left" class="body_row">
 			<%
 			If totalRecords > 0 Then
 				Response.write "Showing "& startPosition &" - "& lastRecord &" of "& totalRecords
 			Else
 				Response.write "No Results."
 			End If
 			%></td>
             <td align="right" class="body_scol"><%=navigator%></td>
           </tr>
         </table>
 		 <!-- DETAILS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 		 <table width="100%"  border="0" cellspacing="3" cellpadding="0">
           <tr>
 		  	<td width="1%" background="images/bg_table_col.gif"><img src="images/spacer.gif" width="16" height="16" hspace="2"></td>
             <td width="30%" background="images/bg_table_border.gif">
             <td nowrap class="body_row"><%=Eval( rsUser("user_image") )  &  rsUser("full_name")%></td>
             <td class="body_rowg"><%=rsUser("user_name")%></td>
             <td class="body_rowg"><%=rsUser("domain")%></td>
           </tr>
 		  <%rsUser.MoveNext%>
 		  <%If (NOT rsUser.BOF) AND (NOT rsUser.EOF) Then%>
           <tr>
             <td colspan="4" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
           </tr>
 		  <%End If%>
 		  <%
 		  Loop
 		  rsUser.Close()
 		  Set rsUser = Nothing
 		  %>
           <tr>
             <td colspan="4" background="images/bg_table_border.gif">
                 <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
               </tr>
              </table>
 			</td>
           </tr>
          </table>
 		 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 		 <table width="100%"  border="0" cellspacing="0" cellpadding="0">
           <tr>
             <td align="right" class="body_scol"><%=navigator%></td>
           </tr>
         </table>
 	</td>
   </tr>
   <%=objPMod.ComposeHiddenTags()%>
   <input type="hidden" name="view_id" value="<%=Request("view_id")%>">

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/wAddApplicationUser.asp @ 5097 – Rev 119 → 129