tenho uma pagina que lista o meu banco:
<%
var_status =("ATI")
vSql = "SELECT * FROM TAB_QUADRO_BRASFELS where status='"&VAR_STATUS&"' order by departamento,usuario asc"
Set myRst = Server.CreateObject("ADODB.Recordset")
myRst.Open vSql, conn, 3, 3
%>
e a parte mesclada HTML+ASP que monta minha pagina com os campos do banco:
e a parte mesclada HTML+ASP que monta minha pagina com os campos do banco:
<body>
<table width="100%" height="533" border="0" align="center">
<tr>
<td><table width="100%" border="0">
<tr>
<td width="800" height="122" align="center" valign="middle" class="Subtitulo"><img src="imagens/LOGOBR.jpg" width="288" height="126" /><br /></td>
</tr>
<tr>
<td height="44" align="center"><table width="100%" border="0">
<tr>
<th width="64" height="36" scope="col"><a href="menu.asp"><img src="imagens/home.gif" width="30" height="30" longdesc="menu.asp" /></a></th>
<th width="865" align="center" scope="col"><p><span class="Subtitulo">Quadro Brasfels</span></p></th><hr><p class="conteudo">
<th width="81" scope="col"><a href="quadro_brasfels.asp"><img src="imagens/seta-voltar.gif" width="30" height="30" longdesc="brasfels.html" /></a></th>
<table width="100%" border="1" cellpadding="" cellspacing=""><hr>
<tr>
<th width="5%" scope="col">CT</th>
<th width="5%" scope="col">Data NF</th>
<th width="5%" scope="col">Nº NF</th>
<th width="10%" scope="col">Descrição</th>
<th width="8%" scope="col">Processador</th>
<th width="4%" scope="col">Memoria</th>
<th width="3%" scope="col">HD</th>
<th width="8%" scope="col">Windows</th>
<th width="8%" scope="col">Office</th>
<th width="3%" scope="col">Valor</th>
<th width="8%" scope="col">Departamento</th>
<th width="8%" scope="col">Matricula</th>
<th width="14%" scope="col">Usuário</th>
<th width="5%" scope="col">Data Inicio</th>
<th width="2%" scope="col">Status</th>
<th width="4%" scope="col">Obs</th>
<th width="8%" align="center" scope="col">Exportar <a href="Quadro_bf_exportar.asp"><img src="imagens/export_excel.jpg" width="45" height="40" longdesc="quadro_brasfels.asp" /></a></th>
</tr>
<%
do while not myRst.EOF
var_codigo = myRst.fields("codigo")
var_ct = myRst.fields("ct")
var_DNF = myrst.fields("Data_NF")
var_NFISCAL = myrst.fields("Nfiscal")
var_descricao = myrst.fields("Descricao")
var_descricao_item = myrst.fields("Descricao_item")
var_Processador = myrst.fields("Processador")
var_Men = myrst.fields("Mem")
var_HD = myrst.fields("HD")
var_Windows = myrst.fields("Windows")
var_Office = myrst.fields("Office")
var_valor = myrst.fields("Valor")
var_Departamento = myrst.fields("Departamento")
var_matricula = myrst.fields("Matricula")
var_usuario = myrst.fields("Usuario")
Var_data = myrst.fields("Data")
var_status = myrst.fields("Status")
Var_obs= myrst.fields("obs")
%>
<tr>
<td height="1" align="center" valign="middle"><%=var_ct%></td>
<td align="center" valign="middle"><%=var_DNF%></td>
<td align="center" valign="middle"><%=var_NFISCAL%></td>
<td align="center" valign="middle"><%=var_descricao%>-<%=var_descricao_item%></td>
<td align="center" valign="middle"><%=var_Processador%></td>
<td align="center" valign="middle"><%=var_Men%></td>
<td align="center" valign="middle"><%=var_HD%></td>
<td align="center" valign="middle"><%=var_Windows%></td>
<td align="center" valign="middle"><%=var_Office%></td>
<td align="center" valign="middle"><%=var_valor%></td>
<td align="center" valign="middle"><%=var_departamento%></td>
<td align="center" valign="middle"><%=var_matricula%></td>
<td align="center" valign="middle"><%=var_usuario%></td>
<td align="center" valign="middle"><%=var_Data%></td>
<td align="center" valign="middle"><%=var_status%></td>
<td align="center" valign="middle"><%=var_obs%></td>
<td align="center" valign="middle"><table width="100%" border="0">
<tr>
</p><th scope="col"><a href="quadro_bf_form_alterar.asp?codigo=<%=var_codigo%>"><img src="imagens/user_male_edit.png" name="atualizar" width="30" height="30" id="atualizar" /></a></th>
<th scope="col"><a href="quadro_bf_excluir.asp?codigo=<%=var_codigo%>"><img src="imagens/delete.png" name="deletar" width="30" height="30" id="deletar" /></a></th>
</tr>
</table></td>
</tr>
<% myRst.MoveNext
loop
%>
Como faço para contar qnts linhas foram listadas? tipo teria que aparecer no topo da pagina "quantidade de linhas xx"