Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|                                Log Download                                   |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0    ' always load the page, dont store
%>
<!--#include file="common/globals.asp"-->
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/_popup_window_common.asp"-->

<%
'------------ 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
%>