CREATE OR REPLACE PROCEDURE muestra_miscelania AS
CURSOR c1 IS SELECT seq_miscelaniaw,titulo,comentario,nfoto,fecha
FROM miscelania
order by fecha ASC;
temp NUMBER;
cont NUMBER;
conta2 number :=0;
conta1 number :=0;
conta number :=0;
aux VARCHAR2(1);
aux2 number(5);
col NUMBER(1);
fondocol varchar2(7);
raizwww varchar2(30);
BEGIN
raizwww:='webserver.emtsam.net';
col :=1;
htp.print('
Boletin de Noticias de EMT
');
SELECT nvl(COUNT(*),0) INTO cont FROM miscelania;
IF cont > 0 THEN
FOR reg IN c1 LOOP
conta:= conta + 1;
conta2:= conta +1;
conta1:= conta -1;
if conta1 = 0 then
conta1:=conta;
else
conta1:=conta-1;
end if;
if conta2 > cont then
conta2:=conta;
else
conta2:=conta+1;
end if;
if col = 1 then
fondocol:='#F2F2F2';
col:=2;
else
fondocol:='#EDEDFA';
col:=1;
end if;
htp.print('
|
|
'||reg.fecha||' - '||reg.titulo||'
'||reg.comentario||' |
| |
');
END LOOP;
ELSE
htp.print('
|
|
|
Actualmente no existen Contenido en esta Sección. |
|
|
|
|
');
END IF;
htp.print('
');
END;
/