<%@ LANGUAGE="JScript" %> <% connCW = Server.CreateObject("ADODB.Connection") connCW.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("registration.mdb")); str = "SELECT * from students, courses, register WHERE "; str += "students.sid=register.sid AND courses.cid = register.cid"; str += " AND students.sid=" + Request.QueryString("sid"); rsItem = connCW.Execute(str) %>

<% =rsItem("first") %> <% =rsItem("last") %>

<% while (!rsItem.EOF) { %> <% rsItem.MoveNext() } connCW.Close() %>

Department	Number	Title
<% =rsItem("department") %>	<% =rsItem("number") %>	<% =rsItem("name") %>