<% Option Explicit %> <% Dim connCW, rsItem %> <% Set connCW = Server.CreateObject("ADODB.Connection") %> <% connCW.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("registration.mdb") %> <% Set rsItem = connCW.Execute("SELECT * from students") %> <% Do While Not rsItem.EOF %> <% rsItem.MoveNext Loop connCW.Close %>

ID	First Name	Last Name	State
<% =rsItem("sid") %>	<% =rsItem("first") %>	<% =rsItem("last") %>	<% =rsItem("state") %>