<% if request.form("dome1") = "1" then 'update password DIM temp strSQL = "SELECT * FROM tblLoginInfo WHERE " _ & "password='" & Request.Form("oldpass") & "';" Set rstLogin = cnnLogin.Execute(strSQL) if rstLogin.eof = false then temp = rstLogin("username") rstLogin.close cnnLogin.close set cnnlogin = nothing Set cnnLogin = Server.CreateObject("ADODB.Connection") cnnLogin.Mode = 3 '3 = adModeReadWrite response.write(Server.MapPath("login.mdb")) cnnLogin.Open("DRIVER={Microsoft Access Driver (*.mdb)};" _ & "DBQ=" & Server.MapPath("login.mdb")) strSQL = "UPDATE tblLoginInfo SET password='" & request.form("newpass") & "' WHERE username = '" & temp & "';" Set rstLogin = cnnLogin.Execute(strSQL) end if end if If Request.Form("dome") <> "validate_login" Then %>

<% Else strSQL = "SELECT * FROM tblLoginInfo " _ & "WHERE username='" & Replace(Request.Form("login"), "'", "''") & "' " _ & "AND password='" & Replace(Request.Form("password"), "'", "''") & "';" Set rstLogin = cnnLogin.Execute(strSQL) If Not rstLogin.EOF Then %>

Welcome to the Board of Directors' Page

This page is used to provide the APICS Hamilton Chapter Board of Directors with a common location for frequently used documents. Please contact Lee Johnson if you have any questions or concerns lkq@cogeco.ca