Here's how I did it.
<%
Option Explicit
Dim cnnDB, strQuery, rsInfo
'Create an instance of the Connection object.
Set cnnDB = Server.CreateObject("ADODB.Connection"
'And open it.
cnnDB.Open "Test" 'Test is my ODBC DSN
'Build our SQL query string.
strQuery = "SELECT File,Namez,FileSize,LAstMod FROM tblDocumentIndex Where File Not Like 'c:\%' ORDER BY File"
'Execute the query and return a recordset.
Set rsInfo = cnnDB.Execute(strQuery)
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<BODY LINK="#0000ff" VLINK="#800080" BACKGROUND="Image3.jpg">
<CENTER><H2>
Microsoft Access Files at Tempo</H2>
<CENTER><p>
This report was created using IIS 4.0, Microsoft Access and Active Server Pages (ASP)</p>
<CENTER><p>
This report is "Live"</p>
<P><HR></P>
<BR>
<TABLE>
<TR>
<TH align="left">
File Name and Path
</TH>
<td width="15"><br></td>
<TH align="left">
File Name
</TH>
<td width="15"><br></td>
<TH align="left">
Size
</TH>
</TH>
<td width="15"><br></td>
<TH align="left">
Date Last Modified
</TH>
</TR>
<%
'Iterate through the recordset, pull
'out the required data, and insert it
'into an HTML table.
Do While Not rsInfo.EOF
%>
<TR>
<TD><A HREF=<% =rsInfo("File" %>><% =rsInfo("File" %></A></TD>
<td width="15"><br></td>
<TD><% =rsInfo("Namez"
%></TD>
<td width="15"><br></td>
<TD><% =formatnumber(rsInfo("FileSize"
/1000000,2) %></TD>
<td width="15"><br></td>
<TD><% =formatdatetime(rsInfo("LastMod"
,vbShortDate) %></TD>
<td width="15"><br></td>
</TR>
<%
'Move to the next record in the
'recordset
rsInfo.MoveNext
Loop
'Close the recordset.
rsInfo.Close
'And close the database connection.
cnnDB.Close
%>
</TABLE>
</CENTER>
</BODY>
</HTML>
