Subversion Repositories DevTools

'-----------------------------------------------------------------------------------------------------------------------------

'   Destroy_All_Objects

'   Should be used by ALL pages and error handling code in order to reduce memory and handle leaks

'   May be used directly or via _footer.asp or globals_destructor.asp

Sub Destroy_All_Objects

    On Error Resume Next

    '   Some global objects

    Set objAccessControl = Nothing

    Set objPMod = Nothing

    Set objEH = Nothing

    Set objTabControl = Nothing

    Set objBtnControl = Nothing

    Set objFormCollector = Nothing

    '   Delete ALL Oracle bound variables

    '   Note: Bound Variables that remain at the end of a Page Process will cause an Oracle Session leak

    If TypeName(OraDatabase) = "IOraDatabase" Then

        While OraDatabase.Parameters.Count > 0

            OraDatabase.Parameters.Remove(0)

        Wend

    End  If

    '   Some commonly used database objects

    rsTemp.Close

    Set rsTemp = Nothing

    rsRep.Close

    Set rsRep = Nothing

    rsQry.Close

    Set rsQry = Nothing

    '   Database objects

    set OraDatabase = Nothing

    set OraSession = Nothing

End Sub