Borra objetos
Función a la que se le pasa un objeto para cerrarlo (close), borrarlo (nothing) o vaciarlo (empty). La función "clear" se encarga de averiguar de qué tipo es el objeto y realiza la acción oportuna.<%
Public Sub clear(byref var_obj)
dim str_type
str_type = lcase(TypeName(var_obj))
if isobject(var_obj) Then
if instr(str_type,"recordset") > 0 or instr(str_type,"connection") > 0 Then
if var_obj.state = 1 Then var_obj.close
end if
set var_obj = nothing
else
var_obj = empty
end if
End Sub
%>