Hola, mirá:
<%
Dim oRs, oConn, MiGetRows, Datos
Datos = False
'... conexion y consulta a la bd
If oRs.EOF Then
'no se han encontrado registros
Else
MiGetRows = oRs.GetRows
Datos = True
End If
oRs.Close
oConn.Close
If Datos Then
Cantidad = UBound(MiGetRows, 2) + 1
Response.Write("Registros: " & Cantidad)
For I = LBound(MiGetRows, 2) To UBound(MiGetRows, 2)
'mostrá los resultados
Next
End If
%>
Espero que te haya servido de algo !!
Sergio Flores<br>La Rioja, Argentina.<br><a href="http://www.lamatufia.com.ar">La Matufia</a>