Grades Simple II

<% openstr = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath("grades.mdb") Set cn = Server.CreateObject("ADODB.Connection") cn.Open openstr 'sql = "select * from students, grades, classes where id=student and class=id" sql = "select * from students, grades, classes where id=student and nr=class" 'sql = "select * from classes" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, adOpenForwardOnly, adLockReadOnly, adCmdText Do While Not rs.EOF Response.Write "

Name	Class	Grade
" & rs("lastname") & "	" & rs("title") &_ "	" & rs("grade") rs.MoveNext Loop rs.Close set rs = Nothing cn.Close Set cn = Nothing %>