<%Option Explicit
Dim msg
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 rs, conn, sql
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "PRINTAND-NODA"
if Request.Form("password") <> "" Or Request.form("login") <> "" Or Request.form("membername") <> "" then
session("member") = "false"
if Request.Form("membername") = "" then
msg = "Please select your name from the list of members."
else
sql = "SELECT [_tblMembers].[K-ADA-ID] FROM [_tblMembers] WHERE ([_tblMembers].Last_Name + [_tblMembers].First_Name + [_tblMembers].Middle_Initial) = '" & Request.Form("membername") & "'"
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
if rs.BOF and rs.EOF then
msg = "We're Sorry, the dentist you selected no longer exists in the database."
else
if Request.Form("password") = "" then
msg = "Please enter the last four digits of your K-ADA-ID in the password field."
else
if Right(Trim(rs.Fields("K-ADA-ID")), 4) = Request.form("password") then
session("member") = "true"
Response.Redirect "search_form.asp"
else
msg = "Sorry, the K-ADA-ID you entered does not match the selected dentist. Please try again."
end if
end if
end if
rs.Close
end if
end if
sql = "SELECT [_tblMembers].Last_Name, [_tblMembers].First_Name, [_tblMembers].Middle_Initial, [_tblMembers].Suffix FROM [_tblMembers], [_tblStatus] WHERE ([_tblMembers].Status = [_tblStatus].Status_Code) AND ([_tblStatus].IncludeInPrivateSearchInd) ORDER BY [_tblMembers].Last_Name, [_tblMembers].First_Name, [_tblMembers].Middle_Initial "
rs.Open sql, conn, adOpenForwardOnly, adLockReadOnly
Dim dic
Set dic = Server.CreateObject("Scripting.Dictionary")
dic.Add CStr(Request.Form("membername")), " selected "
%>