<% ' ' Filename: login2.asp ' Generated with CodeCharge 2.0.5 ' ASP 2.0.ccp build 01/22/2002 ' '------------------------------- ' login2 CustomIncludes begin %> <% ' login2 CustomIncludes end '------------------------------- '=============================== ' Save Page and File Name available into variables '------------------------------- sFileName = "login2.asp" '=============================== '=============================== ' login2 PageSecurity begin ' login2 PageSecurity end '=============================== '=============================== ' login2 Open Event start ' login2 Open Event end '=============================== '=============================== ' login2 OpenAnyPage Event start ' login2 OpenAnyPage Event end '=============================== '=============================== ' Save the name of the form and type of action into the variables '------------------------------- sAction = GetParam("FormAction") sForm = GetParam("FormName") '=============================== ' login2 Show begin '=============================== ' Page execution '------------------------------- 'Initialize error variables '------------------------------- sLogin_FormErr = "" '------------------------------- ' Select the FormAction '------------------------------- Select Case sForm Case "Login_Form" Login_FormAction(sAction) end select '=============================== '=============================== ' HTML Page layout '------------------------------- %>

<% MenuGeneral_Show %>

<% Login_Form_Show %>

<% ' login2 Show end ' login2 Close Event start ' login2 Close Event end '------------------------------- ' Destroy connection object '------------------------------- cn.close Set cn = nothing '=============================== '******************************************************************************** '=============================== ' Login Form Action '------------------------------- Sub Login_FormAction(sAction) sQueryString = GetParam("querystring") sPage = GetParam("ret_page") Select case sAction Case "login" '------------------------------- ' Login_Form Login begin '------------------------------- sLogin = GetParam("Login") sPassword = GetParam("Password") bPassed = CLng(DLookUp("employees", "count(*)", "Login =" & ToSQL(sLogin, "Text") & " and Pass=" & ToSQL(sPassword, "Text"))) '------------------------------- ' Login_Form OnLogin Event start ' Login_Form OnLogin Event end '------------------------------- if bPassed > 0 then '------------------------------- ' Login and password passed '------------------------------- Session("UserID") = CStr(DLookUp("employees", "id", "Login =" & ToSQL(sLogin, "Text") & " and Pass=" & ToSQL(sPassword, "Text"))) Session("UserRights") = CLng(DLookUp("employees", "AC", "Login =" & ToSQL(sLogin, "Text") & " and Pass=" & ToSQL(sPassword, "Text"))) if not(sPage = request.serverVariables("SCRIPT_NAME")) and not(isEmpty(sPage)) then cn.Close Set cn = Nothing response.redirect(sPage & "?" & sQueryString) end if cn.Close Set cn = Nothing response.redirect("eb_clients.asp") else sLogin_FormErr = "Login or Password is incorrect." end if '------------------------------- ' Login_Form Login end '------------------------------- Case "logout" '------------------------------- ' Login_Form Logout begin '------------------------------- '------------------------------- ' Login_Form OnLogout Event start ' Login_Form OnLogout Event end '------------------------------- Session("UserID") = Empty Session("UserRights") = Empty cn.Close Set cn = Nothing if not isEmpty(sPage) then response.redirect(sPage & "?" & sQueryString) response.redirect(sFileName) '------------------------------- ' Login_Form Logout end '------------------------------- End Select End Sub '=============================== '=============================== ' Display Login Form '------------------------------- Sub Login_Form_Show() Dim sFormTitle: sFormTitle = "Login" '------------------------------- ' Login_Form Show begin '------------------------------- '------------------------------- ' Login_Form Open Event start ' Login_Form Open Event end '------------------------------- sQueryString = GetParam("querystring") sPage = GetParam("ret_page") '------------------------------- ' Login_Form BeforeShow Event start ' Login_Form BeforeShow Event end '------------------------------- %> <% if not (sLogin_FormErr = "") then %> <% end if %> <% if Session("UserID") = "" then '------------------------------- ' User is not logged in '------------------------------- %> <% else '------------------------------- ' User is logged in '------------------------------- UserID = DLookUp("employees", "Login", "id =" & Session("UserID")) %> <% end if %>

<%=sFormTitle%>
<%= sLogin_FormErr %>
Login	" maxlength="50">
Password
<%= UserID %>

<% '------------------------------- ' Login_Form Close Event start ' Login_Form Close Event end '------------------------------- '------------------------------- ' Login_Form Show end '------------------------------- end Sub '=============================== %>