Código para mostrar todas las tablas y sus campos (incluyendo su descripción) de alguna base de datos.
<%@ Language = VBSCRIPT %>
<% 'Option Explicit %>
<!--#include virtual="/adovbs.inc"-->
<%
'Column variables
Dim iLength, iPrecision, iScale, iDefaultValue
Dim objConn, objTableRS, objColumnRS
Set objConn = Server.CreateObject("ADODB.Connection")
'Conexion SQl server
'objConn.Open "Provider=SQLOLEDB;Data Source=Tu_servidor_sql;Initial Catalog=Tu_bd;User Id=t
suario;Password=tu_password;OLE DB Services=-2"
'Conexion Ms Access
objConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("bd.mdb")
Set objTableRS = objConn.OpenSchema(adSchemaTables, _
Array(Empty, Empty, Empty, "TABLE"))
Do While Not objTableRS.EOF
Response.Write "<TABLE BORDER=1 CELLSPACING=1><TR>"
Response.Write "<TH COLSPAN=7 BGCOLOR=#CCCCCC>"
Response.Write "<FONT SIZE=+1>"
Response.Write objTableRS("Table_Name").Value
Response.Write "</FONT></TH></TR>"
Response.Write "<TR><TD BGCOLOR=#CCCCCC>Name</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Datatype</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Length</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Precision</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Scale</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Allow Nulls</TD>"
Response.Write "<TD BGCOLOR=#CCCCCC>Default Value</TD>"
Response.Write "</TR>"
Set objColumnRS = objConn.OpenSchema(adSchemaColumns, _
Array(Empty, Empty, objTableRS("Table_Name").Value))