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

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
-'|				    	Edit Project View Details    |
+'|              Edit Project View Details            |
 '|                                                   |
 '=====================================================
-%>
-<%
 Option explicit
 ' Good idea to set when using redirect
-Response.Expires = 0	' always load the page, dont store
+Response.Expires = 0  ' always load the page, dont store
 %>
 <!--#include file="common/conf.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/formating.asp"-->
 <!--#include file="common/qstr.asp"-->
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parProjId = Request("proj_id")
 objPMod.PersistInQryString("proj_id")
 '----------------------------------------------
-%>
-<%
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFormDetails ( parProjId, ByRef outobjDetails )
-	Dim rsQry, query
+  Dim rsQry, query
-	OraDatabase.Parameters.Add "PROJ_ID", 	parProjId,		ORAPARM_INPUT, ORATYPE_NUMBER
+  OraDatabase.Parameters.Add "PROJ_ID",   parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
-	query = _
+  query = _
-	" SELECT prj.* "&_
+  " SELECT prj.* "&_
-	"  FROM PROJECTS prj"&_
+  " FROM PROJECTS prj"&_
-	" WHERE prj.PROJ_ID = :PROJ_ID"
+  " WHERE prj.PROJ_ID = :PROJ_ID"
-	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
+  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-	OraDatabase.Parameters.Remove "PROJ_ID"
+  OraDatabase.Parameters.Remove "PROJ_ID"
-	If rsQry.RecordCount > 0 Then
+  If rsQry.RecordCount > 0 Then
-		outobjDetails.Item ("proj_id") = rsQry("proj_id")
+    outobjDetails.Item ("proj_id") = rsQry("proj_id")
-		outobjDetails.Item ("proj_name") = rsQry("proj_name")
+    outobjDetails.Item ("proj_name") = rsQry("proj_name")
-		'outobjDetails.Item ("description") = rsQry("description")
-		'outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
-		'outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
-		'outobjDetails.Item ("owner_email") = rsQry("owner_email")
-		'If rsQry("assoc_mass_ref") <> "" Then
-		'outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
-		'End If
-	Else
+  Else
-		Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
+    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
-	End If
+  End If
-	rsQry.Close
+  rsQry.Close
-	Set rsQry = Nothing
+  Set rsQry = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub DeleteViewOwner (userId, viewId)
-	On Error Resume Next
+  On Error Resume Next
-	'Response.Write(Request("user_view_id_list"))
-	OraDatabase.BeginTrans
+  OraDatabase.BeginTrans
-	OraDatabase.Parameters.Add "PROJ_ID",		Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
+  OraDatabase.Parameters.Add "PROJ_ID",    Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "VIEW_ID",		viewId, 	ORAPARM_INPUT, ORATYPE_NUMBER
+  OraDatabase.Parameters.Add "VIEW_ID",    viewId,   ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "USER_ID_LIST",	userId, 	ORAPARM_INPUT, ORATYPE_VARCHAR2
+  OraDatabase.Parameters.Add "USER_ID_LIST",  userId,   ORAPARM_INPUT, ORATYPE_VARCHAR2
-	OraDatabase.Parameters.Add "USER_ID", 	objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
+  OraDatabase.Parameters.Add "USER_ID",   objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
-	objEH.TryORA ( OraSession )
+  objEH.TryORA ( OraSession )
-	OraDatabase.ExecuteSQL _
+  OraDatabase.ExecuteSQL _
-	"BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
+  "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
-	objEH.CatchORA ( OraSession )
+  objEH.CatchORA ( OraSession )
-	OraDatabase.Parameters.Remove "PROJ_ID"
+  OraDatabase.Parameters.Remove "PROJ_ID"
-	OraDatabase.Parameters.Remove "VIEW_ID"
+  OraDatabase.Parameters.Remove "VIEW_ID"
-	OraDatabase.Parameters.Remove "USER_ID_LIST"
+  OraDatabase.Parameters.Remove "USER_ID_LIST"
-	OraDatabase.Parameters.Remove "USER_ID"
+  OraDatabase.Parameters.Remove "USER_ID"
-	OraDatabase.CommitTrans
+  OraDatabase.CommitTrans
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetUserViewId(value, posComma)
-		txt = value
+    txt = value
-		posComma = InStr(txt, ",")
+    posComma = InStr(txt, ",")
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
-%>
-<%
 '------------ RUN BEFORE PAGE RENDER ----------
 ' --- Get Form details from DB ---
 Call GetFormDetails ( Request("proj_id"), objFormCollector )
-' --- Load Validation Rules ---
-'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )		' Load Validation Rules
 ' --- Enter Form Validation Rule Changes here... ----
 '----------------------------------------------------
 ' --- RUN onPostBack ---
 If Request("action") <> "" Then
-	If objForm.IsValidOnPostBack Then
+  If objForm.IsValidOnPostBack Then
-		Dim txt,posComma, posUnderscore, userId, viewId, value
+    Dim txt,posComma, posUnderscore, userId, viewId, value
+    Call GetUserViewId(Request("user_view_id_list"), posComma)
-		Call GetUserViewId(Request("user_view_id_list"), posComma)
-		While posComma <> 0
+    While posComma <> 0
-			'Response.Write(txt)
-			value = Mid(txt, 1, posComma-1)
+      value = Mid(txt, 1, posComma-1)
-			posUnderscore = Instr(value, "_")
+      posUnderscore = Instr(value, "_")
-			userId = Mid(value, 1, posUnderscore - 1)
+      userId = Mid(value, 1, posUnderscore - 1)
-			viewId = Mid(value, posUnderscore + 1, posComma-1)
+      viewId = Mid(value, posUnderscore + 1, posComma-1)
-			Call DeleteViewOwner(userId, viewId)
+      Call DeleteViewOwner(userId, viewId)
-			txt = Mid(txt, posComma + 1, Len(txt))
+      txt = Mid(txt, posComma + 1, Len(txt))
-			posComma = InStr(txt, ",")
+      posComma = InStr(txt, ",")
-		Wend
+    Wend
-		If posComma = 0 Then
+    If posComma = 0 Then
-			posUnderscore = Instr(txt, "_")
+      posUnderscore = Instr(txt, "_")
+      If posUnderscore>0 Then
-			userId = Mid(txt, 1, posUnderscore - 1)
+      userId = Mid(txt, 1, posUnderscore - 1)
-			viewId = Mid(txt, posUnderscore + 1)
+      viewId = Mid(txt, posUnderscore + 1)
-			Call DeleteViewOwner(userId, viewId)
+      Call DeleteViewOwner(userId, viewId)
-		Else
+      End If
-		End if
+    End if
-		' --- Form is Valid ---
-		'Call DeleteViewOwner()
-		If objEH.Finally Then
+    If objEH.Finally Then
-			Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
+      Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
-		End If
+    End If
-	End If
+  End If
 End If
 '----------------------------------------------
 %>
 objFormComponent.Action = ScriptName
 Call objFormComponent.FormStart()
 %>
   <tr>
     <td width="1" background="images/bg_home_orange.gif" valign="top">
-	</td>
+    </td>
-	<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
+    <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
-      <tr>
+      <table width="10" border="0" cellspacing="0" cellpadding="0">
-        <td width="1%"></td>
+        <tr>
-        <td width="100%">
+          <td width="1%"></td>
-<table width="100%"  border="0" cellspacing="0" cellpadding="0">
+          <td width="100%">
-            <tr>
+            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
-              <td nowrap class="body_txt">
+              <tr>
+                <td nowrap class="body_txt">
-			  </td>
+                </td>
+              </tr>
-            </tr>
+            </table>
-          </table>
+            <table width="100%" border="0" cellspacing="0" cellpadding="0">
-          <table width="100%" border="0" cellspacing="0" cellpadding="0">
+              <tr>
-            <tr>
+                <td nowrap class="form_ttl"><p>&nbsp;</p>
-              <td nowrap class="form_ttl"><p>&nbsp;</p>
+                  <p>EDIT PROJECT VIEW DETAILS </p></td>
-                <p>EDIT PROJECT VIEW DETAILS </p></td>
+                <td align="right" valign="bottom"></td>
-              <td align="right" valign="bottom"></td>
+              </tr>
-            </tr>
+            </table>
-        </table></td>
+          </td>
-        <td width="1%"></td>
+          <td width="1%"></td>
-      </tr>
+        </tr>
-      <tr>
+        <tr>
-        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
+          <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
-        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
+          <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
-        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
+          <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
-      </tr>
+        </tr>
-      <tr>
+        <tr>
-        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
+          <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
-        <td bgcolor="#FFFFFF" valign="top">
+          <td bgcolor="#FFFFFF" valign="top">
-		<%
+<%
-		If parSourceRtagId <> "" Then
+If parSourceRtagId <> "" Then
-			Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
+  Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
-		End If
+End If
-		%>
+%>
-		<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-		<!--#include file="messages/_msg_inline.asp"-->
+<!--#include file="messages/_msg_inline.asp"-->
-		<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-		<br>
+            <br>
+            <table width="100%"  border="0" cellspacing="2" cellpadding="0">
-		<table width="100%"  border="0" cellspacing="2" cellpadding="0">
+              <tr>
-		  <tr>
+                <td valign="top" nowrap class="form_iname">Project Name </td>
-			<td valign="top" nowrap class="form_iname">Project Name </td>
+                <td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
-			<td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
+              </tr>
-		  </tr>
+              <tr>
-		  <tr>
+                <td nowrap class="form_iname" valign="top">Select Base View </td>
-			<td nowrap class="form_iname" valign="top">Select Base View </td>
+                <td valign="top" nowrap class="form_iname">
-			<td valign="top" nowrap class="form_iname">
+<%
-			<%
+OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
-			  OraDatabase.Parameters.Add "PROJ_ID", parProjId, 	ORAPARM_INPUT, ORATYPE_NUMBER
+Dim Query_String
-			  Dim Query_String
+Dim RecordCount
-			  	Query_String = _
+RecordCount=0
-				"	SELECT DISTINCT vi.view_id, vi.view_name"&_
+  Query_String = _
-				"	FROM VIEWS vi,"&_
+"  SELECT DISTINCT vi.view_id, vi.view_name"&_
-				"   RELEASE_CONTENT rc,"&_
+"  FROM VIEWS vi"&_
-				"   RELEASE_TAGS rt"&_
+"  WHERE vi.view_name = 'PROJECT WIDE'"
-				"	WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
-				"   AND rt.proj_id = "& parProjId &_
+Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
-				"   AND rc.rtag_id = rt.rtag_id"&_
+RecordCount=rsQry.RecordCount
-				" 	ORDER BY UPPER( vi.view_name )"
+OraDatabase.Parameters.Remove "PROJ_ID"
+Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
-			  Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
+While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
-			  OraDatabase.Parameters.Remove "PROJ_ID"
+    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
-	Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
+  Else
-Response.write "<option value='0' selected>--NONE--</option>"
+    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
-			  %>
+  End If
+  rsQry.MoveNext
+WEnd
-				<%While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+rsQry.Close()
-			If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
+OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
-	        	Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& UCase(rsQry.Fields("view_name")) &"</option>"
+  Query_String = _
-	        Else
+"  SELECT DISTINCT vi.view_id, vi.view_name"&_
+"  FROM VIEWS vi,"&_
-				Response.write "<option value='"& rsQry.Fields("view_id") &"'>"& UCase(rsQry.Fields("view_name")) &"</option>"
+"   RELEASE_CONTENT rc,"&_
-			End If
+"   RELEASE_TAGS rt"&_
-					rsQry.MoveNext
+"  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
-				WEnd
+"   AND rt.proj_id = "& parProjId &_
+"   AND rc.rtag_id = rt.rtag_id"&_
-				rsQry.Close()
+"   ORDER BY UPPER( vi.view_name )"
-				Set rsQry = nothing
-				%>
+Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
-			  </select>
+RecordCount=RecordCount+rsQry.RecordCount
-		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
-		<%If request("FRview_id") <> "" And objAccessControl.IsActive("AdminView") Then %>
+OraDatabase.Parameters.Remove "PROJ_ID"
-		<a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','AddApplicationUser','scrollbars=yes,resizable=yes,width=650,height=800')"><img src="images/email-contact-orange.gif">Add View Owner</a>
+While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-		<%End If%>
-		<!-- +++++++++++++++++++++++++++++++++++ -->
+  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
-			</td>
+    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
-			<td width="9%" valign="top"></td>
+  Else
-		  </tr>
+    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
-		  		  <tr>
+  End If
-			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
+  rsQry.MoveNext
-			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
+WEnd
-			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
-			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
+rsQry.Close()
-			<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
+Set rsQry = nothing
-			<td valign="top">
+%>
-		  </tr>
+                  </select>
-		  <%
+<!-- BUTTONS CONTROL +++++++++++++++++++ -->
-		  Dim currViewId
+<%
-		  currViewId = -1
+If RecordCount>0 and objAccessControl.IsActive("AdminView") Then
-			  Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM USERS USR, MEMBERS_GROUP MG, VIEWS V, AUTOBUILD_FAILURE AF WHERE  AF.PROJ_ID = "& Request("proj_id") &" AND AF.GROUP_EMAIL_ID = MG.GROUP_EMAIL_ID AND USR.USER_ID = MG.USER_ID AND V.VIEW_ID = AF.VIEW_ID ORDER BY V.VIEW_NAME, USR.FULL_NAME" , cint(0) )
+%>
-		  '--- Render rows ---
+                  <a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','AddApplicationUser','scrollbars=yes,resizable=yes,width=650,height=800')"><img src="images/email-contact-orange.gif">Add View Owner</a>
-		  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+<%
-		  ' -------- GROUP BY BASE VIEW  -----------------
+End If
-		  If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
+%>
-		 	%>
+<!-- +++++++++++++++++++++++++++++++++++ -->
-      <tr>
+                </td>
-        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+                <td width="9%" valign="top"></td>
-      </tr>
+                  <tr>
-      <tr>
+                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
-	  	<td nowrap class="body_scol"></td>
+                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
-        <td nowrap class="body_scol"><%=rsQry("view_name")%></td>
+                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
-		<td nowrap class="body_scol"></td>
+                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
-        <td nowrap class="body_scol"></td>
+                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
-		<td nowrap class="body_scol"></td>
+                    <td valign="top">
-      </tr>
+                  </tr>
-      <%
+<%
-		  	currViewId = CDbl(rsQry("view_id"))
+Dim currViewId
-		  End If
+currViewId = -1
+  Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM USERS USR, MEMBERS_GROUP MG, VIEWS V, AUTOBUILD_FAILURE AF WHERE  AF.PROJ_ID = "& Request("proj_id") &" AND AF.GROUP_EMAIL_ID = MG.GROUP_EMAIL_ID AND USR.USER_ID = MG.USER_ID AND V.VIEW_ID = AF.VIEW_ID ORDER BY V.VIEW_NAME, USR.FULL_NAME" , cint(0) )
-	  %>
+'--- Render rows ---
+Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-		 <tr>
+' -------- GROUP BY BASE VIEW  -----------------
-		 <td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>"></td>
+If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
-		 <td nowrap class="body_rowg"></td>
+%>
-		 <td nowrap class="body_rowg"><%=rsQry("full_name")%></td>
+                  <tr>
-		 <td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
+                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-		 <td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
+                  </tr>
-		 </tr>
+                  <tr>
-		 <%
+                    <td nowrap class="body_scol"></td>
-		 	rsQry.MoveNext
+                    <td nowrap class="body_scol"><%=rsQry("view_name")%></td>
+                    <td nowrap class="body_scol"></td>
-				If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
+                    <td nowrap class="body_scol"></td>
-          	<tr>
+                    <td nowrap class="body_scol"></td>
-            <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+                  </tr>
-         	 </tr>
+<%
-		 	 <%End If
+  currViewId = CDbl(rsQry("view_id"))
-		 Loop
+End If
-		 				rsQry.Close()
+%>
-				Set rsQry = nothing
+                  <tr>
-		  %>
+                    <td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>"></td>
+                    <td nowrap class="body_rowg"></td>
+                    <td nowrap class="body_rowg"><%=rsQry("full_name")%></td>
+                    <td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
-		  <tr>
+                    <td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
-		    <td class="form_iname">&nbsp;</td>
+                  </tr>
-		    <td>&nbsp;</td>
+<%
-		    <td class="val_err"></td>
+  rsQry.MoveNext
-		    </tr>
+  If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
-		</table>
+%>
+                  <tr>
+                    <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-		</td>
+                  </tr>
-        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
+<%
-      </tr>
+  End If
-	  <tr>
+Loop
-        <td background="images/bg_action_norm.gif" ></td>
+rsQry.Close()
-        <td align="right" background="images/bg_action_norm.gif" >
+Set rsQry = nothing
+%>
-		<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
+                  <tr>
-		<%=objPMod.ComposeHiddenTags()%>
+                    <td class="form_iname">&nbsp;</td>
-		<%If objAccessControl.IsActive("AdminView") Then%>
+                    <td>&nbsp;</td>
-		<input name="btn" type="submit" class="form_btn" value="Remove View Owner(s)">
+                    <td class="val_err"></td>
-		<%End If%>
+                  </tr>
-		<input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
+            </table>
-		<input type="hidden" name="action" value="true">
+          </td>
-		</td>
+          <td background="images/lbox_bgside_white.gif">&nbsp;</td>
-        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
+        </tr>
-      </tr>
+        <tr>
-      <tr>
+          <td background="images/bg_action_norm.gif" ></td>
-        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
+          <td align="right" background="images/bg_action_norm.gif" >
-        <td background="images/lbox_bg_blue.gif"></td>
+<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
-        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
+<%=objPMod.ComposeHiddenTags()%>
-      </tr>
+<%
-    </table>
+If objAccessControl.IsActive("AdminView") Then
+%>
-	<!-- ACTION BUTTONS ---------------------------------------------->
+            <input name="btn" type="submit" class="form_btn" value="Remove View Owner(s)">
-	<!-- ACTION BUTTONS END  ------------------------------------------></td>
+<%
-	<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
+End If
+%>
+            <input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
+            <input type="hidden" name="action" value="true">
+          </td>
+          <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
+        </tr>
+        <tr>
+          <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
+          <td background="images/lbox_bg_blue.gif"></td>
+          <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
+        </tr>
+      </table>
+  <!-- ACTION BUTTONS ---------------------------------------------->
+  <!-- ACTION BUTTONS END  ------------------------------------------>
+    </td>
+    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
   </tr>
   <tr>
     <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
     <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
   </tr>
 <%
 Call objFormComponent.FormEnd()
 '-- FROM END ----------------------------------------------------------------------------------------------------------------
 %>
 </table>
 <!-- FOOTER -->
 <!--#include file="_footer.asp"-->
 </body>
 </html>
 <%

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/form_edit_project_view.asp @ 123 – Rev 119 → 121