Subversion Repositories DevTools

Rev

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

Rev 23 Rev 27
Line 83... Line 83...
83
			
83
			
84
	End Select
84
	End Select
85
	
85
	
86
End Sub
86
End Sub
87
'-----------------------------------------------------------------------------------------------------------------
87
'-----------------------------------------------------------------------------------------------------------------
-
 
88
Function UserName (nUserId)
-
 
89
 
-
 
90
If nUserId <> "" Then
-
 
91
 
-
 
92
	Dim rsTemp, user_name
-
 
93
 
-
 
94
	Set rsTemp = OraDatabase.DbCreateDynaset( "select * from users where user_id ="&nUserId , ORADYN_DEFAULT )
-
 
95
 
-
 
96
	user_name = rsTemp("full_name")
-
 
97
 
-
 
98
	rsTemp.Close()
-
 
99
	Set rsTemp = Nothing
-
 
100
 
-
 
101
UserName = user_name  
-
 
102
 
-
 
103
Else
-
 
104
 
-
 
105
UserName = NULL
-
 
106
 
-
 
107
End If
-
 
108
 
-
 
109
 
-
 
110
End Function
-
 
111
'-----------------------------------------------------------------------------------------------------------------
88
%>
112
%>
89
<%
113
<%
90
'------------ RUN BEFORE PAGE RENDER ----------
114
'------------ RUN BEFORE PAGE RENDER ----------
91
'----------------------------------------------
115
'----------------------------------------------
92
%>
116
%>
Line 340... Line 364...
340
		OraDatabase.Parameters.Remove "PROD_ID"
364
		OraDatabase.Parameters.Remove "PROD_ID"
341
		OraDatabase.Parameters.Remove "OLD_PROD_ID"
365
		OraDatabase.Parameters.Remove "OLD_PROD_ID"
342
		OraDatabase.Parameters.Remove "PKG_ID"
366
		OraDatabase.Parameters.Remove "PKG_ID"
343
		OraDatabase.Parameters.Remove "V_EXT"
367
		OraDatabase.Parameters.Remove "V_EXT"
344
		%>
368
		%>
-
 
369
</p>
-
 
370
<!-- Realease Authorisation -------------------------------------------------------------------------------------------- -->
-
 
371
		<SPAN class="body_colb">Release Authorisation </SPAN>
-
 
372
<%
-
 
373
Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_authorisation where pv_id="&dbPARprod_id, ORADYN_DEFAULT )
-
 
374
If rsQry.RecordCount > 0 Then
-
 
375
%>		
-
 
376
		<table width="100%"  border="0" cellspacing="3" cellpadding="0">
-
 
377
 
-
 
378
              <tr>
-
 
379
              <td background="images/bg_bage_0a.gif">
-
 
380
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
-
 
381
                <tr>
-
 
382
                  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
-
 
383
                  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Tester</td>
-
 
384
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Tester Comments</td>
-
 
385
				
-
 
386
                </tr>
-
 
387
                <tr>
-
 
388
                  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_datestamp")%></td>
-
 
389
                  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("tester_id"))%></td>
-
 
390
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("tester_comments")%></td>
-
 
391
				
-
 
392
                </tr>				
-
 
393
				<%'objRepeater.RenderDataGrid ()%>
-
 
394
              </table>
-
 
395
			  
-
 
396
			   <table width="100%"  border="0" cellspacing="1" cellpadding="3">
-
 
397
                <tr>
-
 
398
				  <td width="10%" background="images/bg_bage_0.gif" class="body_col">Date</td>
-
 
399
				  <td width="20%" background="images/bg_bage_0.gif" class="body_col">Regional Manager</td>
-
 
400
				  <td width="70%" background="images/bg_bage_0.gif" class="body_col">Manager Comments</td>				  				  				  
-
 
401
                </tr>
-
 
402
                <tr>
-
 
403
				  <td width="10%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_datestamp")%></td>
-
 
404
				  <td width="20%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=UserName(rsQry("manager_id"))%></td>
-
 
405
				  <td width="70%" background="images/bg_lght_gray.gif" class="body_rowlite"><%=rsQry("manager_comments")%></td>				  				  				  
-
 
406
                </tr>				
-
 
407
				<%'objRepeater.RenderDataGrid ()%>
-
 
408
              </table>			  
-
 
409
			 </td>
-
 
410
            </tr>
-
 
411
        </table>
-
 
412
<%
-
 
413
Else
-
 
414
%>	
-
 
415
<SPAN class="body_col">No Information </SPAN>
-
 
416
 
-
 
417
		
-
 
418
<%
-
 
419
End If
-
 
420
rsQry.Close()
-
 
421
Set rsQry = Nothing
-
 
422
 
-
 
423
%>		
-
 
424
		
-
 
425
			<p>		    
345
		<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
426
		  <!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
346
		</td>
427
	      </p></td>
347
      </tr>
428
      </tr>
348
    </table>
429
    </table>
349
	</td>
430
	</td>
350
    <td width="1%" valign="top" background="images/bg_favourits.gif">
431
    <td width="1%" valign="top" background="images/bg_favourits.gif">
351
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
432
	<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
Line 445... Line 526...
445
Set objPMod = Nothing
526
Set objPMod = Nothing
446
Set objCrumbs = Nothing
527
Set objCrumbs = Nothing
447
Set objTabControl = Nothing
528
Set objTabControl = Nothing
448
Set objBtnControl = Nothing
529
Set objBtnControl = Nothing
449
'----------------------------------------------
530
'----------------------------------------------
450
%><!--#include file="common/globals_destructor.asp"-->
-
 
451
531
%><!--#include file="common/globals_destructor.asp"-->
-
 
532