#!/usr/bin/perl

require 'cgi-lib.pl';

use Mysql;

$host= shift || "";
$db="nafta";
$|= 1;                          # Autoflush

$table="naftadb";

print &PrintHeader;
$dbh = Mysql->Connect($host) || print "Can't connect: $Mysql::db_errstr <br>";
$dbh->SelectDB($db) || print "Can't use database $test_db: $Mysql::db_errstr <br>";

MAIN: 
{
#Get the total number of rows in the table
$sth=$dbh->Query("select * from $table");
$rows = $sth->numrows; 

print "Total Registered Users: $rows<br><p>";
print "<table border=2>";
for ($i=1; $i < $rows+1 ; $i++)
  {
 @arr = $sth->FetchRow();
	
 print "<tr><th>";
 print "<font color=ff0000>";
 print "Name:   $arr[1]<br>";
 print "</font>";
 print "</th><th>";
 print "$arr[0]<br>";
 print "</th><th>";
 print "$arr[2]<br>";
 print "</th></tr><th></th><th>";
 print "Occupation: $arr[4]<br>";
 print "</th><th>";
 print "Immigration Status: $arr[5]<br>"; 
 print "</th></tr><th></th><th>";
 print "From: $arr[6], $arr[7]<br>";
 print "</th><th>";
 print "Living in: $arr[8], $arr[9]<br>";
 print "</th></tr>";
 print "<tr><th></th></tr>";
 print "<tr><th></th></tr>";
 print "<tr><th></th></tr>";
 print "<tr><th></th></tr>";
  }
print "</table>";

}