<%
dim connect, rs, sql
set connect = server.createobject("ADODB.Connection")
connect.open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &_
Server.MapPath("\perlphpasp\db\tempdb.mdb"))
sql = "select * from tempfile"
set rs = connect.execute(sql)
response.write("<ol>")
do while not rs.eof
  response.write("<li>"&rs("tmpch")&" - "&rs("tmpnum")&" - "&rs("tmpdate"))
  rs.movenext
loop
response.write("</ol>")
connect.close
set rs = nothing
set connect = nothing
%>