Aqui tienes otro metodo:
Código:
Set objRecordset=Conexion.Execute("SELECT * FROM Tabla1")
While Not objRecordset.EOF
numreg = numreg + 1
objRecordset.MoveNext
Wend
objRecordset.Close
Set objRecordset=Nothing
Response.Write numreg
Espero igual te sirva ;)
El Reportero de los Foros