<% 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=10.10.11.1;OPTION=16834;USER=ccds;PASSWORD=dpc2301;DATABASE=myhnt11b246" 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.
  To find a dentist by last name choose the link below:

A | B | C | D | E | F | G | H | I | J | K | L | M | N | O | P | Q | R | S | T | U | V | W | X | Y | Z

 

To find a dentist by specialty choose the appropriate link below:

General Dentists | Endodontists | Oral Surgeons | Orthodontists
Pedodonitsts | Periodontists