Hola u_goldman, gracias por contestar.
Yo crei que se podian devolver otros objetos, de hecho se puede, pero parece que no es lo correcto, no se, funciona, pero lerdo.
Yo lo hago de la siguiente forma:
Código:
class comercio
private int_id, v_obj_producto
public property get id()
id = int_id
end property
...
public function load_productos()
sql = "sel.."
gr = rs.getrows
if isarray(gr) then
for i = 0 to ubound(gr,2)
set v_obj_producto(i) = new producto
v_obj_producto(i).load(gr(0,i))
next
load_productos = true
else
load_productos = false
end if
end function
public property get productos()
productos = v_obj_producto
end property
enc class
class producto
private str_nombre
public function load(id)
sql = "... where id = " & id
gr = rs.getrows
str_nombre = gr(0,0)
...
end function
public property get nombre()
nombre = str_nombre
end property
end class
Se aplicaria:
Código:
dim obj_comercio
set obj_comercio = new comercio
if obj_comercio.load_productos then
for each obj_producto in obj_comercio.productos
response.write(obj_producto.nombre)
...
next
end if
Quedaría lindo, pero no se si es correcto hacer esto.
Hasta luego!