Testing Services

Testing for learning styles and multiple intelligences, reading readiness, and the California Achievement Test. We also offer checklists for a variety of needs and give referrals to trained professionals, if necessary.

<%@LANGUAGE = VBScript%> <% function WriteProduct(PrimaryProductDescription, IncludeHeader, Comment, GradeLevelArray, BasePrice) Dim SubcategoryArray SubcategoryArray = Array("Family-Administered", "Site-Administered") strQuote = Chr(34) strNewLine = Chr(13) & Chr(10) strSpacing = " " If IncludeHeader Then Response.Write "

" & PrimaryProductDescription & "

" & strNewLine End If If Not IsNull(Comment) Then Response.Write "

" & Comment & "

" & strNewLine End If for SubCategoryCnt = 0 To UBound(SubcategoryArray) Dim Price Price = (BasePrice + SubCategoryCnt * 10) Response.Write "

" & strNewLine ' Never changes Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine Response.Write "" & strNewLine ' Price Response.Write "" & strNewLine Response.Write SubcategoryArray(SubCategoryCnt) & " (Price: $" & Price & ")
" & strNewLine If IsNull(GradeLevelArray) Then Response.Write "" & strNewLine Else Response.Write strSpacing & "Grade Level:
" & strNewLine End If Response.Write strSpacing & "" & strNewLine Response.Write "

" & strNewLine Next End Function Dim AllGradesArray AllGradesArray = Array( _ "Kindergarten", _ "Grade 1", _ "Grade 2", _ "Grade 3", _ "Grade 4", _ "Grade 5", _ "Grade 6", _ "Grade 7", _ "Grade 8", _ "Grade 9", _ "Grade 10", _ "Grade 11", _ "Grade 12") Dim SecondAndUpArray(10) For GradeCnt = 0 to UBound(SecondAndUpArray) SecondAndUpArray(GradeCnt) = AllGradesArray(GradeCnt + UBound(AllGradesArray) - UBound(SecondAndUpArray)) Next Dim strAcademyOnly strAcademyOnly = "* These tests are currently only available to those enrolled in the Academy." WriteProduct "Preschool Reading Readiness Testing", true, null, null, 30 Response.Write "

" WriteProduct "California Achievement Test (K-12)", true, strAcademyOnly, SecondAndUpArray, 35 %>