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('
'); END LOOP; ELSE htp.print('
Boletin de Noticias .- '||reg.titular||'
'||reg.cuerpo||'
'||reg.f_publicacion||'

No existen Noticias Actualmente en este Boletín
'); END IF; htp.print('
'); END; /