<%@ Language="VBScript" %> <% Dim server_name, script_name, server_port, server_referer server_name = Request.ServerVariables("SERVER_NAME") script_name = Request.ServerVariables("SCRIPT_NAME") server_port = Request.ServerVariables("SERVER_PORT") server_referer = Request.ServerVariables("HTTP_REFERER") Dim containing_folder, expected_referer containing_folder = Left( script_name, InStrRev( script_name, "/", -1, 1 ) ) expected_referer = server_name & containing_folder If server_port <> 80 And server_port <> 443 Then expected_referer = server_name & ":" & server_port & containing_folder End If server_referer = my_URLDecode( server_referer ) expected_referer = my_URLDecode( expected_referer ) result_errorMessage = "" If InStr(1, server_referer, expected_referer) = 0 then result_errorMessage = "Unexpected Referer: " & server_referer & "
" & "Expected Referer: " & expected_referer Response.Redirect "." End If FUNCTION my_URLDecode(str) '// https://gist.github.com/gwobcke/2773779 Dim objScript Set objScript = Server.CreateObject("ScriptControl") objScript.Language = "JavaScript" my_URLDecode = objScript.Eval("decodeURIComponent(""" & str & """.replace(/\+/g,"" ""))") Set objScript = NOTHING END FUNCTION %> Light | STEM Instant Activities <% If result_errorMessage <> "" Then %>
Error: <%=result_errorMessage%>
<% End If %>
Scholastic
SuperScience

STEM Instant Activities Grades 4–6

Video

Light

A video about how Vantablack absorbs more light than an ordinary black fabric