ASP Output from script
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<HTML>
<HEAD>
  <TITLE>OAC - Display An Access Table - Products -</TITLE>
</HEAD>
<BODY>
  <TABLE WIDTH="100%" BORDER="1" CELLPADDING="0" CELLSPACING="0">
    <TH COLSPAN="10">Listing all records and field properties,<BR>
      for table: Products,<BR>
      from database: C:\Program Files\Microsoft Office\OFFICE\SAMPLES\Northwind.mdb.</TH>
    <TR><TD COLSPAN="10"><B>Relationship Information</B></TD></TR>
    <TR><TD ALIGN="CENTER">Table.Field</TD><TD ALIGN="CENTER">IsPrimaryKey?</TD>
      <TD>Count Of Tables /or/ Specify One Side Of Relationship</TD><TD COLSPAN="7">&nbsp;</TD></TR>
    <TR>
      <TD ALIGN="LEFT">Products.CategoryID</TD><TD ALIGN="LEFT">False</TD>
      <TD ALIGN="LEFT">Categories.CategoryID</TD><TD COLSPAN="7">&nbsp;</TD></TR>
    <TR>
      <TD ALIGN="LEFT">Products.ProductID</TD><TD ALIGN="LEFT">True</TD>
      <TD ALIGN="LEFT">1.</TD><TD COLSPAN="7">&nbsp;</TD></TR>
    <TR>
      <TD ALIGN="LEFT">Products.SupplierID</TD><TD ALIGN="LEFT">False</TD>
      <TD ALIGN="LEFT">Suppliers.SupplierID</TD><TD COLSPAN="7">&nbsp;</TD></TR>
    <TR><TD COLSPAN="10"><B>Create Dynamic HTML Table Code, from an Access Table.</B>
      (IsConnected means this field is a ForeignKey Field)</TD></TR>
    <TR>
      <TD ALIGN="CENTER"><B>ProductID</B></TD>
      <TD ALIGN="CENTER"><B>ProductName</B></TD>
      <TD ALIGN="CENTER"><B>SupplierID</B></TD>
      <TD ALIGN="CENTER"><B>CategoryID</B></TD>
      <TD ALIGN="CENTER"><B>QuantityPerUnit</B></TD>
      <TD ALIGN="CENTER"><B>UnitPrice</B></TD>
      <TD ALIGN="CENTER"><B>UnitsInStock</B></TD>
      <TD ALIGN="CENTER"><B>UnitsOnOrder</B></TD>
      <TD ALIGN="CENTER"><B>ReorderLevel</B></TD>
      <TD ALIGN="CENTER"><B>Discontinued</B></TD>
    </TR>
    <TR>
      <TD ALIGN="CENTER">adInteger - Auto</TD>
      <TD ALIGN="CENTER">adWChar</TD>
      <TD ALIGN="CENTER">adInteger</TD>
      <TD ALIGN="CENTER">adInteger</TD>
      <TD ALIGN="CENTER">adWChar</TD>
      <TD ALIGN="CENTER">adCurrency</TD>
      <TD ALIGN="CENTER">adSmallInt</TD>
      <TD ALIGN="CENTER">adSmallInt</TD>
      <TD ALIGN="CENTER">adSmallInt</TD>
      <TD ALIGN="CENTER">adBoolean</TD>
    </TR>
    <TR>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">Suppliers.SupplierID</TD>
      <TD ALIGN="CENTER">Categories.CategoryID</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
      <TD ALIGN="CENTER">&nbsp;</TD>
    </TR>
<%
If IsObject(Session("DB_conn")) Then
  Set Conn = Session("DB_conn")
Else
  Set Conn = Server.CreateObject("ADODB.Connection")
  strSource = "C:\Program Files\Microsoft Office\OFFICE\SAMPLES\Northwind.mdb"
  strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & strSource & """"
  Conn.Open strConn
  ' Conn.Open "DSN=YourDataSourceName"   ' for quick conversion to a DSN
  Set Session("DB_conn") = Conn
End If

Set rst0 = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Products;"
rst0.Open StrSQL, Conn, 3, 1   '3=adUseClient, 1=adOpenForwardOnly

Set rst1 = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Categories;"
rst1.Open StrSQL, Conn, 3, 1

Set rst2 = Server.CreateObject("ADODB.Recordset")
StrSQL = "SELECT * FROM Suppliers;"
rst2.Open StrSQL, Conn, 3, 1

Do While Not rst0.EOF %>
    <TR>
      <TD><%= rst0("ProductID") %></TD>
      <TD><%= rst0("ProductName") %></TD>
      <TD><%= rst0("SupplierID") %><%
        rst2.Filter = "SupplierID = " & rst0("SupplierID") & ""
        xStr = rst2(1) %> [<%= xStr %>]</TD>
      <TD><%= rst0("CategoryID") %><%
        rst1.Filter = "CategoryID = " & rst0("CategoryID") & ""
        xStr = rst1(1) %> [<%= xStr %>]</TD>
      <TD><%= rst0("QuantityPerUnit") %></TD>
      <TD><%= rst0("UnitPrice") %></TD>
      <TD><%= rst0("UnitsInStock") %></TD>
      <TD><%= rst0("UnitsOnOrder") %></TD>
      <TD><%= rst0("ReorderLevel") %></TD>
      <TD><%= rst0("Discontinued") %></TD>
    </TR><%
  rst0.MoveNext
Loop

rst0.Close
rst1.Close
rst2.Close
Set Conn = nothing
%>
</TABLE>
</BODY>
</HTML>