Sub CuentaRegistros (Tablas)
Dim rutaBD, connBD, rs, cantreg
rutaBD = Server.MapPath("database\bbdd.mdb")
set connBD = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset" )
connBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutaBD & ";"
SQL = "SELECT * FROM Tablas"
rs.Open SQL, connBD, 3, 3
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
set rs = Nothing
connBD.close
set connBD = Nothing
End Sub
<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">