CREATE OR REPLACE PROCEDURE muestra_respuestas (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;
BEGIN
htp.print('
Menu Principal
');
SELECT COUNT(*) INTO cont FROM FORO_RESPUESTAS WHERE seq_tema = seq AND seq_pregunta=seqp;
IF cont>0 THEN
htp.print('
OPINIONES
USUARIO
FECHA
');
FOR reg IN c1 LOOP
htp.print('
'||reg.respuesta||'
'||reg.usuario||'
'||reg.fecha||'
');
htp.print('
');
END LOOP;
htp.print('
');
ELSE
htp.print('
¡¡No existen actualmente Opiniones para este Tema!!