<%@ LANGUAGE="JScript" %> <% connCW = Server.CreateObject("ADODB.Connection") connCW.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("registration.mdb")); rsItem = connCW.Execute("SELECT * from students") %> <% while (!rsItem.EOF) { %> <% rsItem.MoveNext() } connCW.Close() %>

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