Vis altal brugere i alt.

Her er et script jeg bruger til at vise en oversigt over mine bruger der er tilmeldt i min database og til at slette en bruger.

-------KODE START------
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
conn.Open \"DBQ=\"&(Server.MapPath(\".\")) &\"\\mailing.mdb; DefaultDir=DBQ=\"&(Server.MapPath(\".\")) &\"\\;Driver={Microsoft Access Driver (*.mdb)};\"


if request(\"mode\") = \"slet\" then
SQL = \"DELETE FROM mailingliste where id =\"& request(\"id\")
conn.execute (SQL)
end if %>
<TABLE>
  <TR>
    <TD>
        &nbsp;
    </TD>
    <TD>
        <FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
        <STRONG><b>
        Navn:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br><br>
        </STRONG></b>
        </FONT>
    </TD>
    <TD>
        <FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
        <STRONG><b>
        Email:<br><br>
        </STRONG></b>
        </FONT>
    </TD>
  </TR>

<%
SQL = \"SELECT * from mailingliste\"
set slet = conn.execute( SQL )
do while not slet.eof
on error resume next %>
  <TR>
    <TD>
        <FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
      <A HREF=\"slet.asp?id=<% = slet(\"id\") %>&mode=slet\">Slet</A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
    </TD>
    <TD>
        <FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
      <% = slet(\"navn\") %>
        </FONT>
    </TD>
    <TD>
        <FONT FACE=\"Verdana\" SIZE=\"2\" COLOR=\"#000000\">
      <% = slet(\"email\") %>
        </FONT>
    </TD>
  </TR>
<%
slet.movenext
loop %>
</TABLE>   
<% conn.close
%>
--------KODE SLUT----------

Men hvordan kan jeg få den til at vise hvor mange brugere der er i databasen ?
Altså et antal over brugerne ??