<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Generate Files and Folders '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile Dim rsPkgInfo Dim retERRmsg Dim retParameters '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRfile = QStrPar("rfile") '---------------------------------------------- %> <% Sub RunGenerateComponents ( nPv_id ) Dim objWSH Set objWSH = Server.CreateObject("WScript.Shell") objWSH.Run "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:GetComponents "&_ "/pv_id:"& nPv_id &" /f", _ 0, True 'OraSession.BeginTrans 'OraDatabase.ExecuteSQL " UPDATE package_versions "&_ ' " SET release_notes_info = '"& enum_RELEASE_NOTES_FILES_RECAPTURED &"'"&_ ' " WHERE pv_id = "& nPv_id &_ ' " AND release_notes_info NOT LIKE 'MSG:%'" ' ' OraSession.CommitTrans End Sub %> <% '---------------------------------- MAIN LINE ---------------------------------------- ' REQUREMENTS CHECK Call RunGenerateComponents ( parPv_id ) 'Return Page If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then Response.Redirect ( "files_and_folders.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) Else Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) End If %>