Subversion Repositories DevTools

'     Set objWSH = Server.CreateObject("WScript.Shell")

'     'Used for getting the package name and package version

'     OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER

'

'     Set Qry = OraDatabase.DbCreateDynaset( "SELECT * FROM RELEASE_TAGS WHERE RTAG_ID = :RTAG_ID", 0 )

'

'     proj_id = Qry("proj_id")

'     sRtagName = UCase( Qry("rtag_name") )

'

'     Qry.Close()

'     Set Qry = Nothing

'

'     OraDatabase.Parameters.Remove "RTAG_ID"

'

'     ' Wait for the script to complete

'     '     - Improves reliability of RN Generation

'        objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents //job:GenerateReleaseNotes //job:PostRun "&_

'                    "/pv_id:"& nPv_id & " /proj_id:"& proj_id &" /rtag_name:"""&sRtagName&"", _

'                    0, True

'

'     Set objWSH = nothing