<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| Log Download | '| | '===================================================== %> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '------------ VARIABLE DEFINITION ------------- '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- '-------------------------------------------------------------------------------------------------------------------------- %> <% '**************************** M A I N ****************************** If Request("pkg_id") <> "" Then OraDatabase.Parameters.Add "PKG_ID", Request("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMMENT", "Downloaded package version "&Request("pkg_version"), ORAPARM_INPUT, ORATYPE_NUMBER On Error Resume Next objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "COMMENT" On Error GoTo 0 Else Response.write "There is an error in download logging." End If If objEH.Finally Then Call OpenInParentWindow (Request("url")) Call CloseWindow End If '********************************************************************** Call Destroy_All_Objects %>