CREATE OR REPLACE PROCEDURE muestra_respuestas_emt (seq NUMBER,seqp NUMBER) AS CURSOR c1 IS SELECT respuesta,usuario,fecha FROM FORO_RESPUESTAS WHERE seq_tema = seq AND seq_pregunta=seqp; temp NUMBER; cont NUMBER; perfil varchar2(100); BEGIN htp.print(' Menu Principal




Empresa
Empresa
En Números
Noticias
Nuestros Proyectos
Tu Página Personal
Tu Opinion
Tus
Otros
Página de Inicio

'); SELECT COUNT(*) INTO cont FROM FORO_RESPUESTAS WHERE seq_tema = seq AND seq_pregunta=seqp; IF cont>0 THEN htp.print('
'); FOR reg IN c1 LOOP if reg.usuario!='PORTAL' then select categoria into perfil from info_portal_empleados where num_ident=reg.usuario; else perfil:=reg.usuario; end if; htp.print(''); htp.print(''); END LOOP; htp.print('
OPINIONES
 USUARIO FECHA
'||reg.respuesta||' '||perfil||' '||reg.fecha||'
'); ELSE htp.print('
¡¡No existen actualmente Opiniones para este Tema!!

'||chr(38)||'nbsp;'||chr(38)||'nbsp; '||chr(38)||'nbsp;'||chr(38)||'nbsp;'||chr(38)||'nbsp;
'); END IF; htp.print('

'); END; /