<% FromState = request.QueryString("state") if FromState <> "" then response.Cookies("FromState") = FromState else FromState = request.Cookies("FromState") end if Username="test" Password="test" Validated = "OK" Function ReadTextFile(strFilePath) Dim objFSO, objFile, strAllFile Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(strFilePath) strAllFile = "" If Not(objFile.AtEndOfStream) Then strAllFile = objFile.ReadAll End If objFile.Close Set objFile = Nothing Set objFSO = Nothing strAllFile = Replace(strAllFile, Chr(13)&Chr(10), Chr(13)) strAllFile = Replace(strAllFile, Chr(10)&Chr(13), Chr(13)) strAllFile = Replace(strAllFile, Chr(10), Chr(13)) ReadTextFile = Split(strAllFile, Chr(13)) End Function function isValidUser() ' define valid user/password pairs here ' numbers in the "userpass(x) =" lines must be sequential in number ' dim userpass(2) ' number in parentheses must match the number of lines defines below ' userpass(0) = "test,test" ' userpass(1) = "demo,demo" dim userpass userpass = ReadTextFile(Server.MapPath("_USER_PASS_COMBOS_.txt")) for i = 0 to ubound(userpass) vals = split(userpass(i),",") if (ubound(vals) = 1) then if strcomp(request.Form("username"), vals(0), 1) = 0 and request.Form("password") = vals(1) then isValidUser = true exit function end if end if next isValidUser = false end function if (request.Form("username") <> "" or request.Form("password") <> "") then if isValidUser() = true then 'Set the validation cookie and redirect the user to the original page. response.Cookies("ValidUser") = Validated response.Cookies("ValidUser").Expires = DATE + 1 'Check where the users are coming from within the application. if (request.QueryString("from") <> "") then response.Redirect request.QueryString("from") else 'If the first page that the user accessed is the Logon page, 'direct them to the default page. response.Redirect "selectcourse.asp" end if else ' clear cookie response.Cookies("ValidUser") = "" end if elseif request.Cookies("ValidUser") = Validated then response.Redirect "selectcourse.asp" end if %>
Expert 21
Reading, Writing + Thinking for the 21st Century  [Grades 6-9]
Visit the e21 site
<% '

Expert 21 was designed to accelerate students in Grades 6–9 from basic to proficient — and beyond — so they are prepared with the literacy expertise to thrive in the 21st Century.

'

Expert 21 features: '

    '
  • Explicit instruction in and application of 21st Century Skills students will use in college, career, and life.
  • '
  • Content that students want to read because it's relevant and contemporary.
  • '
  • Content that integrates English language arts and interdisciplinary content area literacy.
  • '
  • Expert Space, the first Digital Curriculum and Toolkit for the 21st Century.
  • '
  • Inquiry-based learning that helps students build and question understanding and knowledge of the world in which they live, learn and work.
  • '
'

%>

Expert 21 is the core English Language Arts program that ensures middle school students are college and career ready.  This 21st Century curriculum features engaging literature and informational texts that students want to read, as well as inquiry-based learning that builds understanding and knowledge of the world in which students live, learn, and work. Plus, daily writing, collaboration and embedded instruction in higher order, critical thinking skills such as problem solving, asking good questions and more, prepare students to read, write, and think in the 21st Century.


Read the Expert 21 Alignment to the
Common Core Standards:

Log In to eSampler.

<% ' Only present the failure message if the user typed in something. if request.Form("username") <> "" then response.Write "

Username and/or password not valid. Try again.

" end if %>

Username:

Password:

Need a username and password?
Contact Us