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



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 htp.print(''); htp.print(''); END LOOP; htp.print('
OPINIONES
 USUARIO FECHA
'||reg.respuesta||' '||reg.usuario||' '||reg.fecha||'
'); ELSE htp.print('
¡¡No existen actualmente Opiniones para este Tema!!
'); END IF; htp.print('

'); end; /