CREATE OR REPLACE PROCEDURE muestra_noticias AS
CURSOR c1 IS SELECT seq_noticias,titular,cuerpo,foto,enlace,n_enlace,f_publicacion
FROM noticiasw
WHERE sysdate between f_publicacion and f_baja
order by f_publicacion 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 noticiasw
WHERE sysdate between f_publicacion and f_baja;
IF cont > 0 THEN
htp.print('
');
ELSE
htp.print('
|
|
|
Actualmente no existen Noticias en este Boletin |
|
|
|
|
');
END IF;
htp.print('
');
END;
/