<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestProjectRelease.asp | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ Variable Definition ------------- Dim rsTemp Dim PageInfoHash Dim Query_String Dim Auto '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set PageInfoHash = CreateObject("Scripting.Dictionary") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------------------------------------------ %> <% '------------------------ MAIN LINE --------------------------------- '-------------------------------------------------------------------- %>
<% OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("ReleaseMetrics.sql"), cint(0)) OraDatabase.Parameters.Remove "PROJ_ID" If rsTemp.RecordCount < 1 Then %> <% Else While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Auto=FormatPercent(rsTemp("autobuilt")/rsTemp("total_packages"), 2) %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing End If %>
Release Last Autobuild
Completed
Autobuilt Packages Lines Of Code Unit Tested Autotested Branches
 
" style="display:block;"> ', '<%=rsTemp("rtag_id")%>');"><%=rsTemp("rtag_name")%> " style="display:none;"> ', 'IMG_EXPAND_RTAG_<%=rsTemp("rtag_id")%>', 'IMG_COLLAPSE_RTAG_<%=rsTemp("rtag_id")%>');"><%=rsTemp("rtag_name")%> <%=rsTemp("last_build_time")%> <%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>) <%=rsTemp("lines_of_code")%> <%=rsTemp("unit_tested")%> <%=rsTemp("autotested")%> <%=rsTemp("branches")%>
" style="display:none;"><%=enumLOADING%>

<% Call Destroy_All_Objects %>