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

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