--- register/prgsrc/register.cgi	2001/09/17 02:57:51	1.7
+++ register/prgsrc/register.cgi	2001/09/20 21:49:35	1.8
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2001/09/17 02:57:51 $
+$Date: 2001/09/20 21:49:35 $
 
 =head1 REVISION
 
-$Revision: 1.7 $
+$Revision: 1.8 $
 
 =cut
 
@@ -45,7 +45,7 @@ my ($SENDMAIL) = "/usr/sbin/sendmail";
 my $TO = 'borisv@lk.net, igra@gorlovka.net, erudit@mail.od.ua';
 my $FROM = 'borisv@lk.net';
 
-my $date='$Date: 2001/09/17 02:57:51 $';
+my $date='$Date: 2001/09/20 21:49:35 $';
 $date =~ s/[^ ]* ([^ ]*) .*/$1/; 
 
 
@@ -177,8 +177,13 @@ END
 ####################################################################
 # And the bottom of the page
 ###################################################################
+    my $sth=$dbh->prepare("select count(*) from Clubs");
+    $sth->execute;
+    my ($count) = $sth->fetchrow_array;
+    $sth->finish;
 
     print "<p align=center>";
+    print "Всего клубов: $count<br>\n";
     print "Эту страничку посмотрели ";
     print `/home/piataev/public_html/cgi-bin/counter.sh /znatoki/cgi-bin/register.cgi`;
     print " раз(а)</p>\n";