Shucks, ya found page 3 !
The database will magically appear here (with a little luck):
<%
dim strconn, rstemp, mySQL, accessdb, conntemp
accessdb="rwp.mdb"
strconn="PROVIDER= Microsoft.Jet.OLEDB.4.0;DATASOURCE= "
strconn=strconn & server.mappath(accessdb) & ";"
set conntemp= server.createobject("adodb.connection")
conntemp.open strconn
mySQL ="select * from table1"
set rstemp=conntemp.execute(mySQL)
howmanyfields=rstemp.fields.count -1
do while not rstemp.eof
for i = 0 to howmanyfields
%> <%=rstemp(i)%>
<% next %>
<%rstemp.movenext%>
<%loop
rstemp.close
set rstemp= nothing
strconn.close
set strconn= nothing
%>