Subversion Repositories DevTools

Rev

Rev 6181 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|                  ADMIN Page                       |
6
'|  admin_gbe_buildstandard.asp
7
'|                                                   |
8
'=====================================================
9
%>
10
<%
11
Option explicit
12
' Good idea to set when using redirect
13
Response.Expires = 0    ' always load the page, dont store
14
%>
15
<!--#include file="common/conf.asp"-->
16
<!--#include file="common/globals.asp"-->
17
<!--#include file="common/formating.asp"-->
18
<!--#include file="common/qstr.asp"-->
19
<!--#include file="common/common_subs.asp"-->
20
<!--#include file="sec/Crypt.asp"-->
21
<!--#include file="common/_form_window_common.asp"-->
22
<!--#include file="_action_buttons.asp"-->
23
 
24
<!--#include file="class/classActionButtonControl.asp"-->
25
 
26
<%
27
'------------ ACCESS CONTROL ------------------
28
%>
6181 dpurdie 29
<!--#include file="_access_control_login_optional.asp"-->
5357 dpurdie 30
<!--#include file="_access_control_general.asp"-->
31
<%
32
'------------ Variable Definition -------------
33
Dim objBtnControl
34
'------------ Constants Declaration -----------
35
'------------ Variable Init -------------------
36
Set objBtnControl = New ActionButtonControl
37
'----------------------------------------------
38
%>
39
 
40
 
41
 
42
<%
43
' Page Access Condition
44
If NOT canActionControl("ConfigureBuildService") Then
5957 dpurdie 45
    Call Destroy_All_Objects
5357 dpurdie 46
    Response.Redirect("message.asp?msg=401-9")
47
End If
48
%>
49
<html>
50
<head>
51
 
52
<title>GBE Build Standard Addendum</title>
53
<link rel="shortcut icon" href="<%=FavIcon%>"/>
54
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
55
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
6579 dpurdie 56
<link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
57
<link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
58
<script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
5983 dpurdie 59
<!--#include file="_jquery_includes.asp"-->
5357 dpurdie 60
<!-- DROPDOWN MENUS -->
61
<!--#include file="_menu_def.asp"-->
6579 dpurdie 62
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
5357 dpurdie 63
</head>
64
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
65
<!-- HEADER -->
66
<!--#include file="_header.asp"-->
67
  <%
68
  '-- FROM START ---------------------------------------------------------------------------------------------------------
69
  objFormComponent.FormName = "GBE_BUILDSTANDARD"
5590 dpurdie 70
  objFormComponent.FormClass = "form_tight"
5357 dpurdie 71
  objFormComponent.Action = ScriptName
72
  objFormComponent.OnSubmit = "ShowProgress();"
73
  Call objFormComponent.FormStart()
74
  %>   
75
  <div class="div_table">
76
    <table class="center_table" >
77
      <tr>
78
        <td background="images/bg_bage_0a.gif">
79
            <div align="center" class=" body_col">Build Standards</div>
80
            <table width="100%"  border="0" cellspacing="1" cellpadding="2">
81
            <tr>
82
            <!-- BSA DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
83
            <td background="images/bg_bage_0.gif" align="center"></td>
84
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Id</td>
85
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Build Standard</td>
86
            <td align="left" nowrap background="images/bg_table_col.gif" class="body_col">Sub Type</td>
87
            </tr>
88
 
89
          <%
90
          ' Load some action buttons
91
          Call objBtnControl.LoadActionButtons ( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), OraDatabase )
92
          objBtnControl.ButtonSpacer = 1
93
 
94
          Dim bsa_id,rsQry
95
 
96
          Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM BUILD_STANDARDS BS, BUILD_STANDARDS_ADDENDUM BSA WHERE BSA.BS_ID=BS.BS_ID(+) ORDER BY BSA.BS_ID, BSA_ID", ORADYN_DEFAULT )
97
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
98
              bsa_id = rsQry("bsa_id")
99
              %>
100
              <tr>  
101
                <td background="images/bg_bage_0.gif"></td>
102
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=bsa_id%></td>
103
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bs_name")%></td>
104
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%=rsQry("bsa_name")%></td>
105
                <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call objBtnControl.Render( Array("btnEditGBE_BuildStandard", "btnDeleteGBE_BuildStandard"), objAccessControl )%></td>
106
              </tr> 
107
              <%
108
              rsQry.MoveNext()
109
          Wend
110
          rsQry.Close()
111
          Set rsQry = nothing
112
          %>
113
 
114
        <tr>
115
            <td background="images/bg_bage_0.gif"></td>
116
            <td bgcolor="#FFFFFF" class="body_row" nowrap colspan=3></td>
5983 dpurdie 117
            <td bgcolor="#FFFFFF" class="body_row" nowrap><%Call Action_Buttons("Add GBE_BUILDSTANDARD")%></td>
5357 dpurdie 118
        </tr>
119
 
120
    </table>
121
    <%=objPMod.ComposeHiddenTags()%>
122
    <input type="hidden" name="action" value="true">
123
    <%Call objFormComponent.FormEnd()%>
124
    </table>
125
    </div>
5957 dpurdie 126
<!-- FOOTER -->
127
<!--#include file="_footer.asp"-->
5357 dpurdie 128
</body>
129
</html>