<% Set Conn1 = Server.CreateObject("ADODB.Connection") Conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("../base/magazines.MDB") & ";" SQL1 = "SELECT * From numbers" Set rst1 = Conn1.Execute(SQL1) while not rst1.EOF %> ><%response.write rst1("name")%> <% rst1.movenext wend Conn1.close set rst1 = nothing set Conn1 = nothing %>