Obtiene el total de registros de una BD's (a mi me los han preguntado, ¿qué se le va a hacer?, tal vez a otro también se los pregunten,
), solo falta agregar la conexión.
Código:
set adoRs = Server.CreateObject("adodb.recordset")
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status > 0)"
adoRs.Open Query,cnn
suma = 0
%>
<table><tr><td>Nombre de la tabla<td>registros<%
while Not adoRs.EOF
set adoRs2 = Server.CreateObject("adodb.recordset")
adoRs2.CursorLocation = adUseClient
sql = "Select count(*) as reg from "&adoRs("name")
adoRs2.Open sql,cnn
%><tr><td><%=adoRs("name")%><td><%=adoRs2("reg")%></tr><%
suma = suma + adoRs2("reg")
adors2.Close
adors2 = null
adoRs.moveNext
wend
%></Table><%
response.write "<hr><br>Registros Totales: " & Suma
%>