Proyectos
	<% dim idProyectoActual idProyectoActual = -1 strSQL = "sp_pro_sel_proyectosImg " & sistema set rs = CreaRS(strSQL) Do while not rs.Eof if (idProyectoActual <> rs("idProyecto")) Then %> <% End if idProyectoActual = rs("idProyecto") rs.MoveNext Loop cerrarRS(rs) cerrar() %> Aplicaciones para la Industria   <% dim idProyectoActual idProyectoActual = -1 strSQL = "sp_pro_sel_proyectosImg " & sistema set rs = CreaRS(strSQL) Do while not rs.Eof if (idProyectoActual <> rs("idProyecto")) Then %> <% End if idProyectoActual = rs("idProyecto") rs.MoveNext Loop cerrarRS(rs) cerrar() %> Aplicaciones para la Administración   <% dim idProyectoActual idProyectoActual = -1 strSQL = "sp_pro_sel_proyectosImg " & sistema set rs = CreaRS(strSQL) Do while not rs.Eof if (idProyectoActual <> rs("idProyecto")) Then %> <% End if idProyectoActual = rs("idProyecto") rs.MoveNext Loop cerrarRS(rs) cerrar() %> Aplicaciones para Interiorismo Comercial   <% dim idProyectoActual idProyectoActual = -1 strSQL = "sp_pro_sel_proyectosImg " & sistema set rs = CreaRS(strSQL) Do while not rs.Eof if (idProyectoActual <> rs("idProyecto")) Then %> <% End if idProyectoActual = rs("idProyecto") rs.MoveNext Loop cerrarRS(rs) cerrar() %> Aplicaciones para Interiorismo de Viviendas