<%@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 Dim BaseId '------------ 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("ReleaseMetricsFull.sql"), cint(0)) OraDatabase.Parameters.Remove "PROJ_ID" If rsTemp.RecordCount < 1 Then%> <%Else While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) BaseId = "RTAG_" & rsTemp("rtag_id") 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 Packages
Unit Tested		 Packages
Autotested		 Total Auto
Test Count
 
');"><%=ReleaseIcon(rsTemp("official"))%> <%=rsTemp("rtag_name")%> <%=rsTemp("last_build_time")%> <%=rsTemp("autobuilt")%>/<%=rsTemp("total_packages")%> (<%=Auto%>) <%=rsTemp("lines_of_code")%> <%=rsTemp("unit_tested")%> <%=rsTemp("autotested")%> <%=rsTemp("total_test_count")%>

<% Call Destroy_All_Objects %>