Syntax error with while

[lanzaroto]

Hi,

I am trying to print on html page the result of select

I have this error;

----------------------------------------------
Syntax error at requete line 90, near "while"
requete had compilation errors (#1)
    (F) The final summary message when a perl -c fails.

[Sun Nov  9 16:55:15 2003] requete: syntax error at requete line 90,
near "while"
[Sun Nov  9 16:55:15 2003] requete: requete had compilation errors.

----------------------------------------------


under is a part of my script, sorry for the lengh

<---------------beginning--------------------->
    my $NOM_TABLE = $REQ->param("NOM_TABLE");
    my $liste_champs = join(",", @NOMS_CHAMPS);
    my $SQL = "SELECT $liste_champs FROM $NOM_TABLE";

    $DBH =
DBI->connect("DBI:mysql:database=docbase",'pelagie','beTz52wd') or die
"Echec de la connection : " . DBI::errstr;

    $STH = $DBH->prepare($SQL)or die "impossible de preparer: 
$DBH->errstr()";
    $STH->execute() or die "impossible d'executer : $STH->errstr()";

print $REQ->table({-align=>'top',border=>'0' ,width=>'100%'},
                  $REQ->Tr,
                  $REQ->td(
                           $REQ->table({-align=>'left',border=>'0' ,width=>'50%'},
                                       $REQ->start_form(-method=>'post'),
                                       $REQ->Tr,
                                       $REQ->td("NOM"),
                                       $REQ->td(textfield('nom')),
                                       $REQ->Tr,
                                       $REQ->td("PRENOM"),
                                       $REQ->td(textfield('prenom')),
                                       $REQ->Tr,
                                       $REQ->td("E-MAIL"),
                                       $REQ->td(textfield('email')),
                                       ),
                           ),
                  $REQ->td(
                           $REQ->table({-align=>'top',border=>'0' ,width=>'50%'},
                                       $REQ->Tr,
                                       $REQ->th("ID"),
                                       $REQ->th("NOM"),
                                       $REQ->th("PRENOM"),
                                       $REQ->th("E-MAIL"),

                                       while({$id, $nom, $prenom, $email} = 
$STH->fetchrow_array){

                                       $REQ->Tr,
                                       $REQ->td('$id'),
                                       $REQ->td('$nom'),
                                       $REQ->td('$prenom'),
                                       $REQ->td('$email'),
                                       $REQ->$id++;
}
                                       ),

                                       $REQ->end_form(),
                           ),
<----------------------end------------------->


Thanks a lot

Lanzaroto



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]