<%Option Explicit Const adOpenDynamic = 2 Const adOpenKeyset = 1 Const adOpenStatic = 3 Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Const intPageSize = 15 Dim msg if Request.Form("login") <> "" then Dim login, password, conn, rs, sql login = Request.Form("login") password = Request.Form("password") Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\Inetpub\wwwroot\nodental.org\ftp\logins.mdb" Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT logins.administrator FROM logins WHERE (logins.login = '" & login & "') AND (logins.password = '" & password & "')" rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly if rs.BOF and rs.EOF then msg = "
Invalid login. Please try again.
If you are not a member, please use the public search form.
" session("administrator") = "false" session("member") = "false" rs.Close conn.Close Set rs = Nothing Set conn = Nothing elseif rs.Fields("administrator") = true then session("administrator") = "true" session("member") = "true" rs.Close conn.Close Set rs = Nothing Set conn = Nothing Response.Redirect "member_admin.asp" else session("administrator") = "false" session("member") = "true" rs.Close conn.Close Set rs = Nothing Set conn = Nothing Response.Redirect "search_form.asp" end if end if %>
NODA Dentist Locator

<% if msg <> "" then Response.Write msg & "

" end if %>
Login:  ">
Password:  ">


If you are not a member, please use the public search form.