<% option explicit %> <% ' Show the file below at beginning of new school year 'server.transfer("indexshowupdates.asp") %> <% on error resume next DIM rsChild set rsChild = Server.CreateObject("ADODB.Recordset") rsChild.ActiveConnection = Dbpath rsChild.Source = "SELECT fullentry.*, classroom.cClassroom FROM classroom " &_ " INNER JOIN fullentry ON classroom.iid = fullentry.nClassroom " &_ " ORDER BY nClassroom,cLastName;" rsChild.CursorType = 1 rsChild.CursorLocation = 2 rsChild.LockType = 3 rsChild.Open() %> Student Directory

2008-2009 CDC Directory

Make corrections to your entry by selecting your child's name in the list below.



<% DIM lnClassID, lnClassCount lnClassCount = 1 rsChild.MoveFirst lnClassID = rsChild("nClassroom") response.write "" & rsChild("cClassroom") & "s
export class list

    " While NOT rsChild.EOF if rsChild("nClassroom") <> lnClassID then lnClassID = rsChild("nClassroom") response.write "
" lnClassCount = lnClassCount + 1 if lnClassCount = 4 then response.write "

 

" end if response.write "

" & rsChild("cClassroom") & "s
export class list

    " end if response.write "
  1. " & rsChild("cLastName") & ", " & rsChild("cFirstName") & "
    2. " rsChild.MoveNext() WEND %>

<% rsChild.close() set rsChild= nothing %>