<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| RequestReleasePackages.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 "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageMetricsList.sql"), cint(0)) OraDatabase.Parameters.Remove "RTAG_ID" If rsTemp.RecordCount < 1 Then %> <% Else While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) %> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing End If %> Package Version Autobuilt Lines Of Code Unit Tested Autotested Branches   &rtag_id=<%=rsTemp("rtag_id")%>"><%=rsTemp("pkg_name")%><%=VBNEWLine%><%=rsTemp("pkg_version")%> <%If rsTemp("is_autobuildable") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsTemp("code_lines")%> <%If rsTemp("unit_tested") = "Y" Then%>Yes<%Else%>No<%End If%> <%If rsTemp("autotested") = "Y" Then%>Yes<%Else%>No<%End If%> <%=rsTemp("branches")%>

<% Call Destroy_All_Objects %>