<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Action Log | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsTemp Dim rsQry Dim retVal Dim sActionDate, sUsername, sAction_type, sDescription '------------ Constants Declaration ----------- '------------ Variable Init ------------------- '---------------------------------------------- %> <%=Title(Request("rtag_id"))%>
<%Call RenderActionBar(parRtag_id,parPv_id)%>
<%Call RenderStatus(parRtag_id,parPv_id)%>  
 
<%Call Generate_Tab_Menu ( TABarray1, "Action Log", "orange" )%>
 
 

Action Log
<% OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageActionLog.sql"), cint(0)) %> <%If rsTemp.RecordCount < 1 Then%> <%End If%> <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing OraDatabase.Parameters.Remove "PV_ID" %>
 Date  Action   Description  
     
<%=EuroDateTime( rsTemp("action_datetime") )%> by " title="<%=rsTemp("user_email")%>" class="txt_linked"><%=rsTemp("FULL_NAME")%> <%=rsTemp("acttype")%> <%=NewLine_To_BR( To_HTML ( rsTemp("description") ) )%>

 
<% Call Destroy_All_Objects %>