<%@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 Dim userId 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 '----------------------------------------------------------------------------------------------------------------------- Function Get_DashBoard (nProjId) Get_DashBoard = _ " SELECT * FROM DASH_BOARD db, PROJECTS prj, RELEASE_TAGS rt where prj.proj_id = rt.proj_id and rt.rtag_id = db.rtag_id "&_ " and db.proj_id = "&nProjId&" order by last_build_time desc" End Function '----------------------------------------------------------------------------------------------------------------------- %> Release Manager

<% 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" Else msgScript = "memo" End If %> <% rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>
Message Board
Due Date Schedule a TaskMemo
 No messages at this time.
<%If rsTemp.Fields("due_date") <> "" Then%> ','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"> <%=EuroDate(rsTemp.Fields("due_date"))%>
<%Else%> <%End If%> 		','ReleaseManager','resizable=yes,width=400,height=300')" class="msgb_item"><%=Replace(rsTemp.Fields("msg_details"), VBNewLine, "
")%>


<% 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%>
Work In Progress
 User  Package Count
<%=rsTemp("full_name")%> <%=rsTemp("counter")%> "><%=rsTemp(">


Release Metrics
<% Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsWithMetrics.sql"), cint(0)) While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) OraDatabase.Parameters.Add "PROJ_ID", rsQry("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0)) If rsTemp.RecordCount > 0 Then Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2) End If %> <%If rsTemp.RecordCount > 0 Then%> <%Else%> <%End If%> <% OraDatabase.Parameters.Remove "PROJ_ID" rsTemp.Close() Set rsTemp = Nothing rsQry.MoveNext Wend rsQry.Close() Set rsQry = Nothing %>
Project Last Autobuilt
Release		 Last Autobuild
Completed		 Autobuilt Packages
" style="display:block;"> ', '<%=rsQry("proj_id")%>');"><%=rsQry("proj_name")%> " style="display:none;"> ', 'IMG_EXPAND_PROJ_<%=rsQry("proj_id")%>', 'IMG_COLLAPSE_PROJ_<%=rsQry("proj_id")%>');"><%=rsQry("proj_name")%> <%=rsTemp("rtag_name")%> <%=rsTemp("last_build_time")%><%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>)
" style="display:none;"><%=enumLOADING%>

<%If NOT objAccessControl.UserLogedIn Then%>
Members
Username
Password
>
);return document.MM_returnValue">


New Members
New Members SignUp Here.
Forgot your password?

 <%Else%>
G'day <%=Format_Full_Name( objAccessControl.FullName )%>!
Options below are shortcuts to your account.

<%Call Member_Menu( empty )%> <%End If%>