<% 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") studentIDstring = request.querystring("studentID") Set rstSimple = cnnSimple.Execute("SELECT * FROM student where studentID='"& studentIDstring & "'") %>
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 %>
<% rstSimple.MoveNext Loop %>