<% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("mem.mdb")) set rs = Server.CreateObject("ADODB.recordset") rs.Open "SELECT * FROM mem", conn %> <%do until rs.EOF%> <%for each x in rs.Fields%> <%next rs.MoveNext%> <%loop rs.close conn.close %>

<%Response.Write(x.value)%>