----
sub viewall {
my $dbh;
$dbh = CreateObject OLE "ADODB.Connection" or die "Can't create connection to DataBase: $!" unless $dbh;
$dbh->Open("Driver={Microsoft Access Driver (*.mdb)};DBQ==../../db/ml.mdb");

my $rs = CreateObject OLE "ADODB.Recordset" or die "Can't adminmail database problemgfg"; 
my $sqlstatement = "SELECT firstname,lastname,company,title,email FROM users";

$rs = $dbh->Execute( $sqlstatement ) or die print ( "Can't adminmail database problemdsds Perl says $!, DBI says ",$dbh::errstr,""); 
print <<ENDOF;
<div align="center">
  <center>
  <table border="1" cellpadding="4" cellspacing="0" bordercolor="#FFFFFF" bordercolordark="#000080" bordercolorlight="#FFFFFF">
    <tr>
      <td align="center"><font face="Verdana" size="2"><b>First Name</b></font></td>
      <td align="center"><font face="Verdana" size="2"><b>Last Name</b></font></td>
      <td align="center"><font face="Verdana" size="2"><b>Company Name</b></font></td>
      <td align="center"><font face="Verdana" size="2"><b>Title</b></font></td>
      <td align="center"><font face="Verdana" size="2"><b>Email Address</b></font></td>
    </tr>
ENDOF
while (!$rs->EOF())
{
		my $checkemail = $rs->Fields('email')->Value;
		my $fname = $rs->Fields('firstname')->Value;
		my $lname = $rs->Fields('lastname')->Value;
		my $cname = $rs->Fields('company')->Value;
		my $title = $rs->Fields('title')->Value;
		
print <<END_OF_TEXT;
<tr>
<td><font face="Verdana" size="2">$fname</font></td>
<td><font face="Verdana" size="2">$lname</font></td>
<td><font face="Verdana" size="2">$cname</font></td>
<td><font face="Verdana" size="2">$title</font></td>
<td><font face="Verdana" size="2">$checkemail</font></td>
</tr>
END_OF_TEXT
		
		$rs->MoveNext;
	}
print <<ENDOFB;
  </table>
  </center>
</div>
ENDOFB
$dbh->Close();
admin();
}