<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Add Package Interest '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile Dim rsPkgInfo Dim retERRmsg Dim retParameters Dim parPkg_id Dim parProj_id '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProj_id = Request("proj_id") parRfile = QStrPar("rfile") parPkg_id = Request("pkg_id") '---------------------------------------------- %> <% Sub Add_Package_Interest ( nProj_id, nPkg_id ) OraDatabase.Parameters.Add "PROJ_ID", nProj_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", nPkg_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN ADD_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "USER_ID" 'Response.Write(objAccessControl.UserId) End Sub %> <% '---------------------------------- MAIN LINE ---------------------------------------- Call Add_Package_Interest(parProj_id, parPkg_id) %> <% Call CloseWindow() 'Return Page 'If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then ' Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) 'Else ' Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) 'End If %>