Baroudi Design Web Site Design, Development and Implementation
Services Portfolio Company Contact Log In

Log In

<% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work Session("UserLoggedIn") = "" If Request.Form("login") = "true" Then CheckLogin Else ShowLogin End If Sub ShowLogin %> <% End Sub Sub CheckLogin If LCase(Request.Form("username")) = "nino" And LCase(Request.Form("userpwd")) = "mesh" Then Session("UserLoggedIn") = "true" Response.Redirect "index.htm" ElseIf LCase(Request.Form("username")) = "delcoit" And LCase(Request.Form("userpwd")) = "sailer" Then Session("UserLoggedIn") = "delcologin" Response.Redirect "delco/index.asp" ElseIf LCase(Request.Form("username")) = "beneflex" And LCase(Request.Form("userpwd")) = "flexaccount" Then Session("UserLoggedIn") = "beneflexlogin" Response.Redirect "beneflex/index.asp" ElseIf LCase(Request.Form("username")) = "bobegan" And LCase(Request.Form("userpwd")) = "entertainment" Then Session("UserLoggedIn") = "eganlogin" Response.Redirect "bobegan/index.asp" ElseIf LCase(Request.Form("username")) = "delcoit" And LCase(Request.Form("userpwd")) = "sailerk" Then Session("UserLoggedIn") = "delcologin" Response.Redirect "delco/index.asp" ElseIf LCase(Request.Form("username")) = "optium" And LCase(Request.Form("userpwd")) = "proposal" Then Session("UserLoggedIn") = "optiumlogin" Response.Redirect "optium/index.asp" ElseIf LCase(Request.Form("username")) = "jaslink" And LCase(Request.Form("userpwd")) = "james" Then Session("UserLoggedIn") = "jaslinklogin" Response.Redirect "jaslink/index.asp" ElseIf LCase(Request.Form("username")) = "bigkidd" And LCase(Request.Form("userpwd")) = "enter" Then Session("UserLoggedIn") = "bigkiddlogin " Response.Redirect "bigkidd/index.asp" ElseIf LCase(Request.Form("username")) = "ltw" And LCase(Request.Form("userpwd")) = "login" Then Session("UserLoggedIn") = "ltwlogin" Response.Redirect "ltw/ltw-mockups.asp" ElseIf LCase(Request.Form("username")) = "optium" And LCase(Request.Form("userpwd")) = "login" Then Session("UserLoggedIn") = "optiumlogin" Response.Redirect "optium/index.asp" Else Response.Write("

") ShowLogin End If End Sub %>
Welcome to the client login page.
This area is reserved for clients of Baroudi Design.
If you have been issued with a username and password, please enter them in the boxes below.
 
User Name:
Password:
 

If you have forgotten your details, please contact us.


  © 1998-2004, Baroudi Design. Philadelphia, PA    Home | Services | Portfolio | Company | Contact | Site Map