Boletin de Noticias de Santa Teresa 1881

CREATE OR REPLACE PROCEDURE muestra_historiconot 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; 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 '); SELECT nvl(COUNT(*),0) INTO cont FROM noticiasw where f_baja < sysdate; IF cont > 0 THEN htp.print(' '); FOR reg IN c1 LOOP if col = 1 then fondocol:='#F2F2F2'; col:=2; else fondocol:='#D7D7FF'; col:=1; end if; htp.print(' '); END LOOP; htp.print('

Historico de Noticias

volver

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

'); ELSE htp.print('

Volver

No existen Noticias Actualmente en este Boletin

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