CREATE OR REPLACE PROCEDURE muestra_temas IS
CURSOR c1 IS SELECT DISTINCT seq_tema,tema,fecha FROM FORO_TEMA;
BEGIN
htp.print('
Foro de Interno de la EMT de Malaga
');
htp.print('
FOROS TECNOLOGICOS |
FECHA |
');
FOR reg IN c1 LOOP
htp.print('
| '||reg.tema||' |
'||reg.fecha||' |
');
END LOOP;
htp.print('
');
END;
/