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