Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 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
26
Dim msgScript
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
Function Get_DashBoard (nProjId)
46
	Get_DashBoard = _
47
	" SELECT * FROM DASH_BOARD db, PROJECTS prj, RELEASE_TAGS rt where prj.proj_id = rt.proj_id and rt.rtag_id = db.rtag_id "&_
48
	" and db.proj_id = "&nProjId&" order by last_build_time desc"
49
End Function
50
'-----------------------------------------------------------------------------------------------------------------------
51
%>
52
<html>
53
	<head>
54
		<title>Release Manager</title>
55
		<meta http-equiv="Pragma" content="no-cache">
56
		<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
57
		<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
58
		<link rel="stylesheet" href="images/navigation.css" type="text/css">
59
		<script language="Javascript" type="text/javascript">
60
		<!--
61
 
62
		//This section creates the current date string
63
		if ((navigator.appName.indexOf('Microsoft Internet Explorer') != -1 ) && (navigator.appVersion.substring(0,1) >= 4)) var intro = 1;
64
		if ((navigator.appName.indexOf('Netscape') != -1 ) && (navigator.appVersion.substring(0,1) >= 4)) var intro = 0;
65
		var dateNumb = new Date();
66
		dateNumb = dateNumb.getDate();
67
		var d = new Date();
68
		d = d.getDay();
69
		var m = new Date();
70
		m = m.getMonth();
71
		var y = new Date();
72
		y = y.getFullYear();
73
 
74
		var month = new String();
75
		var dateTH = new String();
76
		var date = new String();
77
		var FullDate = new String();
78
 
79
		if (d == 0) var day = 'Sunday';
80
		else if (d == 1) var day = 'Monday';
81
		else if (d == 2) var day = 'Tuesday';
82
		else if (d == 3) var day = 'Wednesday';
83
		else if (d == 4) var day = 'Thursday';
84
		else if (d == 5) var day = 'Friday';
85
		else if (d == 6) var day = 'Saturday';
86
 
87
		if (m == 0) var month = 'January';
88
		else if (m == 1) var month = 'February';
89
		else if (m == 2) var month = 'March';
90
		else if (m == 3) var month = 'April';
91
		else if (m == 4) var month = 'May';
92
		else if (m == 5) var month = 'June';
93
		else if (m == 6) var month = 'July';
94
		else if (m == 7) var month = 'August';
95
		else if (m == 8) var month = 'September';
96
		else if (m == 9) var month = 'October';
97
		else if (m == 10) var month = 'November';
98
		else if (m == 11) var month = 'December';
99
 
100
		if ((dateNumb == 1) || (dateNumb == 21) || (dateNumb == 31)) dateTh = 'st'; //.sup();
101
		else if ((dateNumb == 2) || (dateNumb == 22)) dateTH = 'nd'; //.sup();
102
		else if ((dateNumb == 3) || (dateNumb == 23)) dateTH = 'rd'; //.sup();
103
		else dateTH = 'th'; //.sup();
104
		date = dateNumb + dateTH;
105
		FullDate = day + ', ' + month + ' ' + date + ', ' + y;
106
 
107
		//-->
108
		</script>
109
		<script language="JavaScript" src="images/common.js"></script>
110
		<script language="JavaScript" src="scripts/remote_scripting.js"></script>
111
		<!-- DROPDOWN MENUS -->
112
		<!--#include file="_menu_def.asp"-->
113
		<script language="JavaScript1.2" src="images/popup_menu.js"></script>
114
		<script language="JavaScript" type="text/javascript">
115
		<!--
116
 
117
		function RequestUserWip( paramString, rowId ){
118
			var requestURL = 'RequestUserWip.asp';
119
 
120
			// Show div
121
			ToggleDisplay( 'DIVWIP_'+ rowId, 'IMG_EXPAND_WIP_' + rowId, 'IMG_COLLAPSE_WIP_' + rowId );
122
 
123
			// Set ajax divname
124
			ajaxdivname = 'DIVWIP_'+ rowId;
125
 
126
			if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
127
			{
128
				//Append the name to search for to the requestURL
129
				var url = requestURL + paramString;
130
 
131
				//Create the xmlHttp object to use in the request
132
				//stateChangeHandler will fire when the state has changed, i.e. data is received back
133
				// This is non-blocking (asynchronous)
134
				xmlHttp = GetXmlHttpObject(stateChangeHandler);
135
 
136
				//Send the xmlHttp get to the specified url
137
				xmlHttp_Get(xmlHttp, url);
138
			}
139
		}
140
 
141
		function RequestProjectRelease( paramString, rowId ){
142
			var requestURL = 'RequestProjectRelease.asp';
143
 
144
			// Show div
145
			ToggleDisplay( 'DIVPROJ_'+ rowId, 'IMG_EXPAND_PROJ_' + rowId, 'IMG_COLLAPSE_PROJ_' + rowId );
146
 
147
			// Set ajax divname
148
			ajaxdivname = 'DIVPROJ_'+ rowId;
149
 
150
			if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
151
			{
152
				//Append the name to search for to the requestURL
153
				var url = requestURL + paramString;
154
 
155
				//Create the xmlHttp object to use in the request
156
				//stateChangeHandler will fire when the state has changed, i.e. data is received back
157
				// This is non-blocking (asynchronous)
158
				xmlHttp = GetXmlHttpObject(stateChangeHandler);
159
 
160
				//Send the xmlHttp get to the specified url
161
				xmlHttp_Get(xmlHttp, url);
162
			}	
163
		}
164
 
165
 
166
		function RequestReleasePackages( paramString, rowId ){
167
			var requestURL = 'RequestReleasePackages.asp';
168
 
169
			// Show div
170
			ToggleDisplay( 'DIVRTAG_'+ rowId, 'IMG_EXPAND_RTAG_' + rowId, 'IMG_COLLAPSE_RTAG_' + rowId );
171
 
172
			// Set ajax divname
173
			ajaxdivname = 'DIVRTAG_'+ rowId;
174
 
175
			if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>') 
176
			{
177
				//Append the name to search for to the requestURL
178
				var url = requestURL + paramString;
179
 
180
				//Create the xmlHttp object to use in the request
181
				//stateChangeHandler will fire when the state has changed, i.e. data is received back
182
				// This is non-blocking (asynchronous)
183
				xmlHttp = GetXmlHttpObject(stateChangeHandler);
184
 
185
				//Send the xmlHttp get to the specified url
186
				xmlHttp_Get(xmlHttp, url);
187
			}
188
		}
189
 
190
		//-->
191
		</script>
192
		<style type="text/css">
193
		<!--
194
		.style1 {
195
			font-family: Arial, Helvetica, sans-serif;
196
			font-size: 12px;
197
		}
198
		.style3 {
199
			font-size: 11px;
200
			font-family: tahoma, sans-serif;
201
		}
202
		-->
203
		</style>
204
	</head>
205
	<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
206
		<!-- MENU LAYERS -------------------------------------->
207
		<div id="popmenu" class="menuskin" onmouseover="clearhidemenu();highlightmenu(event,'on')"
208
			onmouseout="highlightmenu(event,'off');dynamichide(event)">
209
		</div>
210
		<!-- HEADER -->
211
		<%If objAccessControl.UserLogedIn Then%>
212
		<div id="Layer1" style="position:absolute; left:2; top:2; width:1px; height:1px; z-index:1"><a href="_Logout.asp"><img src="images/i_logout.gif" width="14" height="14" border="0" alt="Logout from <%=objAccessControl.UserName%>" title="Logout from <%=objAccessControl.UserName%>"></a></div>
213
		<%End If%>
214
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
215
			<tr>
216
				<td><a href="index.asp"><img src="images/b_release_manager.jpg" width="467" height="50" border="0"></a></td>
217
				<td valign="bottom" align="right"><%Call Print_TopRight_Menu_ROW1 ()%></td>
218
			</tr>
219
			<tr>
220
				<td align="left" nowrap valign="center" width="150" background="images/h_dot.gif" height="1"></td>
221
				<td background="images/h_dot.gif" height="1"></td>
222
			</tr>
223
		</table>
224
		<!-- BODY ---->
225
		<table width="100%" border="0" cellspacing="0" cellpadding="0">
226
			<tr>
227
				<td width="1%" background="images/bg_home_orange.gif" valign="top">
228
					<!--#include file="_front_explorer.asp"-->
229
				</td>
230
				<td rowspan="2" width="1%" valign="top">
231
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
232
						<tr>
233
							<td width="1%">
234
								<table width="100%" border="0" cellspacing="0" cellpadding="0">
235
									<tr>
236
										<td colspan="3">
237
											<table width="100%" border="0" cellspacing="0" cellpadding="0">
238
												<tr>
239
													<td background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_left.jpg" width="436" height="88"></td>
240
													<td align="right" background="images/bg_comp_gear.gif"><img src="images/img_comp_gear_right.jpg" width="70" height="88"></td>
241
												</tr>
242
											</table>
243
										</td>
244
										<td background="images/bg_action_norm.gif"></td>
245
										<td background="images/bg_action_norm.gif" valign="top" align="center"><img src="images/h_trsp_dot.gif" width="150" height="10"></td>
246
									</tr>
247
									<tr>
248
										<td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="518"></td>
249
										<td width="100%" valign="top" class="body_txt">
250
											<br>
251
											<!-- MESSAGE BOARD ---------------------------------------------->
252
											<table width="100%" border="0" cellspacing="0" cellpadding="0">
253
												<tr>
254
													<td colspan="2" class="body_sect">Message Board</td>
255
												</tr>
256
												<tr>
257
													<td align="center" width="1%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">Due Date</td>
258
													<td width="100%" background="images/bg_form_lightbluedark.gif" align="right">
259
														<a href="javascript:;" onclick="MM_openBrWindow('_wform_schedule_add.asp','ReleaseManager','resizable=yes,width=400,height=300')"><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_openBrWindow('_wform_memo_add.asp','ReleaseManager','resizable=yes,width=400,height=300')"><img src="images/i_memo.gif" width="12" height="15" border="0" hspace="4" vspace="2" alt="Memo" title="Memo"></a>
260
													</td>
261
												</tr>
262
												<%
263
												Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0))
264
												If rsTemp.RecordCount < 1 Then Response.write "<tr><td colspan='2' class='msgb_item'>&nbsp;No messages at this time.</td></tr>"
265
												While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
266
						  						If rsTemp.Fields("due_date") <> "" Then
267
													msgScript = "schedule"
268
												Else
269
													msgScript = "memo"
270
												End If
271
												%>
272
												<tr>
273
													<td align="center" valign="top" nowrap>
274
														<%If rsTemp.Fields("due_date") <> "" Then%>
275
														<a href="javascript:;" onClick="MM_openBrWindow('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item">
276
														<%=EuroDate(rsTemp.Fields("due_date"))%>
277
														<br>
278
														<img src="images/i_clock.gif" width="14" height="14" border="0">
279
														</a>
280
														<%Else%>
281
														<img src="images/h_trsp_dot.gif" width="1" height="25">
282
														<%End If%>
283
													</td>
284
													<td valign="top"><a href="javascript:;" onClick="MM_openBrWindow('_wform_<%=msgScript%>_edit.asp?FRmsg_id=<%=rsTemp.Fields("msg_id")%>','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "<br>")%></a>
285
													</td>
286
												</tr>
287
												<tr>
288
													<td colspan="2" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
289
												</tr>
290
												<%
291
												rsTemp.MoveNext
292
				  							WEnd
293
												rsTemp.Close
294
												Set rsTemp = nothing
295
												%>
296
												<tr>
297
													<td><img src="images/h_trsp_dot.gif" width="80" height="1"></td>
298
													<td align="right"></td>
299
												</tr>
300
											</table>
301
											<!-- MESSAGE BOARD END ---------------------------------------------->
302
											<br>
303
											<br>
304
											<!-- WORK IN PROGRESS ---------------------------------------------->
305
											<table width="100%" border="0" cellspacing="1" cellpadding="1">
306
												<tr>
307
													<td colspan="4" class="body_sect">Work In Progress</td>
308
												</tr>
309
												<tr>
310
													<td width="40%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;User</td>
311
													<td width="50%" nowrap class="body_txt" background="images/bg_form_lightbluedark.gif">&nbsp;Package Count</td>
312
													<td width="1%" background="images/bg_form_lightbluedark.gif"><img src="images/h_trsp_dot.gif" width="1" height="17"></td>
313
												</tr>
314
												<!-- PERSONAL WORK IN PROGRESS  -->
315
												<%
316
												If objAccessControl.UserLogedIn Then
317
 
318
													OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
319
 
320
													Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0))
321
 
322
													OraDatabase.Parameters.Remove "USER_ID"
323
 
324
													userId = rsTemp("user_id")
325
												%>
326
												<tr>
327
													<td nowrap>
328
														<span id="IMG_EXPAND_WIP_<%=userId%>" style="display:block;">
329
															<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>
330
														</span>
331
														<span id="IMG_COLLAPSE_WIP_<%=userId%>" style="display:none;">
332
															<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>
333
														</span>
334
													</td>
335
													<td nowrap class="body_txt"><%=rsTemp("counter")%></td>
336
													<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>
337
													</td>
338
												</tr>
339
												<tr>
340
													<td nowrap class="body_txt" colspan="3">
341
														<div id="DIVWIP_<%=userId%>" style="display:none;"><%=enumLOADING%></div>
342
													</td>
343
												</tr>
344
												<tr>
345
													<td colspan="3" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
346
												</tr>
347
												<%
348
													rsTemp.Close
349
													Set rsTemp = nothing
350
												End If%>
351
											</table>
352
											<!--  WORK IN PROGRESS END ------------------------------------------>
353
											<br>
354
											<br>
355
											<!-- RELEASE METRICS -------------------------------------------------------->
356
											<table width="100%" border="0" cellspacing="0" cellpadding="0">
357
												<tr>
358
													<td colspan="4" class="body_sect">Release Metrics</td>
359
												</tr>
360
												<tr>
361
													<td colspan="2">
362
														<table width="100%" border="0" cellspacing="1" cellpadding="1">
363
															<tr>
364
																<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Project</td>
365
																<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuilt<br>Release</td>
366
																<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Last Autobuild<br>Completed</td>
367
																<td nowrap class="body_txt" valign="top" background="images/bg_form_lightbluedark.gif">Autobuilt Packages</td>
368
															</tr>
369
															<%
370
															Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0))
371
 
372
															While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
373
																OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
374
 
375
																Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0))
376
 
377
																If rsTemp.RecordCount > 0 Then
378
																	Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2)
379
																End If
380
															%>
381
															<tr>
382
																<td background="images/bg_form_lightgray.gif" nowrap class="body_txt">
383
																	<span id="IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>" style="display:block;">
384
																		<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>
385
																	</span>
386
																	<span id="IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>" style="display:none;">
387
																		<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>
388
																	</span>
389
																</td>
390
																<td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("rtag_name")%></td>
391
																<td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("last_build_time")%></td>
392
																<%If rsTemp.RecordCount > 0 Then%>
393
																<td background="images/bg_form_lightgray.gif" nowrap class="body_txt"><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%>
394
																	(<%=Auto%>)</td>
395
																<%Else%>
396
																<td background="images/bg_form_lightgray.gif" nowrap class="body_txt"></td>
397
																<%End If%>
398
															</tr>
399
															<tr>
400
																<td nowrap class="body_txt" colspan="4">
401
																	<div id="DIVPROJ_<%=rsQry("proj_id")%>" style="display:none;"><%=enumLOADING%></div>
402
																</td>
403
															</tr>
404
															<tr>
405
																<td colspan="5" background="images/bg_form_lightbluedark_line.gif"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
406
															</tr>
407
															<%
408
																OraDatabase.Parameters.Remove "PROJ_ID"
409
																rsTemp.Close()
410
																Set rsTemp = Nothing
411
															rsQry.MoveNext
412
															Wend
413
 
414
															rsQry.Close()
415
															Set rsQry = Nothing
416
															%>
417
														</table>
418
													</td>
419
												</tr>
420
											</table>
421
											<!-- DASH BOARD END ---------------------------------------------------->
422
										</td>
423
										<td width="1%"><img src="images/h_trsp_dot.gif" width="15" height="10"></td>
424
										<td background="images/bg_action_norm.gif" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="10"></td>
425
										<td background="images/bg_bage.gif" width="1%" valign="top" align="center">
426
											<br>
427
											<%If NOT objAccessControl.UserLogedIn Then%>
428
											<table width="100" border="0" cellspacing="0" cellpadding="0">
429
												<form name="login" method="post" action="Login.asp">
430
													<tr>
431
														<td class="form_field_lg">Members</td>
432
													</tr>
433
													<tr>
434
														<td class="form_item">Username</td>
435
													</tr>
436
													<tr>
437
														<td><input type="text" name="user_name" class="form_item" size="19"></td>
438
													</tr>
439
													<tr>
440
														<td class="form_item">Password</td>
441
													</tr>
442
													<tr>
443
														<td>
444
															<input type="password" name="user_password" class="form_item" size="19"> <input type="hidden" name="rfile" value="index.asp">
445
															<input type="hidden" name="action" value="true">
446
														</td>
447
													</tr>
448
													<tr>
449
														<td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
450
													</tr>
451
													<tr>
452
														<td align="center"><input type="submit" name="Submit" value="Login" class="form_btn" onclick="MM_validateForm('user_name','Username','R','user_password','Password','R');return document.MM_returnValue">
453
															<br>
454
															<br>
455
														</td>
456
													</tr>
457
													<tr>
458
														<td class="form_field_lg" bgcolor="#CAC5B8"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
459
													</tr>
460
													<tr>
461
														<td class="form_field_lg"><br>New Members</td>
462
													</tr>
463
													<tr>
464
														<td class="form_txt" align="center"><a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Release Manager Account" class="txt_linked"><img src="images/img_signup_here.gif" width="92" height="43" border="0" alt="New Members SignUp Here."></a><br>
465
															<br>
466
														</td>
467
													</tr>
468
													<tr>
469
														<td class="form_field_lg" bgcolor="#CAC5B8"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
470
													</tr>
471
												</form>
472
											</table>
473
											<span class="style3">
474
                      Forgot your <a href="mailto:<%=ADMIN_EMAIL%>?subject=Request for Password Reset" class="body_link"> password</a>?<br><br>
475
											</span>
476
											<%Else%>
477
											<table width="120" border="0" cellspacing="0" cellpadding="0">
478
												<tr>
479
													<td class="form_txt" nowrap>G'day <b><%=Format_Full_Name( objAccessControl.FullName )%></b>!</td>
480
												</tr>
481
												<tr>
482
													<td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
483
												</tr>
484
												<tr>
485
													<td class="form_field_lg" bgcolor="#CAC5B8"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
486
												</tr>
487
												<tr>
488
													<td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
489
												</tr>
490
												<tr>
491
													<td class="form_txt">Options below are shortcuts to your account.</td>
492
												</tr>
493
												<tr>
494
													<td><img src="images/h_trsp_dot.gif" width="10" height="10"></td>
495
												</tr>
496
											</table>
497
											<br>
498
											<!--#include file="members_menu_def.asp"-->
499
											<%Call Member_Menu( empty )%>
500
											<%End If%>
501
											<img src="images/h_trsp_dot.gif" width="140" height="10">
502
										</td>
503
									</tr>
504
								</table>
505
							</td>
506
						</tr>
507
					</table>
508
				</td>
509
				<td width="100%">&nbsp;</td>
510
			</tr>
511
			<tr>
512
				<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>
513
				<td>&nbsp;</td>
514
			</tr>
515
		</table>
516
		<!-- FOOTER -->
517
		<div align="left">
518
			<!--#include file="_footer.asp"-->
519
		</div>
520
	</body>
521
</html>