Lamento haber quitado el codigo,
lo solucione de esta forma:
Lo quite porque lo solucione
y queria avanzar un poco y poner otro post por si alguien se interesaba en ayudarme a construir este codigo, que creo que puede ser de gran utilidad para todos.(Mira el select!!!).
¿Que te parece esta solución?.
Como vez obtengo todas las tablas con todos sus campos, ahora mi objetivo es lograr hacer algo que me haga las consultas Sql dinamicamente, con sus Inner Join y todo lo demas.
No se aún muy bien como darle forma a eso pero voy a seguir intentandolo.
Si alguien se anima
, Bienvenido sea!!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #INCLUDE File="../adovbs.inc" -->
<%
Dim oConn,rstSchema
Set oConn = Server.CreateObject("ADODB.Connection")
Set rstSchema = Server.createobject("ADODB.Recordset")
oConn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../basedatos.mdb"))
Set rstSchema = oConn.OpenSchema(adSchemaTables)
%>
<html lang="ES">
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table>
<% Do Until rstSchema.EOF%>
<%Nombretabla= rstSchema("TABLE_NAME")%>
<%Tipotabla= rstSchema("TABLE_TYPE")%>
<%if Tipotabla="TABLE" then%>
<%'Es una tabla%>
<b><%=Nombretabla%>:</b>
<input type="checkbox" name="Nombretabla" value="<%=Nombretabla%>">
<hr color="#FF0000" width="600">
<% set rscat=oConn.execute
("select TOP 1 * from " & Nombretabla )
while not rscat.eof %><br>
<%For Each campo in rscat.Fields%>
<input type="checkbox" name="<%= campo.Name%>" value="<%= campo.Name%>">
<B><%=campo.Name%></B>
<BR>
<%next%>
<%
rscat.movenext
wend
%>
<br>
<%else%>
<%'No es una tabla%>
<%end if%>
<%
rstSchema.MoveNext
Loop
rstSchema.Close
oConn.Close
%>
</body>
</html>