Código fuente de 'Borra objetos.asp'

<html>

<head>
<title>Borra objetos - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>

<body style="font-family: Arial; font-size: 9pt">

<p align="center"><b><font size="3">Borra objetos</font></b></p>
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.<br>
<%
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
%>

<p><i>&lt;%<br>
Public Sub clear(byref var_obj)<br>
dim str_type<br>
str_type = lcase(TypeName(var_obj))<br>
if isobject(var_obj) Then<br>
if instr(str_type,&quot;recordset&quot;) &gt; 0 or instr(str_type,&quot;connection&quot;) &gt; 0 Then<br>
if var_obj.state = 1 Then var_obj.close<br>
end if<br>
set var_obj = nothing<br>
else<br>
var_obj = empty<br>
end if<br>
End Sub<br>
%&gt;</i></p>

</body></html>