<%@ Language=VBScript %>
<%
'*********************************************
'* Filename: load_module.asp
'* Montessori Homewood Project
'* Copyright 2002 Carnegie Mellon University
'* Bryan Valentini
'*
'*********************************************
Response.Buffer = true
%>
<%
If (Session("Auth")<>"VERIFIED" or Request.QueryString = "" ) Then
Response.Clear
Response.Redirect("error.asp")
End If
modn = Request.QueryString("mod")
%>
HMS
MENU
LOGOUT
<%
'Following command calls the main ASP file associated with the
'respective module. For example, if querystring = "beadframe",
'then beadframe.ASP in the beadframe folder is executed.
Response.Clear
if(Application(modn) <> "NOTINSTALLED") Then
Response.Redirect(Application(modn))
else
Response.Redirect("nomod.asp")
end if
%>