Subversion Repositories DevTools

Rev

Rev 62 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 62 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          AdminProjectStates 		 	 |
 5 
'|			          AdminProjectStates 		 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_admin_projects_common.asp"-->
 16 
<!--#include file="common/_admin_projects_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
21 
<!--#include file="_access_control_admin_pages.asp"-->
 21 
<!--#include file="_access_control_admin_pages.asp"-->
22 
<%
 22 
<%
23 
'------------ VARIABLE DEFINITION -------------
 23 
'------------ VARIABLE DEFINITION -------------
24 
Dim rsQry
 24 
Dim rsQry
25 
Dim i
 25 
Dim i
26 
Dim LastRow
 26 
Dim LastRow
27 
Dim aStateCollector
 27 
Dim aStateCollector
28 
Dim parAction
 28 
Dim parAction
29 
Dim parState_id
 29 
Dim parState_id
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
32 
parAction = Request("action")
 32 
parAction = Request("action")
33 
parState_id = Request("state_id")
 33 
parState_id = Request("state_id")
34 
'------------ CONDITIONS ----------------------
 34 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------------
39 
Sub GetStates ( aStateCollector, nProj_id )
 39 
Sub GetStates ( aStateCollector, nProj_id )
40 
	Dim rsQry
 40 
	Dim rsQry
41
41
42 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
42 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
43
43
44 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )
 44 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )
45
45
46 
	If rsQry.RecordCount > 0 Then
 46 
	If rsQry.RecordCount > 0 Then
47 
		aStateCollector = rsQry.GetRows()
 47 
		aStateCollector = rsQry.GetRows()
48 
	Else
 48 
	Else
49 
		aStateCollector = NULL
 49 
		aStateCollector = NULL
50 
	End If
 50 
	End If
51
51
52 
	rsQry.Close
 52 
	rsQry.Close
53 
	Set rsQry = Nothing
 53 
	Set rsQry = Nothing
54 
	OraDatabase.Parameters.Remove "PROJ_ID"
 54 
	OraDatabase.Parameters.Remove "PROJ_ID"
55 
End Sub
 55 
End Sub
56 
'--------------------------------------------------------------------------------------------------------------------------------
 56 
'--------------------------------------------------------------------------------------------------------------------------------
57 
Sub RenderStateTypesCombo( nStateType )
57 
Sub RenderStateTypesCombo( nStateType )
58 
	Dim aStateTypes, LastState, i, Selected
 58 
	Dim aStateTypes, LastState, i, Selected
59
59
60 
	'--- Get State Types from collector
 60 
	'--- Get State Types from collector
61 
	aStateTypes = oEnumStateTypeNames.Keys
 61 
	aStateTypes = oEnumStateTypeNames.Keys
62
62
63
63
64 
	Response.write "<select name='state_type_enum' class='form_iname' >"
 64 
	Response.write "<select name='state_type_enum' class='form_iname' >"
65
65
66
66
67 
	LastState = UBound( aStateTypes )
 67 
	LastState = UBound( aStateTypes )
68
68
69 
	For i = 0 To LastState
 69 
	For i = 0 To LastState
70 
		Selected = ""
 70 
		Selected = ""
71 
		If aStateTypes(i) = nStateType Then Selected = "selected"
 71 
		If aStateTypes(i) = nStateType Then Selected = "selected"
72
72
73 
		Response.write "<option value='"& aStateTypes(i) &"' "& Selected &">"& oEnumStateTypeNames.Item ( aStateTypes(i) )  &"</option>"
 73 
		Response.write "<option value='"& aStateTypes(i) &"' "& Selected &">"& oEnumStateTypeNames.Item ( aStateTypes(i) )  &"</option>"
74
74
75 
	Next
 75 
	Next
76
76
77
77
78 
	Response.write "</select>"
 78 
	Response.write "</select>"
79
79
80 
End Sub
 80 
End Sub
81 
'--------------------------------------------------------------------------------------------------------------------------------
 81 
'--------------------------------------------------------------------------------------------------------------------------------
82 
Sub RenderStateSeqCombo( nProj_id, nState_seq )
82 
Sub RenderStateSeqCombo( nProj_id, nState_seq )
83 
	Dim rsQry, Selected
 83 
	Dim rsQry, Selected
84
84
85 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 85 
	OraDatabase.Parameters.Add "PROJ_ID", nProj_id,	ORAPARM_INPUT, ORATYPE_NUMBER
86
86
87 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )
 87 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("StateList.sql"), ORADYN_DEFAULT )
88
88
89
89
90 
	Response.write "<select name='state_seq' class='form_iname'>"
 90 
	Response.write "<select name='state_seq' class='form_iname'>"
91
91
92
92
93 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 93 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
94 
		Selected = ""
 94 
		Selected = ""
95 
		If CInt(nState_seq) = CInt(rsQry("state_seq")) Then Selected = "selected"
 95 
		If CInt(nState_seq) = CInt(rsQry("state_seq")) Then Selected = "selected"
96
96
97 
		Response.write "<option value='"& rsQry("state_seq") &"' "& Selected &">"& rsQry("state_seq") &"</option>"
 97 
		Response.write "<option value='"& rsQry("state_seq") &"' "& Selected &">"& rsQry("state_seq") &"</option>"
98
98
99 
		rsQry.MoveNext
 99 
		rsQry.MoveNext
100 
	WEnd
 100 
	WEnd
101
101
102
102
103 
	Response.write "</select>"
 103 
	Response.write "</select>"
104
104
105
105
106
106
107 
	rsQry.Close
 107 
	rsQry.Close
108 
	Set rsQry = Nothing
 108 
	Set rsQry = Nothing
109
109
110 
	OraDatabase.Parameters.Remove "PROJ_ID"
 110 
	OraDatabase.Parameters.Remove "PROJ_ID"
111 
End Sub
 111 
End Sub
112 
'--------------------------------------------------------------------------------------------------------------------------------
 112 
'--------------------------------------------------------------------------------------------------------------------------------
113 
Sub AddState ()
 113 
Sub AddState ()
114 
	On Error Resume Next
 114 
	On Error Resume Next
115
115
116 
	OraDatabase.Parameters.Add "STATE_NAME", 	  Request("state_name"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
 116 
	OraDatabase.Parameters.Add "STATE_NAME", 	  Request("state_name"),	ORAPARM_INPUT, ORATYPE_VARCHAR2
117 
	OraDatabase.Parameters.Add "PROJ_ID", 		  Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
117 
	OraDatabase.Parameters.Add "PROJ_ID", 		  Request("proj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
118 
	OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), 	ORAPARM_INPUT, ORATYPE_NUMBER
118 
	OraDatabase.Parameters.Add "STATE_TYPE_ENUM", Request("state_type_enum"), 	ORAPARM_INPUT, ORATYPE_NUMBER
119
119
120
120
121 
	objEH.TryORA ( OraSession )
 121 
	objEH.TryORA ( OraSession )
122
122
123 
	OraDatabase.ExecuteSQL _
 123 
	OraDatabase.ExecuteSQL _
124 
	"BEGIN   pk_State.Add_State ( :STATE_NAME, :STATE_TYPE_ENUM, :PROJ_ID );   END;"
 124 
	"BEGIN   pk_State.Add_State ( :STATE_NAME, :STATE_TYPE_ENUM, :PROJ_ID );   END;"
125
125
126 
	objEH.CatchORA ( OraSession )
 126 
	objEH.CatchORA ( OraSession )
127
127
128
128
129 
	OraDatabase.Parameters.Remove "STATE_NAME"
 129 
	OraDatabase.Parameters.Remove "STATE_NAME"
130 
	OraDatabase.Parameters.Remove "PROJ_ID"
 130 
	OraDatabase.Parameters.Remove "PROJ_ID"
131 
	OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"
 131 
	OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"
132
132
133 
End Sub
 133 
End Sub
134 
'--------------------------------------------------------------------------------------------------------------------------------
 134 
'--------------------------------------------------------------------------------------------------------------------------------
135 
Sub EditState ()
 135 
Sub EditState ()
136 
	On Error Resume Next
 136 
	On Error Resume Next
137
137
138 
	OraDatabase.Parameters.Add "STATE_ID", 			Request("state_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
138 
	OraDatabase.Parameters.Add "STATE_ID", 			Request("state_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
139 
	OraDatabase.Parameters.Add "STATE_NAME", 		Request("state_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 139 
	OraDatabase.Parameters.Add "STATE_NAME", 		Request("state_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
140 
	OraDatabase.Parameters.Add "STATE_SEQ", 		Request("state_seq"), 		ORAPARM_INPUT, ORATYPE_NUMBER
140 
	OraDatabase.Parameters.Add "STATE_SEQ", 		Request("state_seq"), 		ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "STATE_TYPE_ENUM", 	Request("state_type_enum"), 		ORAPARM_INPUT, ORATYPE_NUMBER
141 
	OraDatabase.Parameters.Add "STATE_TYPE_ENUM", 	Request("state_type_enum"), 		ORAPARM_INPUT, ORATYPE_NUMBER
142
142
143
143
144
144
145 
	objEH.TryORA ( OraSession )
 145 
	objEH.TryORA ( OraSession )
146
146
147 
	OraDatabase.ExecuteSQL _
 147 
	OraDatabase.ExecuteSQL _
148 
	"BEGIN   pk_State.Update_State ( :STATE_ID, :STATE_NAME, :STATE_SEQ, :STATE_TYPE_ENUM );   END;"
 148 
	"BEGIN   pk_State.Update_State ( :STATE_ID, :STATE_NAME, :STATE_SEQ, :STATE_TYPE_ENUM );   END;"
149
149
150 
	objEH.CatchORA ( OraSession )
 150 
	objEH.CatchORA ( OraSession )
151
151
152
152
153 
	OraDatabase.Parameters.Remove "STATE_ID"
 153 
	OraDatabase.Parameters.Remove "STATE_ID"
154 
	OraDatabase.Parameters.Remove "STATE_NAME"
 154 
	OraDatabase.Parameters.Remove "STATE_NAME"
155 
	OraDatabase.Parameters.Remove "STATE_SEQ"
 155 
	OraDatabase.Parameters.Remove "STATE_SEQ"
156 
	OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"
 156 
	OraDatabase.Parameters.Remove "STATE_TYPE_ENUM"
157
157
158 
End Sub
 158 
End Sub
159 
'--------------------------------------------------------------------------------------------------------------------------------
 159 
'--------------------------------------------------------------------------------------------------------------------------------
160 
%>
 160 
%>
161 
<%
 161 
<%
162 
'------------ RUN BEFORE PAGE RENDER ----------
 162 
'------------ RUN BEFORE PAGE RENDER ----------
163 
' --- Get Form details from DB ---
 163 
' --- Get Form details from DB ---
164 
 
 164 
 
165 
' --- Load Validation Rules ---
 165 
' --- Load Validation Rules ---
166 
Call objForm.LoadValidationRules ( Array("state_name"), OraDatabase )		' Load Validation Rules
 166 
Call objForm.LoadValidationRules ( Array("state_name"), OraDatabase )		' Load Validation Rules
167 
 
 167 
 
168 
' --- Enter Form Validation Rule Changes here... ----
 168 
' --- Enter Form Validation Rule Changes here... ----
169 
'----------------------------------------------------
 169 
'----------------------------------------------------
170 
 
 170 
 
171 
' --- RUN onPostBack ---
 171 
' --- RUN onPostBack ---
172 
If Request("doit") <> "" Then
 172 
If Request("doit") <> "" Then
173 
	If objForm.IsValidOnPostBack Then
 173 
	If objForm.IsValidOnPostBack Then
174 
		' --- Form is Valid ---
 174 
		' --- Form is Valid ---
175
175
176 
		Select Case Request("action")
 176 
		Select Case Request("action")
177 
			Case "new"
 177 
			Case "new"
178 
				Call AddState()
 178 
				Call AddState()
179 
			Case "edit"
 179 
			Case "edit"
180 
				Call EditState()
 180 
				Call EditState()
181
181
182 
		End Select
 182 
		End Select
183
183
184
184
185 
		If objEH.Finally Then
 185 
		If objEH.Finally Then
186 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
 186 
			Call OpenInWindow ( SCRIPT_NAME &"?"& objPMod.ComposeURL() )
187 
		End If
 187 
		End If
188
188
189 
	End If
 189 
	End If
190
190
191
191
192
192
193 
End If
 193 
End If
194 
 
 194 
 
195 
'----------------------------------------------
 195 
'----------------------------------------------
196 
%>
 196 
%>
197 
<html>
 197 
<html>
198 
<head>
 198 
<head>
199 
<title>Deployment Manager</title>
 199 
<title>Deployment Manager</title>
200 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 200 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
201 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 201 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
202 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 202 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
203 
<script language="JavaScript" src="scripts/common.js"></script>
 203 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
204 
</head>
 204 
<script language="JavaScript" src="scripts/common.js"></script>
205 
 
 205 
</head>
206 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.state_name.focus();"<%End If%>>
 206 
 
207 
<!-- HEADER ++++++++++++++++ -->
 207 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.state_name.focus();"<%End If%>>
208 
<!--#include file="_header.asp"-->
 208 
<!-- HEADER ++++++++++++++++ -->
209 
<!-- +++++++++++++++++++++++ -->
 209 
<!--#include file="_header.asp"-->
210 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
 210 
<!-- +++++++++++++++++++++++ -->
211 
<!--#include file="_main_menu_admin.asp"-->
 211 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
212 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 212 
<!--#include file="_main_menu_admin.asp"-->
213 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 213 
<!-- +++++++++++++++++++++++++++++++++++++ -->
214 
  <tr>
 214 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
215 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 215 
  <tr>
216 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
 216 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
217 
	<!--#include file="_admin_project_browser.asp"-->
 217 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
218 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
 218 
	<!--#include file="_admin_project_browser.asp"-->
219 
	</td>
 219 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
220 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 220 
	</td>
221 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 221 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
222 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 222 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
223 
      <tr>
 223 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
224 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
 224 
      <tr>
225 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
 225 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
226 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 226 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
227 
		<!--#include file="_tabs_definition.asp"-->
 227 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
228 
		<%
 228 
		<!--#include file="_tabs_definition.asp"-->
229 
		Set objTabControl = New TabControl
 229 
		<%
230 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
 230 
		Set objTabControl = New TabControl
231 
		objTabControl.TabStyle = "StyleWinXP"
 231 
		objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleWinXP/tab_style.html") ) ' Supply tab style definition
232 
		objTabControl.AddTabDefnition ( arrAdminProjectsTabDef )
 232 
		objTabControl.TabStyle = "StyleWinXP"
233 
		objTabControl.SelectByName ("States")
 233 
		objTabControl.AddTabDefnition ( arrAdminProjectsTabDef )
234 
		objTabControl.Render ()
 234 
		objTabControl.SelectByName ("States")
235 
		%>
 235 
		objTabControl.Render ()
236 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 236 
		%>
237 
		</td>
 237 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
238 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
 238 
		</td>
239 
        </tr>
 239 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
240 
      <tr>
 240 
        </tr>
241 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 241 
      <tr>
242 
        <td background="images/bg_bage_0.gif">
 242 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
243 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 243 
        <td background="images/bg_bage_0.gif">
244 
		<%
 244 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
245 
		'-- Define Action buttons on this tab
 245 
		<%
246 
		'aTabBtnsDef = Array("abtnAddBranch")
 246 
		'-- Define Action buttons on this tab
247
247 
		'aTabBtnsDef = Array("abtnAddBranch")
248 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 248
249
249 
		'Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
250 
		'objBtnControl.Render( aTabBtnsDef )
 250
251 
		%>
 251 
		'objBtnControl.Render( aTabBtnsDef )
252 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 252 
		%>
253 
		</td>
 253 
		<!-- +++++++++++++++++++++++++++++++++++ -->
254 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 254 
		</td>
255 
          <tr>
 255 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
256 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
 256 
          <tr>
257 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 257 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
258 
          </tr>
 258 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
259 
        </table></td>
 259 
          </tr>
260 
        </tr>
 260 
        </table></td>
261 
      <tr>
 261 
        </tr>
262 
        <td>&nbsp;</td>
 262 
      <tr>
263 
        <td><br><br>
 263 
        <td>&nbsp;</td>
264 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 264 
        <td><br><br>
265 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 265 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
266 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 266 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
267 
		  <%
 267 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
268 
		  Call GetStates ( aStateCollector, parProj_id )
 268 
		  <%
269
269 
		  Call GetStates ( aStateCollector, parProj_id )
270
270
271 
		  %>
 271
272 
            <tr>
 272 
		  %>
273 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 273 
            <tr>
274 
                <tr>
 274 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
275 
                  <td width="1" background="images/bg_bage_0.gif"></td>
 275 
                <tr>
276 
                  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Sequence</td>
 276 
                  <td width="1" background="images/bg_bage_0.gif"></td>
277 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Name</td>
 277 
                  <td width="1%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Sequence</td>
278 
				  <td width="80%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Type</td>
 278 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Name</td>
279 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
 279 
				  <td width="80%" background="images/bg_bage_0.gif" class="body_col" nowrap>State Type</td>
280 
                </tr>
 280 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
281 
				<%
 281 
                </tr>
282 
				If NOT IsNull(aStateCollector) Then
 282 
				<%
283 
					LastRow = Ubound( aStateCollector, 2 )
 283 
				If NOT IsNull(aStateCollector) Then
284 
					For i = 0 To LastRow
 284 
					LastRow = Ubound( aStateCollector, 2 )
285 
					%>
 285 
					For i = 0 To LastRow
286 
					<%If parAction = "" Then%>
 286 
					%>
287 
					<!-- NORMAL ROW +++++++++++++++++++ -->
 287 
					<%If parAction = "" Then%>
288 
	                <tr>
 288 
					<!-- NORMAL ROW +++++++++++++++++++ -->
289 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
 289 
	                <tr>
290 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>
 290 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
291 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>
 291 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>
292 
					  <td bgcolor="#FFFFFF" class="body_row"><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>
 292 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>
293 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveState.asp?rfile=<%=SCRIPT_NAME%>&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aStateCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
 293 
					  <td bgcolor="#FFFFFF" class="body_row"><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>
294 
	                </tr>
 294 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>"><%=LIMG_EDIT%></a><a href="_RemoveState.asp?rfile=<%=SCRIPT_NAME%>&state_id=<%=aStateCollector(0, i)%>&<%=objPMod.ComposeURL()%>" onClick="return confirmAction('Remove \'<%=aStateCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
295 
					<!-- +++++++++++++++++++++++++++++++++ -->
 295 
	                </tr>
296
296 
					<!-- +++++++++++++++++++++++++++++++++ -->
297 
					<%Else%>
 297
298
298 
					<%Else%>
299 
						<%If CStr(aStateCollector(0, i)) <> parState_id Then%>
 299
300 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
 300 
						<%If CStr(aStateCollector(0, i)) <> parState_id Then%>
301 
						<tr>
 301 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
302 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
 302 
						<tr>
303 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>
 303 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
304 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>
 304 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(2, i)%></td>
305 
						  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>
 305 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aStateCollector(1, i)%></td>
306 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
 306 
						  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=oEnumStateTypeNames.Item( aStateCollector(3, i) )%></td>
307 
		                </tr>
 307 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
308 
						<!-- +++++++++++++++++++++++++++++++++ -->
 308 
		                </tr>
309 
						<%Else%>
 309 
						<!-- +++++++++++++++++++++++++++++++++ -->
310 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
 310 
						<%Else%>
311 
						<input type="hidden" name="action" value="edit">
 311 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
312 
						<tr>
 312 
						<input type="hidden" name="action" value="edit">
313 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 313 
						<tr>
314 
						  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateSeqCombo( parProj_id, aStateCollector(2, i) ) %></td>
 314 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
315 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
 315 
						  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateSeqCombo( parProj_id, aStateCollector(2, i) ) %></td>
316 
						  <input type="text" name="state_name" class='form_iname' value="<%=objForm.GetValue( "state_name", aStateCollector(1, i) )%>">
 316 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
317 
						  <%=objForm.Validate ("state_name")%>
 317 
						  <input type="text" name="state_name" class='form_iname' value="<%=objForm.GetValue( "state_name", aStateCollector(1, i) )%>">
318 
						  </td>
 318 
						  <%=objForm.Validate ("state_name")%>
319 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( aStateCollector(3, i) )%></td>
 319 
						  </td>
320 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
 320 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( aStateCollector(3, i) )%></td>
321 
		                </tr>
 321 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
322 
						<!-- +++++++++++++++++++++++++++++++++ -->
 322 
		                </tr>
323 
						<%End If%>
 323 
						<!-- +++++++++++++++++++++++++++++++++ -->
324 
					<%End If%>
 324 
						<%End If%>
325
325 
					<%End If%>
326
326
327 
				<%
 327
328 
					Next
 328 
				<%
329
329 
					Next
330 
				End If
 330
331 
				%>
 331 
				End If
332
332 
				%>
333
333
334 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
 334
335 
				<%If parAction = "new" Then%>
 335 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
336
336 
				<%If parAction = "new" Then%>
337 
				<input type="hidden" name="action" value="new">
 337
338 
				<tr>
 338 
				<input type="hidden" name="action" value="new">
339 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 339 
				<tr>
340 
				  <td background="images/bg_note.gif" class="body_row" valign="top"></td>
 340 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
341 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
 341 
				  <td background="images/bg_note.gif" class="body_row" valign="top"></td>
342 
				  <input type="text" name="state_name" class='form_iname' value="<%=Request("state_name")%>">
 342 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
343 
				  <%=objForm.Validate ("state_name")%>
 343 
				  <input type="text" name="state_name" class='form_iname' value="<%=Request("state_name")%>">
344 
				  </td>
 344 
				  <%=objForm.Validate ("state_name")%>
345 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( NULL )%></td>
 345 
				  </td>
346 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
 346 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderStateTypesCombo( NULL )%></td>
347 
                </tr>
 347 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>?<%=objPMod.ComposeURL()%>" ><%=LIMG_ROW_CANCEL%></a></td>
348 
				<%End If%>
 348 
                </tr>
349 
				<!-- +++++++++++++++++++++++++++++++++ -->
 349 
				<%End If%>
350
350 
				<!-- +++++++++++++++++++++++++++++++++ -->
351
351
352 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
 352
353 
				<%If parAction = "" Then%>
 353 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
354 
				<tr>
 354 
				<%If parAction = "" Then%>
355 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
 355 
				<tr>
356 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 356 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new&<%=objPMod.ComposeURL()%>"><%=LIMG_NEW_ENTRY%></a></td>
357 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 357 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
358 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 358 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
359 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
 359 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
360 
                </tr>
 360 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
361 
				<%End If%>
 361 
                </tr>
362 
				<!-- +++++++++++++++++++++++++++++++++ -->
 362 
				<%End If%>
363
363 
				<!-- +++++++++++++++++++++++++++++++++ -->
364 
              </table></td>
 364
365 
            </tr>
 365 
              </table></td>
366 
		  <%=objPMod.ComposeHiddenTags()%>
 366 
            </tr>
367 
		  <input type="hidden" name="state_id" value="<%=parState_id%>">
 367 
		  <%=objPMod.ComposeHiddenTags()%>
368 
		  <input type="hidden" name="doit" value="true">
 368 
		  <input type="hidden" name="state_id" value="<%=parState_id%>">
369 
		  </form>
 369 
		  <input type="hidden" name="doit" value="true">
370 
          </table>
 370 
		  </form>
371 
          </td>
 371 
          </table>
372 
        <td valign="top"></td>
 372 
          </td>
373 
        </tr>
 373 
        <td valign="top"></td>
374 
    </table>
 374 
        </tr>
375 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 375 
    </table>
376 
	</td>
 376 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
377 
  </tr>
 377 
	</td>
378 
  <tr>
 378 
  </tr>
379 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
 379 
  <tr>
380 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 380 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
381 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 381 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
382 
  </tr>
 382 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
383 
  <tr>
 383 
  </tr>
384 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 384 
  <tr>
385 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 385 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
386 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 386 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
387 
  </tr>
 387 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
388 
</table>
 388 
  </tr>
389 
<!-- FOOTER ++++++++++++++++ -->
 389 
</table>
390 
<!--#include file="_footer.asp"-->
 390 
<!-- FOOTER ++++++++++++++++ -->
391 
<!-- +++++++++++++++++++++++ -->
 391 
<!--#include file="_footer.asp"-->
392 
</body>
 392 
<!-- +++++++++++++++++++++++ -->
393 
</html>
 393 
</body>
394 
<%
 394 
</html>
395 
'------------ RUN AFTER PAGE RENDER -----------
 395 
<%
396 
Set objPMod = Nothing
 396 
'------------ RUN AFTER PAGE RENDER -----------
397 
Set objTabControl = Nothing
 397 
Set objPMod = Nothing
398 
'----------------------------------------------
 398 
Set objTabControl = Nothing
- 
 
 399 
'----------------------------------------------
399 
%><!--#include file="common/globals_destructor.asp"-->
 400 
%><!--#include file="common/globals_destructor.asp"-->
400 

            401