<% Set rsExam = Server.CreateObject("ADODB.Recordset") rsExam.Open "SELECT * FROM Exams ORDER BY ExamCourseName, ExamSubject, ExamDate, ExamTime",dbCourses,3,3 currcoursename="" prevcoursename="" do while not rsExam.eof currcoursename=rsExam("examcoursename") if currcoursename<>prevcoursename then %> <% end if prevcoursename=currcoursename %> <% rsExam.movenext loop rsExam.Close Set rsExam = Nothing %>

<%=rsExam("ExamCourseName")%>

Subject

Date of Exam

Time

Closing Date for Entries

<%if rsExam("ExamSubject")<>"" then response.write(replace(rsExam("ExamSubject"),", "," "))%>

<%if rsExam("ExamDate")<>"" then response.write(replace(rsExam("ExamDate"),chr(13)," "))%>

<%if rsExam("ExamTime")<>"" then response.write(replace(rsExam("ExamTime"),chr(13)," "))%>

<%if rsExam("ExamClosing")<>"" then response.write(replace(rsExam("ExamClosing"),chr(13)," "))%>