in MS SQL you can use :
Set rs = Connection.OpenSchema(20)
that will give you a listing of all of the table names in a recordset.
then you loop through them and get a list of the fields in each table
Code:
<html>
<body>
<%
Set rs = TheDatabase.OpenSchema(20)
if not rs.eof then
rs.MoveFirst
do while Not rs.eof
strTableType=rs.fields("TABLE_TYPE")
if strTableType="TABLE" then
strTableName=rs.fields("TABLE_NAME")
SQL="SELECT TOP 1 * FROM " & strTableName
Set rsData = TheDatabase.Execute(SQL)
%>
<table cellspacing=0 border=1>
<tr nowrap><%
intFieldCount=rsData.fields.count-1
for iintFieldCounter = 0 to intFieldCount
FieldName=rsData.fields(iintFieldCounter).name
%>
<td><center><font color="<%=strTableHeaderTextColor%>"> <%=FieldName%> </td> <%
next%>
</tr>
</tabel><br>
<%=strTableName%> (<%=strTableType%>)
<%
end if
rs.MoveNext
loop
end if
rs.Close
%>
</body>
</html>
of course you can change this a round a bit to do what you need...