Shucks, ya found page 3 !

The database will magically appear here (with a little luck):

<% ' THIS IS ASP CODE FOR A DSN-LESS CONNECTION (DSN = data source name) dim conntemp, rstemp 'Declare all variables accessdb="rwp.mdb" 'Specify Database, Driver, path... myDSN="DRIVER={Microsoft Access Driver (*.mdb)};" ' MS Access driver myDSN=myDSN & "DBQ=" & server.mappath(accessdb) ' Map path to DB mySQL="SELECT RDrugComNm, RDrugMedNm AS Last_Update " 'Build SQL statement mySQL= mySQL & " FROM Test1 'Still building a SQL Statement 'mySQL= mySQL & " WHERE DBName <> " & inputbox ' Not used mySQL= mySQL & " ORDER BY RDrugMedNm" 'Still Building a SQL Statement set conntemp=server.createobject("adodb.connection") 'Set a temporary connection (conntemp) myDSN 'Open the connection set rstemp=conntemp.execute(mySQL) 'Exec SQL and count fields - build a temporary recordset (rstemp) howmanyfields=rstemp.fields.count -1 'Stop and Count fields in Recordset %>
<% for i=0 to howmanyfields%> <% next %> <% ' Get all the records - new row do while not rstemp.eof ' x=x+1 %> <% for i = 0 to howmanyfields %> <% next %> <%rstemp.movenext ' move to next record - 1 row here for each row brought back in SQL query loop%>
Results of Database Query
View All Tables  <%=rstemp(i).name%>
Data: <%=x%> <%=rstemp(i)%>
<% rstemp.close ' Close file and recordset set rstemp=nothing conntemp.close set conntemp=nothing %>