<%@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 ------------------- '---------------------------------------------- %>

<%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  Who  Action   Description           <%=rsTemp("action_timestamp")%> by <%=emailField(enum_imgUser & rsTemp("FULL_NAME"),rsTemp("user_email"))%> <%=rsTemp("acttype")%> <%=NewLine_To_BR( To_HTML ( rsTemp("description") ) )%>