Home | Site Map

<%If (Request.Form("login") <> "" OR Request.Form("login") = "HP") AND (Request.Form("password") <> "" OR Request.Form("password") = "EPS") Then%> <% Dim conn Set conn = Server.CreateObject("ADODB.Connection") conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & _ Server.MapPath("ContractStaff.mdb")) Dim strSQL, rs Dim id, sName, password id = Trim(Request.Form("login")) id = Replace(id, "'", "") password = Request.Form("password") password = Replace(password, "'", "") 'Response.Write id & "
" 'Response.Write nameln & "
" strSQL = "Select ID, FullName, staffing from Records Where ID = '" & id & "' AND Password = '" & password & "'" 'Response.Write strSQL & "
" set rs = conn.Execute(strSQL) if not rs.EOF Then if rs("FullName") <> "" Then sName = rs.Fields("FullName") end if Else sName = "EPS Staff" End if If not rs.EOF Or id = "EPS" Then 'If database got this staff %> <% rs.Close Set rs = Nothing conn.Close Set conn = Nothing Else 'if there is no such person Response.Write "
" Response.Write "
" End If%> <%Else If Request.Form("login") = "" AND Request.Form("password") = "" Then Response.Write "
" Else Response.Write "
" End IF %> <%End If%>
:: Staff Login ::
 
Welcome <%=sName%>!

The information in this page is intended for EPS employee.
 
 

 
Access Denied!
You have keyed in an invalid ID/password
Please login to gain access
Access Denied!
  
      Login:  
      Password:
 
     

Company Profile | Our Services | Contact Detail | Job Services | Log In