use CGI;
use DBI;
my $cgi = new CGI;
my $dbh = DBI->connect('DBI:mysql:radel:localhost', 'wwwrun','wwwrun',
{ PrintError => 0}) || die $DBI::errstr;
!>//
Guía de Navegación - MENÚ PRINCIPAL
 |
GUIA DE NAVEGACIÓN -
MENU PRINCIPAL |
Esta Guía recoge los principales recursos de información
disponibles en la World Wide Web
de utilidad para los Agentes de Desarrollo Local y, en
general, aquellas personas interesadas
en la promoción económica y el desarrollo local.
|
ÁREAS DE INTERÉS
=${\( lista_areas(\$dbh) )}!>//
| Esta Guía
pretende acumular sólo aquellas direcciones de mayor utilidad para sus usuarios.
Ello sólo puede conseguirse con su colaboración activa, aportando nuevas
direcciones y descartando aquellas que no se consideren como indispensables o
interesantes para su trabajo. Para cualquier comentario sobre la Guía,
sugerencia o recomendación de nuevas direcciones URL, puede utilizar el tema
“Comentarios a la Guía de Navegación” del Foro de Desarrollo Local. Para
cualquier otra duda, puede ponerse en contacto con Alberto Demetrio en daleph.ad@retemail.es. |
$dbh->disconnect;
!>//
sub lista_areas {
my $dbh = shift;
my $return = '';
my $SQL;
my $resumen = '';
my $areainteres = '';
my $area = '';
my $SQL = <<"EOT";
select C_Areas_interes,Areas_interes,Comentario_del_Area
from Areas_interes
EOT
my $cursor = $$dbh->prepare($SQL);
$cursor->execute;
my @fields;
while (@fields = $cursor->fetchrow)
{
$area=$fields[0];
$areainteres=$fields[1];
$resumen=$fields[2];
if(@fields = $cursor->fetchrow)
{
$return.= "| $fields[1] | $areainteres |
";
$return.= "| $fields[2] | $resumen |
";
}
}
$cursor->finish;
$return;
}
!>//