<% 
response.Buffer = true
%><!-- #include file="shell.asp" --><% 
action = request("action")
select case action
	case "logon"
		displayHeader() 
		security_getLogonInfo(request("rd"))
		displayFooter() 
	case "validate"
		security_validateUser request("User_Id"), request("password"), ""
	case "logoff"
		security_LogOff()
	case "requestPasswd"
		security_requestPasswd()
	case "sendPasswd"
		security_sendPasswd()
	case else
		displayHeader() 
		security_getLogonInfo(request("rd"))
		displayFooter() 
end select
%>