CREATE OR REPLACE PROCEDURE noticias_prensa AS
CURSOR c1 IS SELECT fechanoticia, medio, avance, enlace
FROM emtprensa
order by fechanoticia desc;
temp NUMBER;
cont NUMBER;
aux VARCHAR2(1);
col NUMBER(1);
fondocol varchar2(7);
BEGIN
col :=1;
htp.print('
Noticias en Prensa de EMT
');
SELECT nvl(COUNT(*),0) INTO cont FROM emtprensa;
IF cont > 0 THEN
htp.print('
');
FOR reg IN c1 LOOP
if col = 1 then
fondocol:='#F2F2F2';
col:=2;
else
fondocol:='#C3C3C4';
col:=1;
end if;
htp.print('