CREATE OR REPLACE PROCEDURE muestra_proyectos AS
CURSOR c1 IS SELECT SEQ_PROYECTOW,TITULO,TEXTRES,FECHALT,BAJA,ENLACE,FOTO
from proyectosw
where BAJA = 'A' or BAJA = 'a'
order by FECHALT desc;
temp NUMBER;
cont NUMBER;
aux VARCHAR2(1);
col NUMBER(1);
fondocol varchar2(7);
raizwww varchar2(30);
BEGIN
raizwww:='webserver.emtsam.net';
col :=1;
htp.print('
Boletin de Noticias de EMT
');
SELECT nvl(COUNT(*),0) INTO cont
FROM proyectosw
WHERE baja = 'A' or baja = 'a';
IF cont > 0 THEN
htp.print('
');
FOR reg IN c1 LOOP
if col = 1 then
fondocol:='#F2F2F2';
col:=2;
else
fondocol:='#D6EFF0';
col:=1;
end if;
htp.print('