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 where id=student" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, cn, 0, 1 Do While Not rs.EOF Response.Write "

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