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