Thanks!... The code is:

use CGI;
use DBI;
use Encode;


my $q = CGI->new;

my $fecha= $q->param('theDate');

my $orden= $q->param('orden');

print $q->header, $q->start_html(-lang=>'es-SP',-title=> 'Reservas CPA
+'), $q->h2({-align=>'CENTER'},decode("utf-8","Reservas para el día: "
+)."$fecha ordenadas por $orden\n\n");

my $dbh = DBI->connect("dbi:SQLite:dbname=cpa-simple.db", "", "", {Rai
+seError =>1 } );

my $sth = $dbh->prepare( q ( select id_reserva,activo,tipo_reserva,ent
+idad_nombre_reserva,nombre,apellidos,telefono,inicio_reserva,fin_rese
+rva,periodicidad,horai,horaf,nombre_admin from reserva,activos,nombre
+,administ where reserva.ac\
tivos_reserva_id=activos.id_activos and reserva.nombre_reserva_id=nomb
+re.id_dni and reserva.administ_reserva_id=administ.id_administ and ju
+lianday( ? ) between julianday ( inicio_reserva ) and julianday ( fin
+_reserva ) order by ?)) or\
 die "No puedo preparar la sentencia: " .$dbh->errstr;

my @data;

$sth->execute("$fecha","$orden") or die "Algo está pasando... ¡Llama a
+ los bomberos!: " . $sth->errstr;

my @datautf8;
print
    $q->start_table({-border=>'1', -align=>'center',-cellpadding=>'6'}
+),"\n\n",
    $q->start_Tr,
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Núm.")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Material")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Carácter")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Entidad")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Nombre")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Apellidos")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Teléfono")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Inicio de reserva")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Fin de reserva")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Periódica")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Hora inicio")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Hora finalización")),"\n",
    $q->end_td, "\n",
    $q->start_td({align=>'center'}),"\n",
        $q->p(decode("utf-8","Administrador")),"\n",
    $q->end_td, "\n",
    $q->end_Tr,"\n";
while ( @data = $sth->fetchrow_array()){

    @datautf8 = map(decode("utf-8",$_), @data);
print
    $q->start_Tr,
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[0]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[1]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[2]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[3]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[4]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[5]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[6]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[7]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[8]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[9]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[10]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[11]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[12]"),"\n",
    $q->end_td,"\n",
    $q->start_td({-align=>'left'}),"\n",
        $q->p("$datautf8[13]"),"\n",
    $q->end_td,"\n",
    $q->end_Tr,"\n\n";

}

$q->end_table;
print $q->end_html;

$sth->finish;

$dbh->disconnect;

exit 0;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.