<% 'Declarations Dim optGrades optGrades = "" _ & "PK" _ & "Kindergarten" _ & "1st grade" _ & "2nd grade" _ & "3rd grade" _ & "4th grade" _ & "5th grade" _ & "6th grade" _ & "7th grade" _ & "8th grade" _ & "9th grade" _ & "10th grade" _ & "11th grade" _ & "12th grade" ShowContents SUB ShowContents %>