<% StrSQL = "select count(codCliente) as total from Clientes" call abreconexao set rscount = Conexaodb.execute (strsql) %> <% 'dim conexaodb StrSQL = "SELECT * FROM Clientes Order BY CodCliente DESC" Call AbreConexao Set Rs = Conexaodb.execute(StrSQL) If Not RS.EOF Then While Not Rs.EOF %> <% Rs.Movenext Wend Rs.close Call FechaConexao Set Rs = Nothing Else %> <%End IF%>

Total de cadastros: <%=rscount("total")%>
'">'">	<%=Rs("nomContato")%>	<%=Rs("emlContato")%>
Não contem nenhum cadastrado no momento ! ! !