<% Dim cnnSimple ' ADO connection Dim rstSimple ' ADO recordset Set cnnSimple = Server.CreateObject("ADODB.Connection") cnnSimple.Provider = "Microsoft.Jet.OLEDB.4.0" cnnSimple.Open Server.MapPath("registration.mdb") Set rstSimple = cnnSimple.Execute("SELECT * FROM student") %> <% rstSimple.MoveNext Loop %>

Student	Name	Major	Credit Hours <% Do While Not rstSimple.EOF %>
<%=rstSimple.Fields(0).Value %>	<%=rstSimple.Fields(1).Value %>	<%=rstSimple.Fields(2).Value %>	<%=rstSimple.Fields(3).Value %>