|
<% 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 %> |