Learn-a-Test: Includes practice tests and skill development exercises designed to help students prepare for the following tests: ACT, Advanced Placement exams, Civil Service Tests, Cosmetology, U.S. Citizenship, Business Writing, Math Skills, and more. More information is available in the Nexus.
Illinois Career Information System: Click on "CIS (Career Information System)" after the website loads to get information on occupations and Illinois colleges and universities. See librarian for username and password to use from home. At school no username and password are needed.
Career Cruising: Includes career matching tools, occupation information, specific education and training programs, and a career portfolio tool. See the Library or the Nexus for the username and password for school and home use.
Teacher Resources
unitedstreaming: Digital video to download and use in your classroom
Project C.R.I.S.S.: More ideas for implementation of C.R.I.S.S. strategies in the classroom
Education World: Lesson planning; school issues; curriculum; and featured sites
REL Midwest: Curriculum; instruction; assessment; and educational policy
ERIC: Search ERIC database of journal articles, find lesson plans, and explore educational issues
<%
Dim strCalendarConn
strCalendarConn = "Driver={SQL Server};" & _
"Server=(local);" & _
"Database=calendar;" & _
"Uid=sgray;" & _
"Pwd=vaesrt"
Dim connCategory
Set connCategory = Server.CreateObject("ADODB.Connection")
With connCategory
.ConnectionString = strCalendarConn
.CursorLocation = adUseClient
End With
connCategory.Open()
Dim commCalendarCategory, rsCalendarCategory
Set commCalendarCategory = Server.CreateObject("ADODB.Command")
With commCalendarCategory
.ActiveConnection = connCategory
.CommandType = adCmdStoredProc
.CommandText = "calendarCategorySelectAllLMC"
End With
Set rsCalendarCategory = commCalendarCategory.Execute
Dim strID
While NOT rsCalendarCategory.EOF
If InStr(Replace(rsCalendarCategory("name"), " ", ""), strSchool) Then
strID = rsCalendarCategory("id")
End If
rsCalendarCategory.movenext
Wend
'Response.Write("strID: " & strID & " ")
'Response.Write("strSchool: " & strSchool & " ")
'Response.End
Dim connCustomPages
Set connCustomPages = Server.CreateObject("ADODB.Connection")
With connCustomPages
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connCustomPages.Open()
Dim commCustomPages, rsCustomPages
Set commCustomPages = Server.CreateObject("ADODB.Command")
With commCustomPages
.ActiveConnection = connCustomPages
.CommandType = adCmdStoredProc
.CommandText = "lmcRecReadsSelectByLocation"
.Parameters.Append( .CreateParameter ("docType", adVarChar, adParamInput, 50, NULL ) )
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 50, strSchool ) )
End With
Dim connDownloads
Set connDownloads = Server.CreateObject("ADODB.Connection")
With connDownloads
.ConnectionString = strConnCMS
.CursorLocation = adUseClient
End With
connDownloads.Open()
Dim commDownloads, rsDownloads
Set commDownloads = Server.CreateObject("ADODB.Command")
With commDownloads
.ActiveConnection = connDownloads
.CommandType = adCmdStoredProc
.CommandText = "lmcDownloadInfo"
.Parameters.Append( .CreateParameter ("Location", adVarChar, adParamInput, 75, strSchool ) )
End With
Set rsDownloads = commDownloads.Execute
%>
<% End If
commCustomPages.Parameters("docType") = "Research_Resources"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<% End If
commCustomPages.Parameters("docType") = "Local Libraries"
Set rsCustomPages = commCustomPages.Execute
If rsCustomPages.RecordCount > 0 Then
%>
<%
End If
commCustomPages.Parameters("docType") = "Custom"
Set rsCustomPages = commCustomPages.Execute
While NOT rsCustomPages.EOF
If Not IsNull(rsCustomPages("buttonline1")) And Not IsNull(rsCustomPages("buttonline2")) Then
%>
