CREATE OR REPLACE PROCEDURE muestra_preguntas2 (seq NUMBER) AS CURSOR c1 IS SELECT titulo,pregunta,usuario,fecha,seq_pregunta FROM FORO_PREGUNTAS WHERE seq_tema = seq; temp NUMBER; cont NUMBER; aux VARCHAR2(1); BEGIN aux:=CHR(38); 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_PREGUNTAS WHERE seq_tema = seq; IF cont>0 THEN htp.print('
'); FOR reg IN c1 LOOP htp.print(''); SELECT COUNT(*) INTO temp FROM FORO_RESPUESTAS WHERE seq_pregunta=reg.seq_pregunta AND seq_tema=seq; htp.print(''); htp.print(''); END LOOP; htp.print('
TEMAS A DEBATE
 USUARIO FECHA Nº RESPUESTAS
'||reg.titulo||' '||reg.usuario||' '||reg.fecha||''||temp||'
'); ELSE htp.print('No existen actualmente Temas para este Foro'); END IF; htp.print('

'); END; /