Enumerar registros de una consulta hola
este es mi codigo:
<%
elaboro=session("elaboro")
generado = trim(request("generado"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>CONSULTA DE EXPEDIENTES</title>
<style type="text/css">
<!--
.style1 { color: #99a7a7;
font-weight: bold;
}
.Estilo36 {font-weight: bold}
.Estilo42 {color: #FFFFFF}
.Estilo44 {color: #FFFFFF; font-weight: bold; }
.Estilo3 { font-family: Arial, Helvetica, sans-serif;
color: #FFFFFF;
}
.Estilo45 {
font-family: Arial, Helvetica, sans-serif;
font-weight: bold;
color: #FFFFFF;
}
.Estilo48 {
color: #000000;
font-size: 18cm;
}
.Estilo49 {font-weight: bold; font-family: Arial, Helvetica, sans-serif;}
.Estilo52 {font-size: 9cm}
.Estilo56 {font-size: 22px}
-->
</style>
</head>
<body background="../images/PortHole.jpg">
<p align="center">
<script src="xaramenu.js"></script><script Webstyle4 src="cerrar.js"></script>
<p align="center"> </p>
<p align="center">
<span class="Estilo48">
<span class="Estilo52">
<span class="Estilo56">
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("expedientes.mdb")
Dim Temp
Temp="Select * From consulta_completa Where UCase(elaboro) like '%" & UCase(Request("generado")) & "%' order by fecha_proceso desc"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<span class="Estilo49"><font face="Arial, Helvetica, sans-serif"><%=generado%>
</font><font face="Arial, Helvetica, sans-serif"></font></span></span></span> </span><span class="Estilo45">NO HA ALIMENTADO NINGUN EXPEDIENTE AL SISTEMA.</span>
<%
Else
%>
</p>
<p align="center"> </p>
<table width="100%" border="1">
<tr>
<td><table border="1" cellpadding="0" cellspacing="0" width="100%" height="43" bordercolor="#CCCCCC">
<tr bgcolor="#CC7528">
<td width="9%" class="Estilo36"> </td>
<td width="9%" height="21" bgcolor="#CC7528" class="Estilo36">
<div align="center" class="Estilo42"><font size="2" face="Arial, Helvetica, sans-serif">FECHA DE CAPTURA </font></div></td>
<td width="32%" bgcolor="#CC7528" class="Estilo36"><div align="center" class="Estilo42">
<font size="2" face="Arial, Helvetica, sans-serif">ACTOR</font></div></td>
<td width="23%" height="21" bgcolor="#CC7528">
<div align="center"><span class="Estilo44"><font size="2" face="Arial, Helvetica, sans-serif">DEMANDADO</font></span></div></td>
<td width="11%" bgcolor="#CC7528" class="Estilo36"><div align="center" class="Estilo42"><font size="2" face="Arial, Helvetica, sans-serif">JUNTA</font></div></td>
<td width="11%" height="21" bgcolor="#CC7528"><div align="center"><strong><span class="Estilo42"><font size="2" face="Arial, Helvetica, sans-serif">EXPEDIENTE</font></span>
</strong></div></td>
<td width="14%" height="21" bgcolor="#CC7528"><div align="center"><strong><span class="Estilo42"><font size="2" face="Arial, Helvetica, sans-serif">PROXIMA AUDIENCIA </font></span></strong></div></td>
</tr>
<% While Not Tabla.EOF%>
<tr bgcolor="#FFFFFF">
<td width="9%" bgcolor="#FFFFFF"> </td>
<td width="9%" height="20" bgcolor="#FFFFFF"><div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=Tabla.Fields("fecha_proceso")%></font></div></td>
<td width="32%" bgcolor="#FFFFFF"><font face="Arial, Helvetica, sans-serif" size="2"><%=Tabla.Fields("actor")%></font> </td>
<td width="23%" height="20" bgcolor="#FFFFFF"><div align="left"><font face="Arial, Helvetica, sans-serif" size="2"><%=Tabla.Fields("demandado")%></font></div></td>
<td width="11%" bgcolor="#FFFFFF"><div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=Tabla.Fields("junta")%></font></div></td>
<td width="11%" height="20" bgcolor="#FFFFFF"><div align="center"><font face="Arial, Helvetica, sans-serif" size="2">
<a href="estatus.asp?id_status=<%=Tabla.Fields("id_st atus")%>"><%=Tabla.Fields("expediente")%></a>
</font></div></td>
<td width="14%" height="20" bgcolor="#FFFFFF"><div align="center"><font face="Arial, Helvetica, sans-serif" size="2"><%=Tabla.Fields("proxima_aud")%></font></div>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>
</table></td>
</tr>
</table>
<p><span class="Estilo3"></span></p>
</body>
</html>
La consulta se ejecuta sin problema pero quiero que me enumere los registros y aparte los sume.
es decir que diga al inicio " 5 registros " y abajo que muestre los registros pero enumerados.
espero su grandiosa colaboracion
gracias
