Otra chorradita es la de limpiar los objetos que creamos.
Con esta función se escribirá lo mínimo posible.
Código:
Sub LimpiaObj(objeto)
On Error Resume Next
If isObject(objeto) Then
If (objeto.State=1) Then 'comprueba si esta abierto
objeto.Close
End If
Set objeto = Nothing
End If
End Sub
El error resume es necesario debido a que hay objetos que poseen la propiedad State pero no admiten el metodo Close.
Si tengo tiempo iré publicando tips que si bien no aportan nada nuevo, si ayudan a realizar tareas repetitivas.
Yo suelo meter todas estas funcioncillas en un include en todas mis paginas, de manera que me son accesibles rapidamente.
El colmo de la vagancia son estas 3 funciones:
Function rw(str)
rw=Response.Write(str)
End Function
Function rf(elemento)
rf=Request.Form(elemento)
End Function
Function rq(elemento)
RF=Request.Querystring(elemento)
End Function
Pero poco a poco se le va cogiendo el gustillo a estas simplezas.
Salu2