<%@ LANGUAGE="VBSCRIPT" %>
<%
'********************************************************************
' Name: Login.asp
'
' Purpose: present user with login screen.
'********************************************************************
Option Explicit ' require variable declarations
Response.Expires = 0 ' expire page now
Response.Buffer = True ' buffer page until complete, good for redirects
'********************************************************************
' Include Files
'********************************************************************
' might need this for asp includes
'
%>
<%
'********************************************************************
' Global Variables
'********************************************************************
'********************************************************************
' Main
'********************************************************************
Main
'--------------------------------------------------------------------
' Function: Main
'
' Purpose: Entry point for the page.
'--------------------------------------------------------------------
Sub Main
' start page layout page_start(title,head,body,nav)
Call page_start("Client Login","", "", "")
' check for valid login
if (request.form("Action") = "Login") then
if (Login(request.form("UserName"), request.form("Password")) ) then
' user authenticated, redirect to menu page
'response.redirect("listdocs.asp")
Call display_client_options()
else
Call display_login_form()
end if
else
Call display_login_form()
end if
Call page_end()
End Sub
'********************************************************************
' Server-Side Functions
'********************************************************************
' display_client_options() - Present client with listdocs
Sub display_client_options()
%>
<%
end sub
' -----------------------------------------------------------------------
' display_login_form() - Present client login form
Sub display_login_form()
%>