This function accepts an object, plus two boolean parameters (whether to close the object, and whether to set it to nothing)

<%
Sub ObjDispose( _
   ByRef ObjToDispose, _
   ByVal blnClose, _
   ByVal blnNothing _
   )

   If blnClose then
      ObjToDispose.Close
   End If

   If blnNothing then
      Set ObjToDispose = Nothing
   End If

End Sub
'
' ...
'
Call objDispose(objRS, True, True)
Call objDispose(objCommand, False, True)
Call objDispose(objConn, True, True)
%>

Back to Code Listing | Homepage