<% dim LoginSuccess LoginSuccess = true public Sub CheckLogin() if ucase(Request.Form("login")) = "ADMIN" and ucase(Request.Form("password")) = "ADMIN" then response.redirect("Admin.asp") elseif ucase(Request.Form("login")) = "SCHOOL" and ucase(Request.Form("password")) = "SCHOOL" then response.redirect("school/Main.asp") elseif ucase(Request.Form("login")) = "MANSION" and ucase(Request.Form("password")) = "MANSION" then response.redirect("mansion/index.html") elseif ucase(Request.Form("login")) = "YMCA" and ucase(Request.Form("password")) = "YMCA" then response.redirect("ymca/index.html") elseif ucase(Request.Form("login")) = "WEDDING" and ucase(Request.Form("password")) = "WEDDING" then response.redirect("Wedding.asp") elseif ucase(Request.Form("login")) = "JAMAICA" and ucase(Request.Form("password")) = "JAMAICA" then response.redirect("wedding/index.html") else LoginSuccess = false end if end Sub %> <%if (Request.Form("hidLogin") <> "N") and (Request.Form("hidFirstTime") <> "") then 'then go to the Sub that checks Login credentials CheckLogin end if %>

Registered clients may log in to our server through the form on the right of the screen. Benefits of becoming a registered client: Access to Personalized help-desk View your customized portfolio on-line View your current balance Receive updates from our development staff Contact us to inquire about becoming on of our clients!

Login: Password: <%if LoginSuccess = false then %> <%end if%>

armbrustconsulting.com