Lo siguiente te guarda el valor del numero de tablas de la Tabla
tu_tabla en la variable
ncampos
<%
Set conexion=Server.CreateObject("ADODB.Connectio n")
basedatos=Server.MapPath("base_de_datos.mdb&q uot;)
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& basedatos & ";"
Set Tabla = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT tu_tabla.* From tu_tabla;"
Tabla.Open strSQL, conexion,1 ,2
ncampos = Tabla.fields.count-1
Response.Write ncampos
%>
No te olvides vaciar-cerrar los objetos al final de tu pag
<div align=right><embed src="http://www.jesusdaniel.venezuela.com/jd.swf" height=25 width=200 wmode="transparent"></embed><br>
Usuario # 3359 en los foros</div>