Find a Dentist

As a member of the Volusia-Flagler County Dental Association, each dentist is part of a professional association committed to the public’s oral health and agrees to adhere to high ethical standards as described in the American Dental Association Principal of Ethics and Code of Professional Ethics.

<% Function alter(count) if count mod 2 = 0 then alter = "bgcolor='F5F5F5'" else alter = "bgcolor='#FFFFFF'" end if End Function 'DATABASE INITIALIZE dim strConnString, db strConnString = "DRIVER=MySQL ODBC 3.51 Driver;SERVER=65.175.107.2;OPTION=16834;USER=dentalpc;PASSWORD=dpc2301;DATABASE=vfda" set db = Server.CreateObject("ADODB.Connection") db.Open strConnString %>

To find a VFDA member near you search by:
Last Name:	City:	Zip:	Specialty:
			Select a Specialty Endodontist General Dentist Oral Surgeon Orthodontist Prosthodontist Periodontist Pediatric Dentist size="16" style='color: #73736C; font-family: Verdana; font-size: 10px; border: 1px solid #73736C; background-color: #E5E5E5' value='<%= Server.HTMLEncode(SearchSpecialty) %>

<% if Request("mode") <> "" then strMode = Request("mode") end if SearchName = Request("mSN") if SearchName = "" then SearchName = Request.Form("mSN") end if SearchCity = Request("City") if SearchCity = "" then SearchCity = Request.Form("City") end if SearchZip = Request("Zip") if SearchZip = "" then SearchZip = Request.Form("Zip") end if SearchSpecialty = Request("Specialty") if SearchSpecialty = "" then SearchSpecialty = Request.Form("Specialty") end if if SearchName <> "" then 'mSelect = "LastName LIKE '" & SearchName & "%' OR FirstName LIKE '" & SearchName & "%' OR mUser LIKE '" & SearchName & "%'" mSelect = "LastName LIKE '" & SearchName & "%'" end if if SearchCity <> "" then if mSelect = "" then mSelect = mSelect & "City LIKE '" & SearchCity & "%'" else mSelect = mSelect & " AND City LIKE '" & SearchCity & "%'" end if end if if SearchSpecialty <> "" then if mSelect = "" then mSelect = mSelect & "Specialty LIKE '" & SearchSpecialty & "%'" else mSelect = mSelect & " AND Specialty LIKE '" & SearchSpecialty & "%'" end if end if if SearchZip <> "" then if mSelect = "" then mSelect = mSelect & "Zip LIKE '" & SearchZip & "%'" else mSelect = mSelect & " AND Zip LIKE '" & SearchZip & "%'" end if end if vieObj = "" vieObj = vieObj & "

" for intChar = 65 to 90 vieObj = vieObj & "" & chr(intChar) & " " Next vieObj = vieObj & "All

" response.write vieObj mypage = CInt(Request("page")) if mypage = 0 then mypage = 1 pagesize = 10 set rs = Server.CreateObject("ADODB.RecordSet") rs.PageSize = pagesize rs.CacheSize = pagesize rs.CursorLocation = 3 if mSelect <> "" then members = "SELECT COUNT(mUser) AS PAGECOUNT FROM members WHERE (" & mSelect & ")" else members = "SELECT COUNT(mUser) AS PAGECOUNT FROM members" end if set rsCount = db.Execute(members) TotalMembers = rsCount(0).value rsCount.close set rsCount = nothing if (strMode = "search") AND (TotalMembers > 0) then query = "select * from members where " if SearchName <> "" then 'tmpObj = tmpObj & "LastName LIKE '" & SearchName & "%' OR FirstName LIKE '" & SearchName & "%' OR mUser LIKE '" & SearchName & "%'" tmpObj = tmpObj & "LastName LIKE '" & SearchName & "%'" end if if SearchCity <> "" then if tmpObj <> "" then tmpObj = tmpObj & " AND City LIKE '" & SearchCity & "%'" else tmpObj = tmpObj & "City LIKE '" & SearchCity & "%'" end if end if if SearchSpecialty <> "" then if tmpObj <> "" then tmpObj = tmpObj & " AND Specialty LIKE '" & SearchSpecialty & "%'" else tmpObj = tmpObj & "Specialty LIKE '" & SearchSpecialty & "%'" end if end if if SearchZip <> "" then if tmpObj <> "" then tmpObj = tmpObj & " AND Zip LIKE '" & SearchZip & "%'" else tmpObj = tmpObj & "Zip LIKE '" & SearchZip & "%'" end if end if if tmpObj = "" then query = "select * from members order by LastName, FirstName asc" else query = query & tmpObj & " order by LastName, FirstName asc" end if else query = "select * from members order by LastName, FirstName asc" end if response.write("
") if request.querystring("c") = "1" then rs.Open query, db, 3, 1, -1 if (TotalMembers > 0) then numpages = rs.PageCount numrecs = rs.RecordCount if mypage > numpages then mypage = numpages if mypage < 1 then mypage = 1 vieObj = "" rs.AbsolutePage = mypage vieObj = vieObj & "" for i = 1 to pagesize if NOT rs.EOF then vieObj = vieObj & "" vieObj = vieObj & "" vieObj = vieObj & "" rs.MoveNext end if Next vieObj = vieObj & "

" & rs("FirstName") & " " & rs("LastName") & " " & rs("Address") & " " & rs("City") & ", FL" & "  " & rs("Zip") & " " & rs("Phone") & "

" response.write vieObj vieObj = "" vieObj = vieObj & "

" for x = 1 to numpages lb = (x - 1) * pagesize + 1 ub = x * pagesize if ub > numrecs then ub = numrecs if x = mypage then vieObj = vieObj & "" & mypage & "" else vieObj = vieObj & "" & x & "" end if if x <> numpages then vieObj = vieObj & " | " next vieObj = vieObj & "

" response.write vieObj else vieObj = "" vieObj = vieObj & "
" vieObj = vieObj & "" vieObj = vieObj & "

No members were found.

" response.write vieObj end if end if %>*The list above does not indicate endorsement by the VFDA.  It is the responsibility of the patient to investigate the individual dentist's credentials and experience.