Subversion Repositories DevTools

Rev

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

Rev 27 Rev 5355
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          AdminProductionManagerList 	 |
 5 
'|			          AdminProductionManagerList 	 |
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 aProjectCollector
 27 
Dim aProjectCollector
28 
Dim parAction
 28 
Dim parAction
29 
Dim parMyProj_id
 29 
Dim parMyProj_id
30 
'------------ CONSTANTS DECLARATION -----------
 30 
'------------ CONSTANTS DECLARATION -----------
31 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
32 
parAction = Request("action")
 32 
parAction = Request("action")
33 
parMyProj_id = Request("myproj_id")
 33 
parMyProj_id = Request("myproj_id")
34 
'------------ CONDITIONS ----------------------
 34 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
 35 
'----------------------------------------------
36 
%>
 36 
%>
37 
<%
 37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------------
 38 
'--------------------------------------------------------------------------------------------------------------------------------
39 
Sub GetProjects ( aProjectCollector, nProj_id )
 39 
Sub GetProjects ( aProjectCollector, nProj_id )
40 
	Dim rsQry
 40 
	Dim rsQry
41
41
42 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProjectList.sql"), ORADYN_DEFAULT )
 42 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("AdminProjectList.sql"), ORADYN_DEFAULT )
43
43
44 
	If rsQry.RecordCount > 0 Then
 44 
	If rsQry.RecordCount > 0 Then
45 
		aProjectCollector = rsQry.GetRows()
 45 
		aProjectCollector = rsQry.GetRows()
46 
	Else
 46 
	Else
47 
		aProjectCollector = NULL
 47 
		aProjectCollector = NULL
48 
	End If
 48 
	End If
49
49
50 
	rsQry.Close
 50 
	rsQry.Close
51 
	Set rsQry = Nothing
 51 
	Set rsQry = Nothing
52 
End Sub
 52 
End Sub
53 
'--------------------------------------------------------------------------------------------------------------------------------
 53 
'--------------------------------------------------------------------------------------------------------------------------------
54 
Sub RenderRMProjectCombo( nRMProj_fk )
54 
Sub RenderRMProjectCombo( nRMProj_fk )
55 
	Dim rsQry
 55 
	Dim rsQry
56
56
57 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK", nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
 57 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK", nRMProj_fk,	ORAPARM_INPUT, ORATYPE_NUMBER
58
58
59 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMProjectList.sql"), ORADYN_DEFAULT )
 59 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("RMProjectList.sql"), ORADYN_DEFAULT )
60
60
61
61
62 
	Response.write "<select name='rm_projects_fk' class='form_iname'>"
 62 
	Response.write "<select name='rm_projects_fk' class='form_iname'>"
63 
	Response.write "<option value=''></option>"
 63 
	Response.write "<option value=''></option>"
64
64
65
65
66 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 66 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
67 
		Response.write "<option value='"& rsQry("proj_id") &"' "& rsQry("selected") &">"& rsQry("proj_name").Value &"</option>"
 67 
		Response.write "<option value='"& rsQry("proj_id") &"' "& rsQry("selected") &">"& rsQry("proj_name").Value &"</option>"
68
68
69 
		rsQry.MoveNext
 69 
		rsQry.MoveNext
70 
	WEnd
 70 
	WEnd
71
71
72
72
73 
	Response.write "</select>"
 73 
	Response.write "</select>"
74
74
75
75
76
76
77 
	rsQry.Close
 77 
	rsQry.Close
78 
	Set rsQry = Nothing
 78 
	Set rsQry = Nothing
79
79
80 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 80 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
81 
End Sub
 81 
End Sub
82 
'--------------------------------------------------------------------------------------------------------------------------------
 82 
'--------------------------------------------------------------------------------------------------------------------------------
83 
Sub AddProject ()
 83 
Sub AddProject ()
84 
	On Error Resume Next
 84 
	On Error Resume Next
85
85
86 
	OraDatabase.Parameters.Add "PROJ_NAME", 	Request("proj_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 86 
	OraDatabase.Parameters.Add "PROJ_NAME", 	Request("proj_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
87 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",Request("rm_projects_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
87 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",Request("rm_projects_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
88
88
89
89
90 
	objEH.TryORA ( OraSession )
 90 
	objEH.TryORA ( OraSession )
91
91
92 
	OraDatabase.ExecuteSQL _
 92 
	OraDatabase.ExecuteSQL _
93 
	"BEGIN   pk_Project.Add_Project ( :PROJ_NAME, :RM_PROJECTS_FK );   END;"
 93 
	"BEGIN   pk_Project.Add_Project ( :PROJ_NAME, :RM_PROJECTS_FK );   END;"
94
94
95 
	objEH.CatchORA ( OraSession )
 95 
	objEH.CatchORA ( OraSession )
96
96
97
97
98 
	OraDatabase.Parameters.Remove "PROJ_NAME"
 98 
	OraDatabase.Parameters.Remove "PROJ_NAME"
99 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 99 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
100
100
101 
End Sub
 101 
End Sub
102 
'--------------------------------------------------------------------------------------------------------------------------------
 102 
'--------------------------------------------------------------------------------------------------------------------------------
103 
Sub EditProject ()
 103 
Sub EditProject ()
104 
	On Error Resume Next
 104 
	On Error Resume Next
105
105
106 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("myproj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
106 
	OraDatabase.Parameters.Add "PROJ_ID", 			Request("myproj_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
107 
	OraDatabase.Parameters.Add "PROJ_NAME", 		Request("proj_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
 107 
	OraDatabase.Parameters.Add "PROJ_NAME", 		Request("proj_name"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
108 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",	Request("rm_projects_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
108 
	OraDatabase.Parameters.Add "RM_PROJECTS_FK",	Request("rm_projects_fk"), 	ORAPARM_INPUT, ORATYPE_NUMBER
109
109
110
110
111 
	objEH.TryORA ( OraSession )
 111 
	objEH.TryORA ( OraSession )
112
112
113 
	OraDatabase.ExecuteSQL _
 113 
	OraDatabase.ExecuteSQL _
114 
	"BEGIN   pk_Project.Update_Project ( :PROJ_ID, :PROJ_NAME, :RM_PROJECTS_FK );   END;"
 114 
	"BEGIN   pk_Project.Update_Project ( :PROJ_ID, :PROJ_NAME, :RM_PROJECTS_FK );   END;"
115
115
116 
	objEH.CatchORA ( OraSession )
 116 
	objEH.CatchORA ( OraSession )
117
117
118
118
119 
	OraDatabase.Parameters.Remove "PROJ_ID"
 119 
	OraDatabase.Parameters.Remove "PROJ_ID"
120 
	OraDatabase.Parameters.Remove "PROJ_NAME"
 120 
	OraDatabase.Parameters.Remove "PROJ_NAME"
121 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
 121 
	OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
122
122
123 
End Sub
 123 
End Sub
124 
'--------------------------------------------------------------------------------------------------------------------------------
 124 
'--------------------------------------------------------------------------------------------------------------------------------
125 
%>
 125 
%>
126 
<%
 126 
<%
127 
'------------ RUN BEFORE PAGE RENDER ----------
 127 
'------------ RUN BEFORE PAGE RENDER ----------
128 
' --- Get Form details from DB ---
 128 
' --- Get Form details from DB ---
129 
 
 129 
 
130 
' --- Load Validation Rules ---
 130 
' --- Load Validation Rules ---
131 
Call objForm.LoadValidationRules ( Array("proj_name"), OraDatabase )		' Load Validation Rules
 131 
Call objForm.LoadValidationRules ( Array("proj_name"), OraDatabase )		' Load Validation Rules
132 
 
 132 
 
133 
' --- Enter Form Validation Rule Changes here... ----
 133 
' --- Enter Form Validation Rule Changes here... ----
134 
'----------------------------------------------------
 134 
'----------------------------------------------------
135 
 
 135 
 
136 
' --- RUN onPostBack ---
 136 
' --- RUN onPostBack ---
137 
If Request("doit") <> "" Then
 137 
If Request("doit") <> "" Then
138 
	If objForm.IsValidOnPostBack Then
 138 
	If objForm.IsValidOnPostBack Then
139 
		' --- Form is Valid ---
 139 
		' --- Form is Valid ---
140
140
141 
		Select Case Request("action")
 141 
		Select Case Request("action")
142 
			Case "new"
 142 
			Case "new"
143 
				Call AddProject()
 143 
				Call AddProject()
144 
			Case "edit"
 144 
			Case "edit"
145 
				Call EditProject()
 145 
				Call EditProject()
146
146
147 
		End Select
 147 
		End Select
148
148
149
149
150 
		If objEH.Finally Then
 150 
		If objEH.Finally Then
151 
			Call OpenInWindow ( SCRIPT_NAME  )
 151 
			Call OpenInWindow ( SCRIPT_NAME  )
152 
		End If
 152 
		End If
153
153
154 
	End If
 154 
	End If
155
155
156
156
157
157
158 
End If
 158 
End If
159 
 
 159 
 
160 
'----------------------------------------------
 160 
'----------------------------------------------
161 
%>
 161 
%>
162 
<html>
 162 
<html>
163 
<head>
 163 
<head>
164 
<title>Deployment Manager</title>
 164 
<title>Deployment Manager</title>
165 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 165 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
166 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 166 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
167 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 167 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
168 
<script language="JavaScript" src="scripts/common.js"></script>
 168 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
169 
</head>
 169 
<script language="JavaScript" src="scripts/common.js"></script>
170 
 
 170 
</head>
171 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.proj_name.focus();"<%End If%>>
 171 
 
172 
<!-- HEADER ++++++++++++++++ -->
 172 
<body leftmargin="0" topmargin="0" <%If parAction <> "" Then%>onLoad="FormName.proj_name.focus();"<%End If%>>
173 
<!--#include file="_header.asp"-->
 173 
<!-- HEADER ++++++++++++++++ -->
174 
<!-- +++++++++++++++++++++++ -->
 174 
<!--#include file="_header.asp"-->
175 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
 175 
<!-- +++++++++++++++++++++++ -->
176 
<!--#include file="_main_menu_admin.asp"-->
 176 
<!-- MAIN MENU  ++++++++++++++++++++++++++ -->
177 
<!-- +++++++++++++++++++++++++++++++++++++ -->
 177 
<!--#include file="_main_menu_admin.asp"-->
178 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 178 
<!-- +++++++++++++++++++++++++++++++++++++ -->
179 
  <tr>
 179 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
180 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
 180 
  <tr>
181 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
 181 
    <td width="1%" valign="top" background="images/bg_bage_0.gif">
182 
	<!--#include file="_admin_project_browser.asp"-->
 182 
	<!-- ADMIN BROWSER ++++++++++++++++++++++ -->
183 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
 183 
	<!--#include file="_admin_project_browser.asp"-->
184 
	</td>
 184 
    <!-- END OF ADMIN BROWSER +++++++++++++++ -->
185 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
 185 
	</td>
186 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
 186 
    <td width="1" background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="600"></td>
187 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
 187 
    <td width="100%" valign="top" bgcolor="#FFFFFF">
188 
      <tr>
 188 
	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
189 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
 189 
      <tr>
190 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
 190 
        <td width="1%" valign="top" background="images/bg_darkbage.gif"></td>
191 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
 191 
        <td width="100%" valign="bottom" background="images/bg_darkbage.gif">
192
192 
		<!-- TAB CONTROLS ++++++++++++++++++++++ -->
193 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
 193
194 
		</td>
 194 
		<!-- END OF TAB CONTROLS +++++++++++++++ -->
195 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
 195 
		</td>
196 
        </tr>
 196 
        <td width="1%" background="images/bg_darkbage.gif"><img src="images/img_spanner.gif" width="190" height="55"></td>
197 
      <tr>
 197 
        </tr>
198 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
 198 
      <tr>
199 
        <td background="images/bg_bage_0.gif">
 199 
        <td background="images/bg_bage_0.gif"><img src="images/spacer.gif" width="30" height="10"></td>
200 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 200 
        <td background="images/bg_bage_0.gif">
201 
 
 201 
		<!-- BUTTONS CONTROL +++++++++++++++++++ -->
202 
		<!-- +++++++++++++++++++++++++++++++++++ -->
 202 
 
203 
		</td>
 203 
		<!-- +++++++++++++++++++++++++++++++++++ -->
204 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 204 
		</td>
205 
          <tr>
 205 
        <td background="images/bg_darkbage.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
206 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
 206 
          <tr>
207 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
 207 
            <td width="100%" background="images/bg_bage_0.gif">&nbsp;</td>
208 
          </tr>
 208 
            <td width="1"><img src="images/p_bar_corrner.gif" width="17" height="42"></td>
209 
        </table></td>
 209 
          </tr>
210 
        </tr>
 210 
        </table></td>
211 
      <tr>
 211 
        </tr>
212 
        <td>&nbsp;</td>
 212 
      <tr>
213 
        <td><br><br>
 213 
        <td>&nbsp;</td>
214 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 214 
        <td><br><br>
215 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 215 
		  <!-- PAGE DETAILS +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
216 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
 216 
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
217 
		  <%
 217 
		  <form name="FormName" method="post" action="<%=SCRIPT_NAME%>" onSubmit="ShowProgress();">
218 
		  Call GetProjects ( aProjectCollector, parMyProj_id )
 218 
		  <%
219
219 
		  Call GetProjects ( aProjectCollector, parMyProj_id )
220
220
221 
		  %>
 221
222 
            <tr>
 222 
		  %>
223 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
 223 
            <tr>
224 
                <tr>
 224 
              <td background="images/bg_bage_0a.gif"><table width="100%"  border="0" cellspacing="1" cellpadding="2">
225 
                  <td width="1" background="images/bg_bage_0.gif"></td>
 225 
                <tr>
226 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Project Name </td>
 226 
                  <td width="1" background="images/bg_bage_0.gif"></td>
227 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Manager Project </td>
 227 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Project Name </td>
228 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap></td>
 228 
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col" nowrap>Release Manager Project </td>
229 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td>
 229 
				  <td width="60%" background="images/bg_bage_0.gif" class="body_col" nowrap></td>
230 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Download</td>
 230 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Hide</td>
231 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
 231 
				  <td width="1" background="images/bg_bage_0.gif" class="body_col" nowrap>Download</td>
232 
                </tr>
 232 
                  <td background="images/bg_bage_0.gif">&nbsp;</td>
233 
				<%
 233 
                </tr>
234 
				If NOT IsNull(aProjectCollector) Then
 234 
				<%
235 
					LastRow = Ubound( aProjectCollector, 2 )
 235 
				If NOT IsNull(aProjectCollector) Then
236 
					For i = 0 To LastRow
 236 
					LastRow = Ubound( aProjectCollector, 2 )
237 
						If InStr(aProjectCollector(1, i), "PRODUCTION") <> 0 Then
 237 
					For i = 0 To LastRow
238 
					%>
 238 
						If InStr(aProjectCollector(1, i), "PRODUCTION") <> 0 Then
239 
					<%If parAction = "" Then%>
 239 
					%>
240 
					<!-- NORMAL ROW +++++++++++++++++++ -->
 240 
					<%If parAction = "" Then%>
241 
	                <tr>
 241 
					<!-- NORMAL ROW +++++++++++++++++++ -->
242 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
 242 
	                <tr>
243 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(1, i)%></td>
 243 
	                  <td background="images/bg_bage_0.gif" align="center"></td>
244 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(3, i)%></td>
 244 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(1, i)%></td>
245 
					  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 245 
	                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(3, i)%></td>
246 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideProject.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="ShowProgress();"><%=GetTick ( aProjectCollector(4, i) )%></a></td>
 246 
					  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
247 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideDownload.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="ShowProgress();"><%=GetTick ( aProjectCollector(5, i) )%></a></td>
 247 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideProject.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="ShowProgress();"><%=GetTick ( aProjectCollector(4, i) )%></a></td>
248 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&myproj_id=<%=aProjectCollector(0, i)%>"><%=LIMG_EDIT%></a><a href="_RemoveProject.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="return confirmAction('Remove \'<%=aProjectCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
 248 
					  <td bgcolor="#FFFFFF" align="center" background="images/bg_bage_0.gif"><a href="_ShowHideDownload.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="ShowProgress();"><%=GetTick ( aProjectCollector(5, i) )%></a></td>
249 
	                </tr>
 249 
	                  <td align="center" nowrap background="images/bg_bage_0.gif"><a href="<%=SCRIPT_NAME%>?action=edit&myproj_id=<%=aProjectCollector(0, i)%>"><%=LIMG_EDIT%></a><a href="_RemoveProject.asp?rfile=<%=SCRIPT_NAME%>&myproj_id=<%=aProjectCollector(0, i)%>" onClick="return confirmAction('Remove \'<%=aProjectCollector(1, i)%>\' from this list?');"><%=LIMG_REMOVE%></a></td>
250 
					<!-- +++++++++++++++++++++++++++++++++ -->
 250 
	                </tr>
251
251 
					<!-- +++++++++++++++++++++++++++++++++ -->
252 
					<%Else%>
 252
253
253 
					<%Else%>
254 
						<%If CStr(aProjectCollector(0, i)) <> parMyProj_id Then%>
 254
255 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
 255 
						<%If CStr(aProjectCollector(0, i)) <> parMyProj_id Then%>
256 
						<tr>
 256 
						<!-- JUST DATA ROW +++++++++++++++++++ -->
257 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
 257 
						<tr>
258 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(1, i)%></td>
 258 
		                  <td background="images/bg_bage_0.gif" align="center"></td>
259 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(3, i)%></td>
 259 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(1, i)%></td>
260 
						  <td align="center" bgcolor="#FFFFFF" nowrap>&nbsp;</td>
 260 
		                  <td bgcolor="#FFFFFF" class="body_row" nowrap><%=aProjectCollector(3, i)%></td>
261 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aProjectCollector(4, i) )%></td>
 261 
						  <td align="center" bgcolor="#FFFFFF" nowrap>&nbsp;</td>
262 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aProjectCollector(5, i) )%></td>
 262 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aProjectCollector(4, i) )%></td>
263 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
 263 
						  <td align="center" bgcolor="#FFFFFF" nowrap background="images/bg_bage_0.gif"><%=GetTick ( aProjectCollector(5, i) )%></td>
264 
		                </tr>
 264 
		                  <td align="center" nowrap background="images/bg_bage_0.gif">&nbsp;</td>
265 
						<!-- +++++++++++++++++++++++++++++++++ -->
 265 
		                </tr>
266 
						<%Else%>
 266 
						<!-- +++++++++++++++++++++++++++++++++ -->
267 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
 267 
						<%Else%>
268 
						<input type="hidden" name="action" value="edit">
 268 
						<!-- EDIT ROW ++++++++++++++++++++++++ -->
269 
						<tr>
 269 
						<input type="hidden" name="action" value="edit">
270 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 270 
						<tr>
271 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
 271 
		                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
272 
						  <input type="text" name="proj_name" class='form_iname' value="<%=objForm.GetValue( "proj_name", aProjectCollector(1, i) )%>">
 272 
		                  <td background="images/bg_note.gif" class="body_row" valign="top">
273 
						  <%=objForm.Validate ("proj_name")%>
 273 
						  <input type="text" name="proj_name" class='form_iname' value="<%=objForm.GetValue( "proj_name", aProjectCollector(1, i) )%>">
274 
						  </td>
 274 
						  <%=objForm.Validate ("proj_name")%>
275 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", aProjectCollector(2, i) ) )%></td>
 275 
						  </td>
276 
						  <td background="images/bg_note.gif">&nbsp;</td>
 276 
		                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", aProjectCollector(2, i) ) )%></td>
277 
						  <td background="images/bg_note.gif">&nbsp;</td>
 277 
						  <td background="images/bg_note.gif">&nbsp;</td>
278 
						  <td background="images/bg_note.gif">&nbsp;</td>
 278 
						  <td background="images/bg_note.gif">&nbsp;</td>
279 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>" ><%=LIMG_ROW_CANCEL%></a></td>
 279 
						  <td background="images/bg_note.gif">&nbsp;</td>
280 
		                </tr>
 280 
		                  <td background="images/bg_note.gif" align="center" valign="top" nowrap><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>" ><%=LIMG_ROW_CANCEL%></a></td>
281 
						<!-- +++++++++++++++++++++++++++++++++ -->
 281 
		                </tr>
282 
						<%End If%>
 282 
						<!-- +++++++++++++++++++++++++++++++++ -->
283 
					<%End If%>
 283 
						<%End If%>
284
284 
					<%End If%>
285
285
286 
				<%
 286
287 
						End If
 287 
				<%
288 
					Next
 288 
						End If
289
289 
					Next
290 
				End If
 290
291 
				%>
 291 
				End If
292
292 
				%>
293
293
294 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
 294
295 
				<%If parAction = "new" Then%>
 295 
				<!-- NEW ENTRY ROW FORM ++++++++++++++ -->
296
296 
				<%If parAction = "new" Then%>
297 
				<input type="hidden" name="action" value="new">
 297
298 
				<tr>
 298 
				<input type="hidden" name="action" value="new">
299 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
 299 
				<tr>
300 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
 300 
                  <td background="images/bg_bage_0.gif" align="center" valign="top"><%=LIMG_POINTER%></td>
301 
				  <input type="text" name="proj_name" class='form_iname' value="<%=Request("proj_name")%>">
 301 
                  <td background="images/bg_note.gif" class="body_row" valign="top">
302 
				  <%=objForm.Validate ("proj_name")%>
 302 
				  <input type="text" name="proj_name" class='form_iname' value="<%=Request("proj_name")%>">
303 
				  </td>
 303 
				  <%=objForm.Validate ("proj_name")%>
304 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", NULL ) )%></td>
 304 
				  </td>
305 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
 305 
                  <td background="images/bg_note.gif" class="body_row" valign="top"><%Call RenderRMProjectCombo( objForm.GetValue( "rm_projects_fk", NULL ) )%></td>
306 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
 306 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
307 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>" ><%=LIMG_ROW_CANCEL%></a></td>
 307 
				  <td background="images/bg_note.gif" class="body_row" valign="top">&nbsp;</td>
308 
                </tr>
 308 
                  <td background="images/bg_note.gif" align="center" nowrap valign="top"><%=LIMG_ROW_SUBMIT%><a href="<%=SCRIPT_NAME%>" ><%=LIMG_ROW_CANCEL%></a></td>
309 
				<%End If%>
 309 
                </tr>
310 
				<!-- +++++++++++++++++++++++++++++++++ -->
 310 
				<%End If%>
311
311 
				<!-- +++++++++++++++++++++++++++++++++ -->
312
312
313 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
 313
314 
				<%If parAction = "" Then%>
 314 
				<!-- NEW ENTRY BUTTON ++++++++++++++++ -->
315 
				<tr>
 315 
				<%If parAction = "" Then%>
316 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new"><%=LIMG_NEW_ENTRY%></a></td>
 316 
				<tr>
317 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 317 
                  <td background="images/bg_bage_0.gif" align="center"><a href="<%=SCRIPT_NAME%>?action=new"><%=LIMG_NEW_ENTRY%></a></td>
318 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 318 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
319 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 319 
                  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
320 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
 320 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
321 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
 321 
				  <td bgcolor="#FFFFFF" class="body_row">&nbsp;</td>
322 
                </tr>
 322 
                  <td bgcolor="#FFFFFF">&nbsp;</td>
323 
				<%End If%>
 323 
                </tr>
324 
				<!-- +++++++++++++++++++++++++++++++++ -->
 324 
				<%End If%>
325
325 
				<!-- +++++++++++++++++++++++++++++++++ -->
326 
              </table></td>
 326
327 
            </tr>
 327 
              </table></td>
328 
		  <%=objPMod.ComposeHiddenTags()%>
 328 
            </tr>
329 
		  <input type="hidden" name="myproj_id" value="<%=parMyProj_id%>">
 329 
		  <%=objPMod.ComposeHiddenTags()%>
330 
		  <input type="hidden" name="doit" value="true">
 330 
		  <input type="hidden" name="myproj_id" value="<%=parMyProj_id%>">
331 
		  </form>
 331 
		  <input type="hidden" name="doit" value="true">
332 
          </table>
 332 
		  </form>
333 
          </td>
 333 
          </table>
334 
        <td valign="top"></td>
 334 
          </td>
335 
        </tr>
 335 
        <td valign="top"></td>
336 
    </table>
 336 
        </tr>
337 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 337 
    </table>
338 
	</td>
 338 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
339 
  </tr>
 339 
	</td>
340 
  <tr>
 340 
  </tr>
341 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
 341 
  <tr>
342 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 342 
    <td background="images/bg_bage_0a.gif"><img src="images/spacer.gif" width="200" height="15"></td>
343 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 343 
    <td background="images/bg_bage_1.gif"><img src="images/spacer.gif" width="1" height="1"></td>
344 
  </tr>
 344 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
345 
  <tr>
 345 
  </tr>
346 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
 346 
  <tr>
347 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 347 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="20"></td>
348 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
 348 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
349 
  </tr>
 349 
    <td bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"></td>
350 
</table>
 350 
  </tr>
351 
<!-- FOOTER ++++++++++++++++ -->
 351 
</table>
352 
<!--#include file="_footer.asp"-->
 352 
<!-- FOOTER ++++++++++++++++ -->
353 
<!-- +++++++++++++++++++++++ -->
 353 
<!--#include file="_footer.asp"-->
354 
</body>
 354 
<!-- +++++++++++++++++++++++ -->
355 
</html>
 355 
</body>
356 
<%
 356 
</html>
357 
'------------ RUN AFTER PAGE RENDER -----------
 357 
<%
358 
Set objPMod = Nothing
 358 
'------------ RUN AFTER PAGE RENDER -----------
359 
Set objTabControl = Nothing
 359 
Set objPMod = Nothing
360 
'----------------------------------------------
 360 
Set objTabControl = Nothing
- 
 
 361 
'----------------------------------------------
361 
%><!--#include file="common/globals_destructor.asp"-->
 362 
%><!--#include file="common/globals_destructor.asp"-->
362 

            363