WebSVN – DevTools – /ManagerSuite/Deployment

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                Default                                                |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_explorer_common.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim rsQry
Dim StateId, StateTypeEnum
Dim objFormCollector
Dim parState_id
Dim RowColor
Dim aIllustrations
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
Set objFormCollector = CreateObject("Scripting.Dictionary")
parState_id = Request("state_id")
RowColor = NULL
aIllustrations = Array( "fimg_business.jpg", _
                                                "fimg_erg_software.jpg", _
                                                "fimg_global_leader.jpg", _
                                                "fimg_train.jpg" )
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'----------------------------------------------------------------------------------------------------------------------------------------------
Function GetIllustration ()
        Dim numOfIllustrations
        
        numOfIllustrations = UBound ( aIllustrations )
        
        GetIllustration = aIllustrations ( ( Day(Date) Mod numOfIllustrations )  )
End Function
'----------------------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
'----------------------------------------------
%>
<html>
<head>
<title>Deployment Manager</title>
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
<script language="JavaScript" src="scripts/common.js"></script>
</head>

<body leftmargin="0" topmargin="0">
<!-- HEADER ++++++++++++++++ -->
<!--#include file="_header.asp"-->
<!-- +++++++++++++++++++++++ -->
<!-- MAIN MENU  +  CRUMBS ++++++++++++++++ -->
<!--#include file="_main_menu.asp"-->
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
<!-- +++++++++++++++++++++++++++++++++++++ -->
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
    <td width="100%" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
  </tr>
  <tr>
    <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="17" height="30"></td>
    <td background="images/bg_bage_0.gif">&nbsp;</td>
  </tr>
  <tr>
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="1%" align="center" valign="top"><img src="images/dm_logo_vert.gif" width="119" height="35" vspace="10"></td>
    <td width="100%">&nbsp;</td>
    <td width="1%" rowspan="2" align="right" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td align="right" valign="top"><img src="images/<%=GetIllustration%>"></td>
      </tr>
      <tr>
        <td valign="top" background="images/bg_favourits.gif"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
            <tr>
              <td><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
                  <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                </tr>
                <tr>
                  <td colspan="3" background="images/bg_favourits2.gif">
                                  <table width="100%"  border="0" cellspacing="5" cellpadding="0">
                                    <form name="FormName" method="get" action="CommingSoon.asp">
                      <tr>
                        <td valign="top" class="fav_txt"><span class="fav_head">Quick Search </span><br>
                            <br>
                            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td nowrap class="fav_txt">Search in Deployment Manager: </td>
                              </tr>
                              <tr>
                                <td nowrap><input name="keyword" type="text" class="form_ivalue" size="30">
                                  <input name="Submit" type="submit" class="body_txt" value="Search"></td>
                              </tr>
                            </table>
                            </td>
                      </tr>
                                        </form>
                  </table>
                                  </td>
                </tr>
                <tr>
                  <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
                  <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                </tr>
              </table>
                <br>
                <table width="100%"  border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="10" height="3"></td>
                    <td align="right" valign="top" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  </tr>
                  <tr>
                    <td colspan="3" background="images/bg_favourits2.gif"><table width="100%"  border="0" cellspacing="5" cellpadding="0">
                        <tr>
                          <td valign="top" class="fav_txt"><span class="fav_head">Additional Tools</span><br>
                              <br>                        <table width="100%"  border="0" cellspacing="0" cellpadding="2">
                                <tr>
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_product.gif" width="19" height="19" hspace="2" border="0" align="absmiddle">Product Finder</a></td>
                                </tr>
                                                                <tr>
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_open_product.gif" width="19" height="18" hspace="2" border="0" align="absmiddle">Component Finder</a></td>
                                </tr>
                                <tr>
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_bug.gif" width="16" height="15" hspace="3" border="0" align="absmiddle">Issue Finder</a></td>
                                </tr>
                                                                <tr>
                                  <td><a href="CommingSoon.asp" class="fav_link"><img src="icons/i_notification_setup.gif" width="16" height="15" hspace="3" border="0" align="absmiddle">Notifications Setup</a></td>
                                </tr>
                                <tr>
                                  <td><a href="diff.asp" class="fav_link"><img src="icons/i_product.gif" width="19" height="19" hspace="2" border="0" align="absmiddle">SBOM Version Difference</a></td>
                                </tr>
                                        
                              </table>                              
                              <br>
                          </td>
                        </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="190" height="3"></td>
                    <td align="right" valign="bottom" background="images/bg_bage_0a.gif"><img src="images/dot_white.gif" width="1" height="1"></td>
                  </tr>
                </table>
                  <br>
                </td>
            </tr>
          </table>
            <br>
            <br>
            <br></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td valign="bottom"><img src="images/ill_dm_symbol.jpg" width="146" height="300"></td>
    <td valign="top"><table width="100%"  border="0" cellspacing="10" cellpadding="0">
      <tr>
        <td>
                <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <table width="100%"  border="0" cellspacing="3" cellpadding="0">
          <tr>
            <td width="30%" background="images/bg_table_border.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
              <tr>
                <td align="right" nowrap background="images/bg_table_col.gif" class="body_col">&nbsp;Project Name</td>
              </tr>
            </table></td>
                        <td width="70%" align="right" background="images/bg_table_col.gif" class="body_col"></td>
          </tr>
<%
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
'objAccessControl.BeginRegion ( "oProjectList" )
If objAccessControl.IsVisible ( "oProjectList" ) Then
%>                
                  <%
                  OraDatabase.Parameters.Add "PROJ_ID",         dbPARproj_id,   ORAPARM_INPUT, ORATYPE_NUMBER 
                  OraDatabase.Parameters.Add "BRANCH_ID",       dbPARbranch_id, ORAPARM_INPUT, ORATYPE_NUMBER 
                  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ProjectBrowser.sql") , ORADYN_DEFAULT )
                  
                  Set objRepeater = New Repeater
                  
                  While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))%>
                  
                  <%If rsQry("branch_id") <> 0 Then%>
                <tr>
                  <td nowrap valign="top"><img src='images/spacer.gif' width='16' height='18' align='absmiddle'><a href="BomStates.asp?proj_id=<%=rsQry("proj_id")%>&branch_id=<%=rsQry("branch_id")%>" class="menu_link"><%=Expander ( rsQry("expand") )%><%=PBSelector ( rsQry("branch_name").Value, dbPARbranch_id, rsQry("branch_id"), 1 )%></a></td>
                                  <td class="body_rowlite"><%=objFormater.TextToHtml(rsQry("branch_comments").Value)%></td>
                </tr>
                  <%Else%>
                        <%
                        objRepeater.ControlObject = "oProjectList"
                        
                        With objRepeater
                                .TableName = "DM_PROJECTS"
                                .RowId = rsQry("proj_id")
                                .Enabled = _
                                        "<tr>" &_
                        "<td nowrap><a href='"& SCRIPT_NAME &"?proj_id="& rsQry("proj_id") &"' class='menu_link'>"& Expander ( rsQry("expand") ) & PBSelector ( rsQry("proj_name").Value, dbPARproj_id, rsQry("proj_id"), 0 ) &"</a> </td>" &_
                        "<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
                                        "</tr>"
                                
                                .Disabled = _
                                        "<tr>" &_
                        "<td nowrap class='body_txtdisabled' colspan='2'><img src='images/spacer.gif' width='9' height='9' align='absmiddle'><img src='icons/i_world_off.gif' hspace='5' align='absmiddle'>"& rsQry("proj_name").Value &"</td>" &_
                                        "<td><img src='images/spacer.gif' width='1' height='18'></td>"&_
                                        "</tr>"
                                        
                                .Render ( objAccessControl )
                        End With
                        %>
                  <%End If%>
                  
                  <%rsQry.MoveNext%>
                  
                  <%If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
          <tr>
            <td colspan="2" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
          </tr>
                  <%End If%>
                  
                  <%
                  WEnd
                  
                  rsQry.Close
                  Set rsQry = Nothing
                  OraDatabase.Parameters.Remove "PROJ_ID"
                  OraDatabase.Parameters.Remove "BRANCH_ID"
                  %>

<%
End If
'objAccessControl.EndRegion ( "oProjectList" )
'-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-ACCESSMANAGER-
%>                
          <tr>
            <td colspan="2" background="images/bg_table_border.gif">
                         <table width="100%"  border="0" cellspacing="1" cellpadding="2">
              <tr>
                <td nowrap background="images/bg_table_col.gif"><img src="images/spacer.gif" width="1" height="1"></td>
              </tr>
             </table>
                        </td>
          </tr>
         </table>       
                <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                </td>
      </tr>
      <tr>
        <td>
                <!-- OTHER REPORTS ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                </td>
      </tr>
    </table></td>
  </tr>
</table>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="images/spacer.gif" width="8" height="20"></td>
  </tr>
</table>
<!-- FOOTER ++++++++++++++++ -->
<!--#include file="_footer.asp"-->
<!-- +++++++++++++++++++++++ -->
</body>
</html>
<%
'------------ RUN AFTER PAGE RENDER -----------
Set objPMod = Nothing
Set objCrumbs = Nothing
'----------------------------------------------
%><!--#include file="common/globals_destructor.asp"-->
Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/trunk/Default.asp @ 13 – Rev
