<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' _wform_build_package.asp '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim sMessage, sMessageType Dim rsTemp, TotalBuildTime, BuildTime Dim bLongBuild '------------ Constants Declaration ----------- '------------ Variable Init ------------------- sMessage = NULL sMessageType = 3 '---------------------------------------------- '--- Before Render ' Estimate the complete ripple time of this package ' Provide a warning if the complete ripple time is long OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PV_ID", Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER On Error Resume Next Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("CalcRippleTime.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "RTAG_ID" If rsTemp.RecordCount > 0 Then TotalBuildTime = NiceCLng (rsTemp("Total_BuildTime"), 0) BuildTime = NiceCLng (rsTemp("BuildTime"), 0) If TotalBuildTime > 2 * 60 * 60 Then bLongBuild = TRUE End If End If rsTemp.Close() Set rsTemp = nothing If err.Number <> 0 Then Call sMessageAdd(2,"Error calculating build time") End If '------------------------------------------------------------------------------------------------------------------------------------------ ' Add a line of text to the System Message ' Sub sMessageAdd(eLevel, text) If NOT isNull(sMessage) Then sMessage = sMessage & "
" End If sMessage = sMessage & text If eLevel < sMessageType Then sMessageType = eLevel End If End Sub '------------------------------------------------------------------------------------------------------------------------------------------ 'Call sMessageAdd(1,"Just a Test") %>

<%Call Messenger ( sMessage , sMessageType, "100%" )%>

Approve this package for autobuild

Estimated build duration: <%=IIF(BuildTime > 0, NiceDuration(BuildTime), "Unknown")%>
Estimated duration of complete ripple: <%=IIF(TotalBuildTime, NiceDuration(TotalBuildTime), "Unknown")%>

<%If bLongBuild Then%>

This package will cause a significant ripple.
Consider scheduling it for a time to minimise dev impact.

<%End If%>

Perth Time:

In:

>Schedule >Include immediately