Rev 187 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| Processes Dependant |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.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"--><!--#include file="common/common_subs.asp"--><!--#include file="common/common_dbedit.asp"--><!--#include file="_tabs.asp"--><!--#include file="_action_buttons.asp"--><!--#include file="common/_package_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim rsTempDim rsQry'------------ Constants Declaration -----------'------------ Variable Init -------------------'----------------------------------------------%><%Function Get_Processes ( NNpv_id )Get_Processes = _" SELECT * FROM PACKAGE_PROCESSES pp, PROCESSES p WHERE pp.PROC_ID = p.PROC_ID AND PV_ID ="&NNpv_id&"ORDER BY p.PROC_NAME"End Function%><html><head><title><%=Title(Request("rtag_id"))%></title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><script language="JavaScript" src="scripts/remote_scripting.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"><!-----------------------------------------------------></div><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="top" width="1" background="images/bg_bage.gif"><!-- LEFT --><!--#include file="_environment.asp"--></td><td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td valign="top" width="100%"><!-- MIDDLE --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%" background="images/bg_action_norm.gif"><IMG height=35 src="images/spacer.gif" width=15></td><td width="100%" background="images/bg_action_norm.gif"><%Call RenderActionBar(parRtag_id,parPv_id)%></td><td width="1%" background="images/bg_action_norm.gif"><IMG height=1 src="images/spacer.gif" width=15></td></tr><tr><td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td><td background="images/bg_lght_gray.gif"><%Call RenderStatus(parRtag_id,parPv_id)%></td><td background="images/bg_lght_gray.gif"> </td></tr><tr><td background="images/bg_lght_gray.gif"> </td><td valign="bottom" background="images/bg_lght_gray.gif"><table width="100" border="0" cellspacing="0" cellpadding="0"><tr><td><IMG height=1 src="images/spacer.gif" width=50></td><td><!-- TABS -------------------------------------><%Call Generate_Tab_Menu ( TABarray1, "Processes", "orange" )%></td></tr></table></td><td background="images/bg_lght_gray.gif"> </td></tr><tr><td background="images/lbox_bg_orange.gif"><IMG height=35 src="images/spacer.gif" width=1></td><td background="images/lbox_bg_orange.gif"><!-- TAB ACTION BUTTONS -------------------------------------><%Call Action_Buttons ( "Add Process" )%></td><td background="images/lbox_bg_orange.gif"> </td></tr><tr><td></td><td valign="top"><!-- DETAILS -------------------------------------------------><br><span class="body_colb">Processes</span><br><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field"></td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Health Tag </td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Process Description </td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Command Interface</td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Interface</td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field">Owner</td><td background="images/bg_form_lightbluedark.gif" nowrap class="form_field"></td></tr><%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Processes ( parPv_id ), cint(0))%><%If rsTemp.RecordCount < 1 Then%><tr><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td></tr><%End If%><%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%><tr><td align="center" nowrap background="images/bg_form_lightgray.gif"></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("proc_name")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("proc_description")%></td><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("run_as")%></td><td background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("is_interface")%></td><td nowrap background="images/bg_form_lightgray.gif" class="form_item" valign="top"><%=rsTemp("pkg_owner")%></td><%If pkgInfoHash.Item("dlocked") = "N" OR (pkgInfoHash.Item("dlocked") = "R") Then%><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><a href="_remove_process.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&proc_id=<%=rsTemp("proc_id")%>" onClick="return confirmDelete('this process');"><img src="images/i_delete.gif" alt="Remove from list." width="13" height="12" hspace="3" border="0"></a></td><%Else%><td align="center" background="images/bg_form_lightgray.gif" class="form_item" valign="top"><img src="images/i_delete_disable.gif" alt="Remove disabled." width="13" height="12" hspace="3" border="0"></td><%End If%></tr><%rsTemp.MoveNextWEndrsTemp.CloseSet rsTemp = nothing%></table><!------------------------------------------------------------><br><br><!-- END DETAILS -------------------------------------------------></td><td> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html><%Call Destroy_All_Objects%>