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('
');
ELSE
htp.print('
|
|
|
Actualmente no existen Proyectos en Curso |
|
|
|
|
');
END IF;
htp.print('
');
END;
/