CREATE OR REPLACE PROCEDURE muestra_preguntas (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
');
SELECT COUNT(*) INTO cont FROM FORO_PREGUNTAS WHERE seq_tema = seq;
IF cont>0 THEN
htp.print('