CREATE OR REPLACE PROCEDURE noticiacw(seq_notcw number) AS
CURSOR c1 IS SELECT seq_noticias,titular,cuerpo,foto,enlace,n_enlace,f_publicacion
FROM noticiasw
WHERE seq_noticias = seq_notcw;
cont NUMBER;
aux VARCHAR2(1);
fondocol varchar2(7);
raizwww varchar2(30);
BEGIN
fondocol:='#F2F2F2';
raizwww:='webserver.emtsam.net';
htp.print('
Boletin de Noticias de Santa Teresa 1881
|
');
SELECT COUNT(*) INTO cont FROM noticiasw;
IF cont > 0 THEN
FOR reg IN c1 LOOP
htp.print('
|
Boletin de Noticias .- |
'||reg.titular||' |
|
|
|
'||reg.f_publicacion||'
|
|
|
');
END LOOP;
ELSE
htp.print('
No existen Noticias Actualmente en este Boletín |
');
END IF;
htp.print('
|