#!/usr/bin/perl use DBI; use CGI; require "ges/conf.pl"; use Data::Dumper; $q = new CGI; print $q->header; $id = $q->param('id'); #print " # # # "; print " "; $st = "SELECT * FROM destaque ORDER BY RAND()"; my $dbc = $dbh->prepare($st); $dbc->execute or print "Erro DB: $DBI::errstr\n$!"; $data = $dbc->fetchrow_hashref(); print "

"; print "

"; if( $data->{foto} ne "" ) { print "{id}\" target=main>

{foto}\" border=1 style=\"border-color:\#383838\">"; } else { #print "

"; print ""; } #Setar o LC_CTYPE para pt_PT.ISO8859-1 se o CHARSET=latin1 na bd #print `locale`; use POSIX qw(locale_h); setlocale(LC_CTYPE, "pt_PT.ISO8859-1"); use locale; $nome = uc($data->{nome}); print "

$nome

"; print "