Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
5506 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
'=====================================================
4
'|                                                   |
5
'|                          INDEX                    |
6
'|                                                   |
7
'=====================================================
8
%>
9
<%
10
Option explicit
11
' Good idea to set when using redirect
12
Response.Expires = 0   ' always load the page, dont store
13
%>
14
<!--#include file="common/conf.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<%
20
'------------ ACCESS CONTROL ------------------
21
%>
22
<!--#include file="_access_control_general.asp"-->
23
<%
24
'------------ Variable Definition -------------
25
Dim parMsg
5590 dpurdie 26
Dim msgScript, msgTitle
5506 dpurdie 27
Dim userId
28
Dim rsQry
29
Dim rsLastRelease
30
Dim AutomatedPackages, TotalPackages
31
Dim Query_String
32
Dim Auto
33
'------------ Constants Declaration -----------
34
'------------ Variable Init -------------------
35
parMsg = QStrPar("msg")         ' Messages
36
'----------------------------------------------
37
%>
38
<%
39
'-----------------------------------------------------------------------------------------------------------------------
40
Function Get_Messages
41
   Get_Messages = _
42
   " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2"
43
End Function
44
'-----------------------------------------------------------------------------------------------------------------------
45
%>
46
<html>
47
   <head>
48
      <title>Release Manager</title>
49
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
50
      <meta http-equiv="Pragma" content="no-cache">
51
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
52
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
53
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
54
      <script language="JavaScript" src="images/common.js"></script>
55
      <script language="JavaScript" src="scripts/remote_scripting.js"></script>
5590 dpurdie 56
      <!--#include file="_jquery_includes.asp"-->
5506 dpurdie 57
      <!-- TIPS -->
58
      <script language="JavaScript" src="images/tipster.js"></script>
59
      <script language="JavaScript" src="images/_help_tips.js"></script>
60
      <!-- DROPDOWN MENUS -->
61
      <!--#include file="_menu_def.asp"-->
62
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
63
      <script language="JavaScript" type="text/javascript">
64
      <!--
65
 
66
      function RequestUserWip( paramString, rowId ){
67
         var requestURL = 'RequestUserWip.asp';
68
 
69
         // Show div
70
         ToggleDisplay( 'DIVWIP_'+ rowId, 'IMG_EXPAND_WIP_' + rowId, 'IMG_COLLAPSE_WIP_' + rowId );
71
 
72
         // Set ajax divname
73
         ajaxdivname = 'DIVWIP_'+ rowId;
74
 
75
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
76
         {
77
            //Append the name to search for to the requestURL
78
            var url = requestURL + paramString;
79
 
80
            //Create the xmlHttp object to use in the request
81
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
82
            // This is non-blocking (asynchronous)
83
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
84
 
85
            //Send the xmlHttp get to the specified url
86
            xmlHttp_Get(xmlHttp, url);
87
         }
88
      }
89
 
90
      function RequestProjectRelease( paramString, rowId ){
91
         var requestURL = 'RequestProjectRelease.asp';
92
 
93
         // Show div
94
         ToggleDisplay( 'DIVPROJ_'+ rowId, 'IMG_EXPAND_PROJ_' + rowId, 'IMG_COLLAPSE_PROJ_' + rowId );
95
 
96
         // Set ajax divname
97
         ajaxdivname = 'DIVPROJ_'+ rowId;
98
 
99
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
100
         {
101
            //Append the name to search for to the requestURL
102
            var url = requestURL + paramString;
103
 
104
            //Create the xmlHttp object to use in the request
105
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
106
            // This is non-blocking (asynchronous)
107
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
108
 
109
            //Send the xmlHttp get to the specified url
110
            xmlHttp_Get(xmlHttp, url);
111
         }
112
      }
113
 
114
      function RequestReleasePackages( paramString, rowId ){
115
         var requestURL = 'RequestReleasePackages.asp';
116
 
117
         // Show div
118
         ToggleDisplay( 'DIVRTAG_'+ rowId, 'IMG_EXPAND_RTAG_' + rowId, 'IMG_COLLAPSE_RTAG_' + rowId );
119
 
120
         // Set ajax divname
121
         ajaxdivname = 'DIVRTAG_'+ rowId;
122
 
123
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
124
         {
125
            //Append the name to search for to the requestURL
126
            var url = requestURL + paramString;
127
 
128
            //Create the xmlHttp object to use in the request
129
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
130
            // This is non-blocking (asynchronous)
131
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
132
 
133
            //Send the xmlHttp get to the specified url
134
            xmlHttp_Get(xmlHttp, url);
135
         }
136
      }
137
 
138
      function RequestTop10ChangesInLastWeek( paramString, rowId ){
139
         var requestURL = 'RequestTop10Changes.asp';
140
 
141
         // Show div
142
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_1_WEEK', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_1_WEEK', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_1_WEEK' );
143
 
144
         // Set ajax divname
145
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_1_WEEK';
146
 
147
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
148
         {
149
            //Append the name to search for to the requestURL
150
            var url = requestURL + paramString;
151
 
152
            //Create the xmlHttp object to use in the request
153
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
154
            // This is non-blocking (asynchronous)
155
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
156
 
157
            //Send the xmlHttp get to the specified url
158
            xmlHttp_Get(xmlHttp, url);
159
         }
160
      }
161
 
162
      function RequestTop10ChangesInLastMonth( paramString, rowId ){
163
         var requestURL = 'RequestTop10Changes.asp';
164
 
165
         // Show div
166
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_1_MONTH', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_1_MONTH', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_1_MONTH' );
167
 
168
         // Set ajax divname
169
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_1_MONTH';
170
 
171
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
172
         {
173
            //Append the name to search for to the requestURL
174
            var url = requestURL + paramString;
175
 
176
            //Create the xmlHttp object to use in the request
177
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
178
            // This is non-blocking (asynchronous)
179
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
180
 
181
            //Send the xmlHttp get to the specified url
182
            xmlHttp_Get(xmlHttp, url);
183
         }
184
      }
185
 
186
      function RequestTop10ChangesInLast3Months( paramString, rowId ){
187
         var requestURL = 'RequestTop10Changes.asp';
188
 
189
         // Show div
190
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_TOP10_3_MONTHS', 'IMG_EXPAND_RTAG_' + rowId + '_TOP10_3_MONTHS', 'IMG_COLLAPSE_RTAG_' + rowId + '_TOP10_3_MONTHS' );
191
 
192
         // Set ajax divname
193
         ajaxdivname = 'DIVRTAG_'+ rowId + '_TOP10_3_MONTHS';
194
 
195
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
196
         {
197
            //Append the name to search for to the requestURL
198
            var url = requestURL + paramString;
199
 
200
            //Create the xmlHttp object to use in the request
201
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
202
            // This is non-blocking (asynchronous)
203
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
204
 
205
            //Send the xmlHttp get to the specified url
206
            xmlHttp_Get(xmlHttp, url);
207
         }
208
      }
209
 
210
      function RequestPreviousPackageVersions( paramString, rowId ){
211
         var requestURL = 'RequestPackageVersionHistoryMetrics.asp';
212
 
213
         // Show div
214
         ToggleDisplay( 'DIVRTAG_'+ rowId + '_PREV_PKG_VERS', 'IMG_EXPAND_RTAG_' + rowId + '_PREV_PKG_VERS', 'IMG_COLLAPSE_RTAG_' + rowId + '_PREV_PKG_VERS' );
215
 
216
         // Set ajax divname
217
         ajaxdivname = 'DIVRTAG_'+ rowId + '_PREV_PKG_VERS';
218
 
219
         if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
220
         {
221
            //Append the name to search for to the requestURL
222
            var url = requestURL + paramString;
223
 
224
            //Create the xmlHttp object to use in the request
225
            //stateChangeHandler will fire when the state has changed, i.e. data is received back
226
            // This is non-blocking (asynchronous)
227
            xmlHttp = GetXmlHttpObject(stateChangeHandler);
228
 
229
            //Send the xmlHttp get to the specified url
230
            xmlHttp_Get(xmlHttp, url);
231
         }
232
      }
233
 
234
      //-->
235
      </script>
236
      <style type="text/css">
237
      <!--
238
      .style1 {
239
         font-family: Arial, Helvetica, sans-serif;
240
         font-size: 12px;
241
      }
242
      .style3 {
243
         font-size: 11px;
244
         font-family: tahoma, sans-serif;
245
      }
246
      -->
247
      </style>
248
   </head>
249
   <!-- TIPS LAYERS -------------------------------------->
250
   <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
251
 
252
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" 
253
<%If NOT objAccessControl.UserLogedIn Then%>
254
        onLoad="login.user_name.focus();"
255
<%End If%>
256
   >
257
      <!-- MENU LAYERS -------------------------------------->
258
      <div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')"
259
         onmouseout="highlightmenu(event,'off');dynamichide(event)">
260
      </div>
261
      <!-- HEADER -->
262
      <!--#include file="_header.asp"-->
263
      <!-- BODY ---->
264
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
265
         <tr>
266
            <td width="1%" background="images/bg_home_orange.gif" valign="top">
267
            <!--#include file="_front_explorer.asp"-->
268
            </td>
269
            <td rowspan="2" width="1%" valign="top">
270
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
271
                  <tr>
272
                     <td width="1%">
273
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
274
                           <tr>
275
                              <td colspan="3">
276
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
277
                                    <tr>
278
                                       <td background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_left.jpg" width="436" height="88"></td>
279
                                       <td align="right" background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_right.jpg" width="70" height="88"></td>
280
                                    </tr>
281
                                 </table>
282
                              </td>
283
                              <td background="images/bg_action_norm.gif"></td>
284
                              <td background="images/bg_action_norm.gif" valign="top" align="center"><img src="images/h_trsp_dot.gif" width="150" height="10"></td>
285
                           </tr>
286
                           <tr>
287
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="518"></td>
288
                              <td width="100%" valign="top" class="body_txt">
289
                                 <br>
290
                                 <!-- MESSAGE BOARD ---------------------------------------------->
291
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
292
                                    <tr>
293
                                       <td colspan="2" class="body_sect">Message Board</td>
294
                                    </tr>
295
                                    <tr>
296
                                       <td align="center" width="1%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">Due Date</td>
297
                                       <td width="100%" background="images/bg_form_lightbluedark.gif" align="right">
5590 dpurdie 298
                                          <a href="javascript:;" onclick="MM_openVixIFrame('_wform_schedule_add.asp','Add Scheduled Task')"><img src="images/i_schedule.gif" width="16" height="15" border="0" hspace="4" vspace="2" alt="Schedule a Task" title="Schedule a Task"></a><a href="javascript:;" onclick="MM_openVixIFrame('_wform_memo_add.asp','Add Memo')"><img src="images/i_memo.gif" width="12" height="15" border="0" hspace="4" vspace="2" alt="Memo" title="Memo"></a>
5506 dpurdie 299
                                       </td>
300
                                    </tr>
301
                                    <%
302
                                    Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
303
                                    If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
304
                                    While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
305
                                       If rsTemp.Fields("due_date") <> "" Then
306
                                          msgScript = "schedule"
5590 dpurdie 307
                                          msgTitle = "Edit Scheduled Task"
5506 dpurdie 308
                                       Else
309
                                          msgScript = "memo"
5590 dpurdie 310
                                          msgTitle = "Edit Memo"
5506 dpurdie 311
                                       End If
312
                                       %>
313
                                       <tr>
314
                                          <td align="center" valign="top" nowrap>
315
                                             <%If rsTemp.Fields("due_date") <> "" Then%>
5590 dpurdie 316
                                             <a href="javascript:;" onClick="MM_openVixIFrame('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','<%=msgTitle%>')" class="msgb_item">
5632 dpurdie 317
                                             <%=DisplayDate(rsTemp.Fields("due_date"))%>
5506 dpurdie 318
                                             <br>
319
                                             <img src="images/i_clock.gif" width="14" height="14" border="0">
320
                                             </a>
321
                                             <%Else%>
322
                                             <img src="images/h_trsp_dot.gif" width="1" height="25">
323
                                             <%End If%>
324
                                          </td>
5590 dpurdie 325
                                          <td valign="top"><a href="javascript:;" onClick="MM_openVixIFrame('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','<%=msgTitle%>')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "<br>")%></a>
5506 dpurdie 326
                                          </td>
327
                                       </tr>
328
                                       <tr>
329
                                          <td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
330
                                       </tr>
331
                                       <%
332
                                       rsTemp.MoveNext
333
                                      WEnd
334
                                    rsTemp.Close
335
                                    Set rsTemp = nothing
336
                                    %>
337
                                    <tr>
338
                                       <td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
339
                                       <td align="right"></td>
340
                                    </tr>
341
                                 </table>
342
                                 <!-- MESSAGE BOARD END ---------------------------------------------->
343
                                 <br>
344
                                 <br>
345
                                 <!-- WORK IN PROGRESS ---------------------------------------------->
346
                                 <table width="100%" border="0" cellspacing="1" cellpadding="1">
347
                                    <tr>
348
                                       <td colspan="4" class="body_sect">Work In Progress</td>
349
                                    </tr>
350
                                    <tr>
351
                                       <td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User</td>
352
                                       <td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
353
                                       <td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
354
                                    </tr>
355
                                    <!-- PERSONAL WORK IN PROGRESS  -->
356
                                    <%
357
                                    If objAccessControl.UserLogedIn Then
358
 
359
                                       OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
360
 
361
                                       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0))
362
 
363
                                       OraDatabase.Parameters.Remove "USER_ID"
364
 
365
                                       userId = rsTemp("user_id")
366
                                       %>
367
                                       <tr>
368
                                          <td nowrap>
369
                                             <span id="IMG_EXPAND_WIP_<%=userId%>" style="display:block;">
370
                                                <a href="javascript:;" class="txt_linked" onClick="RequestUserWip('?user_id=<%=userId%>', '<%=userId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
371
                                             </span>
372
                                             <span id="IMG_COLLAPSE_WIP_<%=userId%>" style="display:none;">
373
                                                <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVWIP_<%=userId%>', 'IMG_EXPAND_WIP_<%=userId%>', 'IMG_COLLAPSE_WIP_<%=userId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_user.gif" border="0" align="absmiddle" hspace="3"><%=rsTemp("full_name")%></a>
374
                                             </span>
375
                                          </td>
376
                                          <td nowrap class="body_txt"><%=rsTemp("counter")%></td>
377
                                          <td nowrap class="body_txt"><a href="mailto:<%=rsTemp("user_email")%>"><img src="images/bt_send_email.gif" width="36" height="13" border="0" alt="<%=rsTemp("user_email")%>"></a>
378
                                          </td>
379
                                       </tr>
380
                                       <tr>
381
                                          <td nowrap class="body_txt" colspan="3">
382
                                             <div id="DIVWIP_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
383
                                          </td>
384
                                       </tr>
385
                                       <tr>
386
                                          <td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
387
                                       </tr>
388
                                       <%
389
                                       rsTemp.Close
390
                                       Set rsTemp = nothing
391
                                    End If%>
392
                                 </table>
393
                                 <!--  WORK IN PROGRESS END ------------------------------------------>
394
                                 <br>
395
                                 <br>
396
                                 <!-- RELEASE METRICS -------------------------------------------------------->
397
                                 <table width="100%" border="0" cellspacing="0" cellpadding="0">
398
                                    <tr>
399
                                       <td colspan="4" class="body_sect">Release Metrics</td>
400
                                    </tr>
401
                                    <tr>
402
                                       <td colspan="2">
403
                                          <table width="100%" border="0" cellspacing="1" cellpadding="1">
404
                                             <tr>
405
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Project</td>
406
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuilt<br>Release</td>
407
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
408
                                                <td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
409
                                             </tr>
410
                                             <%
411
                                             Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0))
412
 
413
                                             While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
414
                                                OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
415
 
416
                                                Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
417
 
418
                                                If rsTemp.RecordCount > 0 Then
419
                                                   Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
420
                                                End If
421
                                                %>
422
                                                <tr>
423
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
424
                                                      <span id="IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>" style="display:block;">
425
                                                         <a href="javascript:;" class="txt_linked" onClick="RequestProjectRelease('?proj_id=<%=rsQry("proj_id")%>', '<%=rsQry("proj_id")%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsQry("proj_name")%></a>
426
                                                      </span>
427
                                                      <span id="IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>" style="display:none;">
428
                                                         <a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'DIVPROJ_<%=rsQry("proj_id")%>', 'IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>', 'IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><img src="images/i_world.gif" border="0" align="absmiddle" hspace="3"><%=rsQry("proj_name")%></a>
429
                                                      </span>
430
                                                   </td>
431
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("rtag_name")%></td>
432
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("last_build_time")%></td>
433
                                                   <%If rsTemp.RecordCount > 0 Then%>
434
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%>
435
                                                      (<%=Auto%>)</td>
436
                                                   <%Else%>
437
                                                   <td background="images/bg_form_lightgray.gif" nowrap class="body_txt"></td>
438
                                                   <%End If%>
439
                                                </tr>
440
                                                <tr>
441
                                                   <td nowrap class="body_txt" colspan="4">
442
                                                      <div id="DIVPROJ_<%=rsQry("proj_id")%>" style="display:none;"><%=enumLOADING%></div>
443
                                                   </td>
444
                                                </tr>
445
                                                <tr>
446
                                                   <td colspan="5" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
447
                                                </tr>
448
                                                <%
449
                                                OraDatabase.Parameters.Remove "PROJ_ID"
450
                                                rsTemp.Close()
451
                                                Set rsTemp = Nothing
452
                                                rsQry.MoveNext
453
                                             Wend
454
 
455
                                             rsQry.Close()
456
                                             Set rsQry = Nothing
457
                                             %>
458
                                          </table>
459
                                       </td>
460
                                    </tr>
461
                                 </table>
462
                                 <!-- DASH BOARD END ---------------------------------------------------->
463
                              </td>
464
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="10"></td>
465
                              <td background="images/bg_action_norm.gif" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="10"></td>
466
                              <td background="images/bg_bage.gif" width="1%" valign="top" align="center">
467
                                 <br>
468
                                 <%If NOT objAccessControl.UserLogedIn Then%>
469
                                    <table width="100" border="0" cellspacing="0" cellpadding="0">
470
                                       <form name="login" method="post" action="Login.asp">
471
                                          <tr>
472
                                             <td class="form_field_lg">Members</td>
473
                                          </tr>
474
                                          <tr>
475
                                             <td class="form_item">Username</td>
476
                                          </tr>
477
                                          <tr>
478
                                             <td><input type="text" name="user_name" class="form_item" size="20"></td>
479
                                          </tr>
480
                                          <tr>
481
                                             <td class="form_item">Password</td>
482
                                          </tr>
483
                                          <tr>
484
                                             <td>
485
                                                <input type="password" name="user_password" class="form_item" size="20" <%If objAccessControl.isDevSystem Then Response.write"disabled"%>>
486
                                                <input type="hidden" name="rfile" value="index.asp">
487
                                                <input type="hidden" name="action" value="true">
488
                                             </td>
489
                                          </tr>
490
                                          <tr>
491
                                             <td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
492
                                          </tr>
493
                                          <tr>
494
                                             <td align="center">
495
                                                <input type="submit" name="Submit" value="Login" class="form_btn" onclick="MM_validateForm('user_name','Username','R'<%If NOT objAccessControl.isDevSystem Then Response.write",'user_password','Password','R'"%>);return document.MM_returnValue">
496
                                                <br>
497
                                                <br>
498
                                             </td>
499
                                          </tr>
500
                                          <tr>
501
                                             <td class="form_field_lg" bgcolor="#CAC5B8"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
502
                                          </tr>
503
                                          <tr>
5598 dpurdie 504
                                             <td class="form_field_lg" onclick="MM_openVixIFrame('_wform_new_members.asp', 'New Members');">
5506 dpurdie 505
                                                <br>
5598 dpurdie 506
                                                <a href="javascript:;">New Members</a>
507
                                                <img src="images/i_info.gif" width="16" height="16">
5506 dpurdie 508
                                             </td>
509
                                          </tr>
510
                                          <tr>
5598 dpurdie 511
                                            <td class="style3" onclick="MM_openVixIFrame('_wform_lost_password.asp', 'Lost Password');">
512
                                                <p>Forgot your <a href="javascript:;"  class="body_link"> password</a>?
513
                                            </td>
514
                                        </tr>
5506 dpurdie 515
                                       </form>
516
                                    </table>
517
                                 <%Else%>
518
                                    <table width="120" border="0" cellspacing="0" cellpadding="0">
519
                                       <tr>
520
                                          <td class="form_txt" nowrap>G'day <b><%=Format_Full_Name( objAccessControl.FullName )%></b>!</td>
521
                                       </tr>
522
                                       <tr>
523
                                          <td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
524
                                       </tr>
525
                                       <tr>
526
                                          <td class="form_field_lg" bgcolor="#CAC5B8"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
527
                                       </tr>
528
                                       <tr>
529
                                          <td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
530
                                       </tr>
531
                                       <tr>
532
                                          <td class="form_txt">Options below are shortcuts to your account.</td>
533
                                       </tr>
534
                                       <tr>
535
                                          <td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
536
                                       </tr>
537
                                    </table>
538
                                    <br>
539
                                    <!--#include file="members_menu_def.asp"-->
540
                                    <%Call Member_Menu( empty )%>
541
                                 <%End If%>
542
                                 <img src="images/h_trsp_dot.gif" width="140" height="10">
543
                              </td>
544
                           </tr>
545
                        </table>
546
                     </td>
547
                  </tr>
548
               </table>
549
            </td>
550
            <td width="100%">&nbsp;</td>
551
         </tr>
552
         <tr>
553
            <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_gear.gif" width="107" height="107" vspace="20" hspace="30"></td>
554
            <td>&nbsp;</td>
555
         </tr>
556
      </table>
557
      <!-- FOOTER -->
558
      <div align="left">
559
         <!--#include file="_footer.asp"-->
560
      </div>
561
   </body>
562
</html>