Boletin de Noticias de Santa Teresa 1881

CREATE OR REPLACE PROCEDURE muestra_ultnot2 AS CURSOR c1 IS SELECT seq_noticias,titular,cuerpo,foto,enlace,n_enlace,f_publicacion FROM noticiasw WHERE f_baja > sysdate order by f_publicacion desc; temp NUMBER; cont NUMBER; contador number:=0; 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 Santa Teresa 1881 '); htp.print('

'); SELECT nvl(COUNT(*),0) INTO cont FROM noticiasw where f_baja > sysdate; IF cont > 0 THEN htp.print('

Ultimas Noticias

'); FOR reg IN c1 LOOP if contador >= 8 then exit; end if; htp.print(' '); contador:=contador+1; END LOOP; htp.print('

'||to_char(reg.f_publicacion,'dd-mm-yyyy')||' - '||reg.titular||'

'); ELSE htp.print('

Ultimas Noticias

Sin Novedades

'); END IF; htp.print(' '); END; /