print qq|
<TR>
<TD COLSPAN="100%"><center>This record has been viewed <b>$countup</b>
|;
if ($countup == 1) {
print "time.</td></tr>\n";
}
else {
print "times.</td></tr>\n";
}

sub html_topten {
#----------------
opendir (TEMPDIR, "$counter_dir");
@files = readdir(TEMPDIR);
closedir (TEMPDIR);
FILE: foreach $file (@files) {
next if ($file =~ /^\./);
next if ($file =~ /^index/);
next if ($file =~ /^iplog/);
open (COUNTER, "<$counter_dir/$file");
$count{$file} = int(<COUNTER> );
close COUNTER;
}
foreach $key (sort {$count{$b} <=> $count{$a} } keys %count) { push (@top_ten,$key); }
&html_print_headers;
$page_title="Top 10 Records";
&html_page_top;
print qq|
<table border="0" cellpadding="5" cellspacing="0" width="100%">
<tr>
<td align="center"><$font>Listing of the Top 10 visited records in the database.</td>
</tr>
<tr>
<td valign="top" colspan="3" width="100%"><font color="#003399" size="2" face="Verdana, Arial, Helvetica">
<table>
|;
for ($i=0;$i<10 ;$i++) { $toparray .= "$top_ten[$i],"; }
chop $toparray;
$row=0;
foreach my $toplist (split(/,/,$toparray)) {
%rec = (&get_record($toplist));
$row++;
print "<TR>";
if ($row == 1) {
print '<TD bgcolor=#DEDCDC>';
}
elsif ($row == 2) {
print '<TD bgcolor=#FFFFFF>';
$row=0;
}
if ($per_mem) {
print qq|
<a href="$db_script_link_url&$db_key=$rec{$db_key}&view_records=1&ww=1">$rec{'LastNameinSchool'}</a>
|;
}
else {
print qq|
$rec{'LastNameinSchool'}
|;
}
if ($rec{'Married Name'}) {
print "$rec{'Married Name'} ";
}
else {
print "&nbsp;";
}
if ($rec{'First Name (Nickname) & Spouses Name'}) {
print "$rec{'First Name (Nickname) & Spouses Name'} ";
}
else {
print "&nbsp;";
}
if ($rec{'YearGrad'}) {
print "$rec{'YearGrad'}";
}
else {
print "&nbsp;";
}
print "</TD></TR>\n";
}
print "</table>\n";
print qq|
</td>
</tr>
</table>
|;
&html_footer;
&html_page_bottom;
}