<%@ Language=VBScript %>

Attendance



x==>Present
n==>No Attendance Taken
E==>Excused
L==>Late
"blank"==>Absent - 5% reduction in course grade for each absence!!!

<% Set DB = Server.CreateObject("ADODB.connection") DB.Open "ENGR019Winter2002Grades" AttendString = "SELECT * FROM Attendance ORDER BY LastName" Set Attend_Results= DB.Execute(AttendString) while not Attend_Results.eof %> <% for i=1 to 28 %> <% next %> <% Attend_Results.MoveNext wend %>
FirstNameLastName  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
<%=Attend_Results("FirstName")%> <%=Attend_Results("LastName") %>  <%=Attend_Results("Class" & i )%>