<% Const adOpenDynamic = 2 Const adOpenKeyset = 1 Const adOpenStatic = 3 Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 if Request("logout") = "true" then session("administrator") = "false" session("member") = "false" end if Dim conn, rsSpecialty, rsCities, sql Set conn = Server.CreateObject("ADODB.Connection") ' conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=..\fpdb\nodadata.mdb" conn.Open "PRINTAND-NODA" Set rsSpecialty = Server.CreateObject("ADODB.Recordset") sql = "SELECT specialty FROM [_tblSpecialty]" rsSpecialty.Open sql, conn, adOpenForwardOnly, adLockReadOnly Set rsCities = Server.CreateObject("ADODB.Recordset") if session("member") = "true" then sql = "SELECT DISTINCT city FROM [_tblMbrAddress], [_tblMembers], [_tblStatus] WHERE ([_tblMembers].[K-ADA-ID] = [_tblMbrAddress].[K-ADA-ID]) " sql = sql & "AND (NOT [_tblMbrAddress].SortOrder = 'H') AND (NOT [_tblMbrAddress].SortOrder = 'M') " sql = sql & "AND ([_tblMembers].Status = [_tblStatus].Status_Code) AND ([_tblStatus].IncludeInPrivateSearchInd) " else sql = "SELECT DISTINCT city FROM [_tblMbrAddress], [_tblMembers], [_tblStatus] WHERE ([_tblMembers].[K-ADA-ID] = [_tblMbrAddress].[K-ADA-ID]) " sql = sql & "AND ( ([_tblMembers].status = 'ACT') OR ([_tblMembers].status = 'ALF') OR ([_tblMembers].status = 'ASC') ) " sql = sql & "AND (NOT [_tblMbrAddress].SortOrder = 'H') AND (NOT [_tblMbrAddress].SortOrder = 'M') " sql = sql & "AND ([_tblMembers].Status = [_tblStatus].Status_Code) AND ([_tblStatus].IncludeInPublicSearchInd) " end if rsCities.Open sql, conn, adOpenForwardOnly, adLockReadOnly %>
<% if session("member") = "true" then %> NODA Members' Dentist Search Form

<% else %> NODA Public Dentist Search Form

<% end if %>
Enter your search criteria below.
Last Name
 First Name
City
 State
Specialty
  
   <% if session("member") = "true" then %>    <% end if %>
<% if session("member") <> "true" then %>

If you are a NODA member, click here to login to the members' dentist search form. <% end if %>
<% rsSpecialty.Close rsCities.Close conn.Close Set rsSpecialty = Nothing Set rsCities = Nothing Set conn = Nothing %>