<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| INDEX | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parMsg Dim msgScript, msgTitle Dim userId Dim pkgCount Dim rsQry Dim rsLastRelease Dim AutomatedPackages, TotalPackages Dim Query_String Dim Auto '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parMsg = QStrPar("msg") ' Messages '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- Function Get_Messages Get_Messages = _ " SELECT * FROM message_board WHERE expiry_date > "& ORA_SYSDATE &" OR due_date >= "& ORA_SYSDATE &"+2" End Function '----------------------------------------------------------------------------------------------------------------------- %> Release Manager <%bCsvExport = True%>

Message Board
<% Set rsTemp = OraDatabase.DbCreateDynaset( Get_Messages, cint(0)) If rsTemp.RecordCount < 1 Then Response.write "" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) If rsTemp.Fields("due_date") <> "" Then msgScript = "schedule" msgTitle = "Edit Scheduled Task" Else msgScript = "memo" msgTitle = "Edit Memo" End If %> <% rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>
 Due Date
 No messages at this time.
<%If rsTemp.Fields("due_date") <> "" Then%> ','<%=msgTitle%>')" class="msgb_item"> <%=DisplayDate(rsTemp.Fields("due_date"))%> <%Else%> <%End If%> ','<%=msgTitle%>')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "
")%>


Work In Progress<%=Quick_Help("h_wip")%>
<% If objAccessControl.UserLogedIn Then OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkInProgressByUser.sql"), cint(0)) OraDatabase.Parameters.Remove "USER_ID" userId = rsTemp("user_id") %> <% rsTemp.Close Set rsTemp = nothing End If%>
 User  Package Count
<%=emailField(enum_imgUserLg & rsTemp("full_name"), rsTemp("user_email"))%> <%=rsTemp("counter")%>
<% pkgCount = 0 If objAccessControl.UserLogedIn Then OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("WorkNotInProgressByUser.sql"), cint(0)) OraDatabase.Parameters.Remove "USER_ID" userId = rsTemp("user_id") pkgCount = rsTemp("counter") End If %>
Dangling Package Versions <%=Quick_Help("h_dangling")%> <%If pkgCount > 10 Then%> <%End If%>
<%If objAccessControl.UserLogedIn Then %> <% rsTemp.Close Set rsTemp = nothing End If%>
 User  Package Count
<%=emailField(enum_imgUserLg & rsTemp("full_name"), rsTemp("user_email"))%> <%=pkgCount%>


Release Metrics
<% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetricsSummary.sql"), cint(0)) While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Dim proj_id: proj_id = rsQry("proj_id") Auto=FormatPercent(rsQry("autobuilt")/rsQry("total_packages"), 2) %> <% rsQry.MoveNext Wend rsQry.Close() Set rsQry = Nothing %>
Project Last Built Release Completed Autobuilt Packages
');"> <%=rsQry("proj_name")%> <%=rsQry("rtag_name")%> <%=rsQry("last_build_time")%> <%=rsQry("autobuilt")%>/<%=rsQry("total_packages")%> (<%=Auto%>)