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('
|
|
');
END LOOP;
htp.print(' |
');
END IF;
htp.print('
');
END;
/