# #  TimeStamp  (dos) : 16 Octobre 05 14:01  --  z:\dbaset.pl

use lib "/home/gh/Bin" ;
use XBase;
$nomBase = "vins.dbf" ;
$lig = "Affichage des données de $nomBase" ;

##############################################################

print << "DEB_HTML" ;
<?xml version="1.0" encoding="ISO-8859-1" ?>
<!DOCTYPE html
   PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="fr" xml:lang="fr">
<!--    (gH)   -_-  ;  TimeStamp (unix) : 28 Septembre 2001 vers 18:02  -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>
$lig
</title>
</head>
<body>
<h1>
$lig
</h1>

DEB_HTML

##############################################################

$table = new XBase $nomBase or die XBase->errstr;
$nbr = $table->last_record ;

print "<h2> il y a  ".(1+$nbr)." enregistrements dans la base $nomBase</h2>\n" ;
print "<table border=\"1\">\n" ;
for (0 .. $nbr) {
    print "<tr>\n<td align=\"right\">".sprintf("%5d. ",1+$_)."</td>" ;
    @enrc = $table->get_record($_) ;
    $ndc = -1 ;
    foreach $ch (@enrc) {
       $ndc++ ;
       if ($ndc>0) { print "<td align=\"right\"> &nbsp; $ch &nbsp; </td>\n" ; }
    } ; # fin pour chaque champ
    print "</tr>\n\n" ;
} ; # fin pour enregistrement
print "</table>\n" ;

##############################################################

print << 'FIN_HTML' ;

</body>
</html>
FIN_HTML

