Release Manager

<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Update Runtime Dependency '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRtd_id Dim rsRTD '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRtd_id = QStrPar("rtd_id") '---------------------------------------------- %> <% Sub Get_RTD_Details ( NNpv_id, NNrtd_id, OOrs ) Dim Query_String Query_String = _ " SELECT rtd.rtd_id, pkg.pkg_name, pv.pkg_version, rtd.rtd_comments, rtd.rtd_url,"&_ " rtd.mod_date"&_ " FROM packages pkg, package_versions pv, runtime_dependencies rtd"&_ " WHERE pv.pkg_id = pkg.pkg_id"&_ " AND rtd.rtd_id = pv.pv_id"&_ " AND rtd.pv_id = "& NNpv_id &_ " AND rtd.rtd_id = "& NNrtd_id Set OOrs = OraDatabase.CreateDynaset( Query_String, cint(0)) End Sub Sub Update_Runtime_Dependency ( NNpv_id, NNrtd_id, SSrtd_version, SSrtd_url, SSrtd_comments, NNuser_id ) On Error Resume Next objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL "BEGIN Update_Runtime_Dependency ( "& NNpv_id &", "&_ NNrtd_id &", "&_ "'"& SSrtd_version &"', "&_ "'"& SSrtd_url &"', "&_ "'"& SSrtd_comments &"', "&_ NNuser_id &" ); END;" objEH.CatchORA ( OraSession ) If objEH.Finally Then Call OpenInParentWindow ( "runtime_dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) End If rsTemp.Close Set rsTemp = nothing End Sub %> <% 'Process submition If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then Call Update_Runtime_Dependency ( parPv_id, parRtd_id, Request("FRversion"), Replace( Request("FRurl"), "http://", "" ), Request("FRcomm"), objAccessControl.UserId) End If %> <%Call Get_RTD_Details ( parPv_id, parRtd_id, rsRTD )%> Release Manager