 |
<%If Request.ServerVariables("Path_Info") = "/default.asp" Then%>
 |
<%Else%>
 |
<%End If%>
| |
|
|
|
<%
'*************************
'On-Line Guide is done
'Get Question and Answers
'*************************
Set objRS2 = createobject("ADODB.recordset")
Set objCmd2 = Server.CreateObject("ADODB.Command")
With objCmd2
.ActiveConnection = objConnect
.CommandText = "RG_GetReportVer2 (2, " & StrNull(Request.ServerVariables("Remote_Addr")) & ", " & StrNull(Session.SessionID) & ")"
.CommandType = adCmdStoredProc
End With
'Response.Write objCmd2.CommandText
Set objRS2 = objCmd2.Execute
'*************************
'Calculate Overall Score
'*************************
If Cint(objRS2("TotalPoints")) <= 20 Then
strLevel = "Early Stage"
ElseIf Cint(objRS2("TotalPoints")) > 20 AND Cint(objRS2("TotalPoints")) <= 40 Then
strLevel = "Transitional Stage"
ElseIf Cint(objRS2("TotalPoints")) > 40 AND Cint(objRS2("TotalPoints")) <= 60 Then
strLevel = "21st Century"
End If
Set objRS2 = objRS2.NextRecordset
'*************************
'Calculate Category Scores
'*************************
Do While Not objRS2.EOF
If objRS2("CatDesc") = "Learning and Teaching" Then
If Cint(objRS2("TotalCatPoints")) > 16 AND Cint(objRS2("TotalCatPoints")) <= 24 Then
strSubLevel1 = "21st Century"
ElseIf Cint(objRS2("TotalCatPoints")) > 8 AND Cint(objRS2("TotalCatPoints")) <= 16 Then
strSubLevel1 = "Transitional Stage"
ElseIf Cint(objRS2("TotalCatPoints")) > 0 AND Cint(objRS2("TotalCatPoints")) <= 8 Then
strSubLevel1 = "Early Stage"
End If
End If
If objRS2("CatDesc") = "Leading and Managing" Then
If Cint(objRS2("TotalCatPoints")) > 14 AND Cint(objRS2("TotalCatPoints")) <= 21 Then
strSubLevel2 = "21st Century"
ElseIf Cint(objRS2("TotalCatPoints")) > 7 AND Cint(objRS2("TotalCatPoints")) <= 14 Then
strSubLevel2 = "Transitional Stage"
ElseIf Cint(objRS2("TotalCatPoints")) > 0 AND Cint(objRS2("TotalCatPoints")) <= 7 Then
strSubLevel2 = "Early Stage"
End If
End If
If objRS2("CatDesc") = "Partnering" Then
If Cint(objRS2("TotalCatPoints")) > 10 AND Cint(objRS2("TotalCatPoints")) <= 15 Then
strSubLevel3 = "21st Century"
ElseIf Cint(objRS2("TotalCatPoints")) > 5 AND Cint(objRS2("TotalCatPoints")) <= 10 Then
strSubLevel3 = "Transitional Stage"
ElseIf Cint(objRS2("TotalCatPoints")) > 0 AND Cint(objRS2("TotalCatPoints")) <= 5 Then
strSubLevel3 = "Early Stage"
End If
End If
objRS2.MoveNext
Loop
%>
Thank you for taking the MILE Guide online assessment! Take the time to review your results and our recommendations
and then please give us your feedback. Click here to give us your feedback.
|
| Online Assessment Results |
|
| In the Learning and Teaching section you are at the <%=strSubLevel1%>. |
| In the Leading and Managing section you are at the <%=strSubLevel2%>. |
In the Partnering section you are at the <%=strSubLevel3%>.
|
<%If strLevel = "Early Stage" Then%>
| In the Early Stage- you have started to consider what changes need to be made to incorporate 21st Century Skills into your school. You understand the role of students, teachers, administrators and partners, and are working to increase the involvement of each stakeholder. |
<%ElseIf strLevel = "Transitional Stage" Then%>
| In the Transitional Stage- you have already implemented a number of important changes to integrate 21st Century Skills into your school. The roles of management and leadership have started to change and you have actively created new partnerships to continue such change. |
<%ElseIf strLevel = "21st Century" Then%>
| In the 21st Century Stage- you have successfully integrated 21st Century Skills into your school and are working towards continual implementation. The roles of all stakeholders are constantly changing to meet local and ongoing needs of your school. You have a vision for your school and students, teachers, administrators, parents and the community work towards this common vision. Congratulations! |
<%End If%>
Printer friendly copy of your results
|
<%Set objRS2 = objRS2.NextRecordset%>
| |
Learning and Teaching |
Leading and Managing |
Partnering |
| 21st Century |
| Transitional |
| Early |
|
<%
strCat8 = 0.000
strCat18 = 0.000
str8Count = 0.000
str18Count = 0.000
Do While Not objRS2.EOF
If objRS2("SubCatID") = 7 Then
strCat7 = objRS2("PointValue")
End If
If objRS2("SubCatID") = 8 Then
str8Count = str8Count+1
strCat8a = objRS2("PointValue")
strCat8 = strCat8+FormatNumber(strCat8a,3)
End If
If objRS2("SubCatID") = 21 Then
strCat9 = objRS2("PointValue")
' Response.Write strCat7 & "
"
' Response.Write strCat8 & "
"
' Response.Write strCat9 & "
"
'
If LEN(LEFT(Replace(CDBL(FormatNumber(strCat7,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)) <> 3 Then
strCat7 = LEFT(Replace(CDBL(FormatNumber(strCat7,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)+"00"
Else
strCat7 = LEFT(Replace(CDBL(FormatNumber(strCat7,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)
End If
If LEN(LEFT(Replace(CDBL(FormatNumber(strCat8,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)) <> 3 Then
strCat8 = LEFT(Replace(CDBL(FormatNumber(strCat8,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)+"00"
Else
strCat8 = LEFT(Replace(CDBL(FormatNumber(strCat8,3))+CDBL(FormatNumber(strCat9,3)/2),".",""),3)
End If
Response.Write " | " & vbcrlf
Response.Write " | " & vbcrlf
End If
If objRS2("SubCatID") = 18 Then
str18Count = str18Count+1
strCat18a = objRS2("PointValue")
strCat18 = strCat18+FormatNumber(strCat18a,1)
End If
If (objRS2("SubCatID") = 18 AND str18Count = 2) Then
If LEN(LEFT(Replace(LEFT(strCat18,3),".",""),3)) = 3 Then
strCat18 = LEFT(Replace(LEFT(strCat18,3),".",""),2)
ElseIf LEN(LEFT(Replace(LEFT(strCat18,3),".",""),3)) = 2 Then
strCat18 = LEFT(Replace(LEFT(strCat18,3),".",""),2)+"0"
ElseIf LEN(LEFT(Replace(LEFT(strCat18,3),".",""),3)) = 1 Then
strCat18 = LEFT(Replace(LEFT(strCat18,3),".",""),3)+"00"
End If
%>
 .gif" width="15"> |  .gif" width="15"> |
|
<%
End If
If Not (objRS2("SubCatID") = "18" OR objRS2("SubCatID") = "7" OR objRS2("SubCatID") = "8" OR objRS2("SubCatID") = "21") Then%>
| 00-<%=objRS2("CatOrder")%>.gif" width="15"> | | .gif" width="15"> |
|
<%
End If
objRS2.MoveNext
Loop
%>
|
NEXT STEPS
Part I:
Embrace a powerful vision of public education that includes 21st Century Skills
Develop priorities for 21st Century Skills
Make sure students have equitable access to a 21st Century Education
Collaborate with outside partners
Plan collectively and strategically for the future
Part II:
<%If objRS_Role("Answer") = "Teacher" Then%>
i. Increase your own ICT Literacy
ii. Improve assessments to measure 21st Century Skills
iii. Increase knowledge in content area and use of classroom assessment methodologies
iv. Make sure that learning goals, curriculum, teaching tools, instructional practices and student assessments are aligned in support of 21st Century Skills.
<%ElseIf objRS_Role("Answer") = "Local school administrator" Then%>
i. Examine local learning goals, curriculum, teaching tools, instructional practices and student assessments to make sure they are aligned in support of 21st Century Skills.
ii. Provide teachers with professional development that prepares them to teach 21st Century Skills.
iii. Increase your own ICT Literacy.
iv. Provide staff access to 21st Century To
ols.
v. Improve assessments to measure 21st Century Skills.
vi. Seek funding to support 21st Century Skills.
<%ElseIf objRS_Role("Answer") = "District administrator" Then%>
i. Examine local learning goals, curriculum, teaching tools, instructional practices and student assessments to make sure they are aligned in support of 21st Century Skills.
ii. Provide teachers and administrators with professional development that prepares them to teach 21st Century Skills.
iii. Increase your own ICT Literacy.
iv. Provide staff access to 21st Century Tools.
v. Improve assessments to measure 21st Century Skills.
vi. Seek funding to support 21st Century Skills.
vii. Increase the use of research and development in the integration of 21st Century education.
<%ElseIf objRS_Role("Answer") = "Federal Policymaker" Then%>
i. Encourage states and school districts to develop a vision for learning in the 21st Century.
ii. Increase the use of research and development in the integration of 21st Century education.
iii. Align the vision and focus of 21st Century Skills in K-12 schools with after-school, military, workforce and research and development programs.
<%ElseIf objRS_Role("Answer") = "State Policymaker" Then%>
i. Make sure standards incorporate 21st Century Skills
ii. Develop assessments that align with 21st Century Standards.
iii. Make sure that all students have equal access to 21st Century Tools and instruction.
<%ElseIf objRS_Role("Answer") = "Local Policymaker" Then%>
i. Convene education leaders and employers to begin or continue to talk about preparing workers and citizens for the 21st Century.
ii. Continue to work with schools and businesses to promote excellence in teaching and learning. Emphasize core subjects and 21st Century Learning Skills.
iii. Support funding for schools to enable them to foster 21st Century learning.
<%ElseIf objRS_Role("Answer") = "Business Leader" Then%>
i. Reinforce the need for high-skilled, productive workers.
ii. Work with K-12 schools and higher education to articulate clearly the list of skills and attributes needed for the 21st Century Workforce.
iii. Share business resources with schools.
<%ElseIf objRS_Role("Answer") = "Parent/Family Member" Then%>
i. Increase your family's use and understanding of technology tools and learning skills.
ii. Partner with teachers to support your children's development of 21st Century Skills.
iii. Urge schools to integrate ICT literacy into core subjects and develop new 21st Century context, content and assessments.
<%ElseIf objRS_Role("Answer") = "Higher Education Member" Then%>
i. Develop ICT literacy among college and university students.
ii. Foster a vision of a 21st Century Education.
iii. Teach prospective educators to use data to drive decisions.
iv. Develop programs that comprehensively prepare graduates to teach in the 21st Century.
v. Support schools of education financially and technologically at the same level as other college and university programs.
<%ElseIf objRS_Role("Answer") = "Education Researcher" Then%>
i. Develop teaching strategies to effectively teach 21st Century Skills.
ii. Create and test assessments that are aligned with 21st Century Skills.
iii. Study the best ways to educate, train and evaluate teachers and administrators in 21st Century Skills.
<%ElseIf objRS_Role("Answer") = "Member of Youth-Serving Organization (ex. YMCA, Boys and Girls Club, etc)" Then%>
i. Increase communication and collaboration with K-12 schools
ii. Integrate 21st Century Skills into technology programs and other programming.
<%ElseIf objRS_Role("Answer") = "Member of an Educational Organization or Professional Organization" Then%>
i. Encourage your members to develop competence in 21st Century Skills.
ii. Offer professional development opportunities that support 21st Century Skills.
<%ElseIf objRS_Role("Answer") = "Content Provider" Then%>
i. Work collaboratively with educators to modernize content and assessments to reflect 21st Century Skills and technology.
ii. Integrate 21st Century skills into core content and assessments.
iii. Develop content that incorporates the use of 21st Century Tools.
<%End If%>
|
<%If LCASE(Request.ServerVariables("URL")) = "/default.asp" Then%>
Board Members Only
Education Advisors
<%End If%>
|
|
|
|
