Hice este procedimiento recursivo que por el momento me guarda los nombres de la categoría en un array, y luego lo muestro. El tema es que cuando intento sacar la conexión fuera de este procedimiento me da el siguiente error:
No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto.
Por que me sale ese error?
Acá les dejo el código haber si me pueden dar una mano:
Código:
dim categories(2)
sub getParents(param_id, element)
sql = "SELECT CAT_IDDEP, CAT_NOMBRE FROM CAT_CATEGORIAS WHERE
CAT_ID = " & param_id
set conn = server.createObject("ADODB.connection")
conn.open application("conexion")
set rs = server.createObject("ADODB.recordSet")
rs.open sql, conn
if not rs.eof then
categories(element) = rs("CAT_NOMBRE")
element = element + 1
getParents rs("CAT_IDDEP"), element
end if
rs.close()
set rs = nothing
conn.close()
set conn = nothing
end sub
Muchas gracias.
Suerte!!.