Como obtener el numero de registros!!!

[Myakire]

Listo, aquí tienes ya como te puede funcionar.

Código:

<!-- #INCLUDE File="adovbs.inc" -->
<%
  Set oConn1 = Server.CreateObject("ADODB.Connection")
  Set Tabla1 = Server.createobject("ADODB.Recordset")
  oConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("prueba.mdb")
  Tabla1.Open "select hits, count(hits) as suma from nombres group by hits",oConn1,adopenstatic,adcmdtext	

ReDim vecCiudades(1,Tabla1.recordcount)

cnt=0

If ((Tabla1.Eof = False) and (Tabla1.Bof=False)) Then
DO WHILE NOT Tabla1.Eof
  vecCiudades(0,cnt)=Tabla1("hits")
  vecCiudades(1,cnt)=Tabla1("suma")
  Tabla1.MoveNext
  Cnt = Cnt + 1	
LOOP
session("vNumCiudad")=vecCiudades
Else
Response.Write("<br><br>No se encontro ningun registro")
End If
%><Table>
<tr><td>Hits</td><td>Total</td></tr>
<%
for i=0 to UBound(Session("vNumCiudad"),2)
%>
   <tr><td><%=Session("vNumCiudad")(0,i)%><td><%=Session("vNumCiudad")(1,i)%>
	
<%
Next	
%></Table><%
Tabla1.Close
oConn1.Close
%>

Saludos