Boletin de Noticias de Santa Teresa 1881

CREATE OR REPLACE PROCEDURE muestra_historicoPro AS CURSOR c1 IS SELECT SEQ_PROYECTOW,TITULO,TEXTRES,FECHALT,BAJA,ENLACE,FOTO from proyectosw where BAJA != 'A' or BAJA != 'a' order by FECHALT 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 proyectosw where upper(baja) <> 'A'; 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 Proyectos

volver

'||to_char(reg.fechalt,'dd-mm-yy')||' - '||reg.titulo||'

'); ELSE htp.print('

Volver

No existen Proyectos en el Historico

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