<%Option Explicit Dim conn, rs, sql, recordcount, intRecord, intPageCount, current_page Const adOpenDynamic = 2 Const adOpenKeyset = 1 Const adOpenStatic = 3 Const adOpenForwardOnly = 0 Const adLockReadOnly = 1 Const adLockOptimistic = 3 Const adLockBatchOptimistic = 4 Const intPageSize = 15 ' determine whether this is a new search or a continuing search if Request.Form("next_page") <> "" then current_page = Request.Form("next_page") sql = Request.Form("sql") elseif Request.Form("prev_page") <> "" then current_page = Request.Form("prev_page") sql = Request.Form("sql") else ' this is a new search current_page = 1 ' Create query string sql = "SELECT [_tblMbrAddress].Address_Ln_1, " sql = sql & "[_tblMbrAddress].Address_Ln_2, " sql = sql & "[_tblMbrAddress].City, " sql = sql & "[_tblMbrAddress].State, " sql = sql & "[_tblMbrAddress].Zip, " sql = sql & "[_tblMbrAddress].Phone, " sql = sql & "[_tblMbrAddress].Ext, " sql = sql & "[_tblMbrAddress].Fax, " sql = sql & "[_tblMbrAddress].Email, " sql = sql & "[_tblMembers].[K-ADA-ID], " sql = sql & "[_tblMembers].Last_Name, " sql = sql & "[_tblMembers].First_Name, " sql = sql & "[_tblMembers].Middle_Initial, " sql = sql & "[_tblMembers].Suffix, " sql = sql & "[_tblMembers].Type, " sql = sql & "[_tblMembers].Spouse_Last_Name, " sql = sql & "[_tblMembers].Spouse_First_Name, " sql = sql & "[_tblStatus].StatusKey " sql = sql & "FROM [_tblMbrAddress], [_tblMembers], [_tblStatus] " sql = sql & "WHERE ([_tblMembers].[K-ADA-ID] = [_tblMbrAddress].[K-ADA-ID]) " sql = sql & "AND ([_tblStatus].Status_Code = [_tblMembers].Status) " sql = sql & "AND (NOT [_tblMbrAddress].SortOrder = 'H') " sql = sql & "AND (NOT [_tblMbrAddress].SortOrder = 'M') " if session("member") then sql = sql & "AND ([_tblStatus].IncludeInPrivateSearchInd) " else sql = sql & "AND ([_tblStatus].IncludeInPublicSearchInd) " end if ' User can search by last, first, city, state, specialty if Request.Form("last") <> "" then sql = sql & "AND ([_tblMembers].Last_Name = '" & Request.Form("last") & "') " end if if Request.Form("first") <> "" then sql = sql & "AND ([_tblMembers].First_Name = '" & Request.Form("first") & "') " end if if Request.Form("city") <> "" then sql = sql & "AND ([_tblMbrAddress].City = '" & Request.Form("city") & "') " end if if Request.Form("state") <> "" then sql = sql & "AND ([_tblMbrAddress].State = '" & Request.Form("state") & "') " end if if Request.Form("specialty") <> "" then sql = sql & "AND ([_tblMembers].Type = '" & Request.Form("specialty") & "') " end if sql = sql & "ORDER BY [_tblMembers].[Last_Name], [_tblMembers].[First_Name], [_tblMembers].[Middle_Initial], [_tblMembers].[K-ADA-ID], [_tblMbrAddress].SortOrder " end if Set conn = Server.CreateObject("ADODB.Connection") ' conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\..\fpdb\nodadata.mdb" conn.Open "PRINTAND-NODA" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, adOpenStatic, adLockReadOnly ' Response.Write sql & "

" if Not (rs.BOF and rs.EOF) then recordcount = rs.RecordCount rs.PageSize = intPageSize intPageCount = rs.PageCount rs.AbsolutePage = current_page end if %> <% if (rs.BOF and rs.EOF) then Response.Write "We're sorry, no dentists were found who match your search.
" else Response.write "Search Results: " & recordcount & " records. Page " & current_page & " of " & intPageCount & "

" for intRecord = 1 to intPageSize if rs.EOF then exit for end if Display_Listing rs next end if ' if we are not at the first page, display previous button Response.Write "
" Response.Write "" if CInt(current_page) > 1 then Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if ' if we are not at the last page, display next button if CInt(current_page) < CInt(intPageCount) then Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" %> <% rs.Close conn.Close Set rs = Nothing Set conn = Nothing %> <% Sub Display_Listing(rs) Dim K_ADA_ID, print_spouse print_spouse = true K_ADA_ID = rs.Fields("K-ADA-ID").Value ' 1st line: Name and Specialty Response.Write "
" Response.Write "" & rs.Fields("Last_Name").Value & ", " & rs.Fields("First_Name").Value & " " & rs.Fields("Middle_Initial") & " " & rs.Fields("Suffix").Value & "  " if rs.Fields("Type").Value <> "" then Response.Write rs.Fields("type").Value else Response.Write "General Practice" end if Response.Write "" if (rs.Fields("StatusKey") <> "") And (Not IsNull(rs.Fields("StatusKey"))) then Response.Write "  " & rs.Fields("StatusKey") & "" end if Response.Write "
" Response.Write "

" do until rs.EOF ' 2nd line: Address_Ln_1 Response.Write rs.Fields("Address_Ln_1").Value & " " ' 3rd line: Address_Ln_2 if rs.Fields("Address_Ln_2").Value <> "" then Response.Write rs.Fields("Address_Ln_2").Value & " " end if '4th line: city, state zip Response.Write rs.Fields("City").Value & ", " & rs.Fields("State").Value & "  " & rs.Fields("Zip").Value & " " '5th line: phone and extension if rs.Fields("Phone").Value <> "" then Response.Write "" & rs.Fields("Phone").Value if rs.Fields("Ext").Value <> "" then Response.Write " Ext. " & rs.Fields("Ext").Value end if Response.Write " " end if ' 6th line: Fax if rs.Fields("Fax").Value <> "" And session("member") = "true" then Response.Write "Fax " & rs.Fields("Fax").Value & " " end if ' 7th line: email if rs.Fields("email").Value <> "" And session("member") = "true" then Response.Write rs.Fields("email").Value & " " end if ' 8th line: web address goes here ' 9th line: spouse if print_spouse And rs.Fields("Spouse_First_Name").Value <> "" And session("member") = "true" then Response.Write "Spouse: " & rs.Fields("Spouse_First_Name").Value & " " print_spouse = false end if Response.Write " " ' now determine if there are any other offices for this dentist that we need to print rs.MoveNext if not rs.EOF then if rs.Fields("K-ADA-ID") <> K_ADA_ID then Response.Write "

" Exit Sub end if else Response.Write "" Exit Sub end if loop Response.Write "" End Sub %>