CREATE OR REPLACE PROCEDURE muestra_tablon AS CURSOR c1 IS SELECT usuario,fecha_inicio, fecha_fin, anuncio FROM TABLON WHERE fecha_fin>=SYSDATE ORDER BY FECHA_INICIO DESC; cont NUMBER; raizwww varchar2(30); BEGIN raizwww:='webserver.emtsam.net'; htp.print(' Menu Principal




Empresa
Empresa
En Números
Noticias
Nuestros Proyectos
Tu Página Personal
Tu Opinion
Tus
Otros
Página de Inicio

'); SELECT COUNT(*) INTO cont FROM TABLON ORDER BY FECHA_INICIO DESC; IF cont>0 THEN htp.print('
Los anuncios serán publicados durante un periodo de 30 días
'); FOR reg IN c1 LOOP htp.print(''); htp.print(''); END LOOP; htp.print('
TABLON DE ANUNCIOS
 CONTACTAR FECHA
'||reg.anuncio||' '||reg.usuario||' '||reg.fecha_inicio||'
'); END IF; htp.print('

'); END; /