Professional Directory
Welcome to our extensive database of surveying professionals. If you're looking for a surveyor, you'll find them here. Search by name, state or zip and sort by name, company, city, or state. To view all professionals, simply click "Search".

Search
Name <%response.write(request.form("s_name"))%>		<% on error resume next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "dsn=survey" sql = "SELECT DISTINCT state FROM profdir WHERE state <> '" & request.form("s_state") & "' ORDER BY state;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 if rs.recordcount > 0 then %>State or Province <% if ((request.form("s_state") <> "") AND (request.form("s_state") <> "Any")) then %> <%response.write(request.form("s_state"))%><%response.write(request.form("s_state"))%><%end if%> Any<% rs.movefirst do while not rs.eof %> <%response.write(ucase(rs.fields("state")))%><%response.write(ucase(rs.fields("state")))%><% rs.movenext loop %> <%end if rs.close set rs = nothing %>		Postal Code <%response.write(request.form("s_zip"))%>		Sort By <%if ((request.form("sortby") = "name") OR (request.form("sortby") = "")) then response.write("name") else response.write("name") end if if request.form("sortby") = "company" then response.write("company") else response.write("company") end if if request.form("sortby") = "city" then response.write("city") else response.write("city") end if if request.form("sortby") = "state" then response.write("state") else response.write("state") end if %>

<% if ((request.form("s_name") = "") AND (request.form("s_state") = "") AND (request.form("s_zip") = "") AND (request.form("sortby") = "")) then response.write("
") else sql = "SELECT fname & ' ' & lname AS contact, company, email, phone, address1, address2, city, state, zip, country FROM profdir" if request.form("s_name") <> "" then sql = sql & " WHERE ((InStr(1,company,'" & Request.form("s_name") & "',1)>0) OR (InStr(1,fname & ' ' & lname,'" & Request.form("s_name") & "',1)>0))" if ((request.form("s_state") <> "Any") AND (request.form("s_state") <> "")) then sql = sql & " AND state = '" & request.form("s_state") & "' " end if if request.form("s_zip") <> "" then sql = sql & " AND (InStr(1,zip,'" & Request.form("s_zip") & "',1)>0)" end if else if ((request.form("s_state") <> "Any") AND (request.form("s_state") <> "")) then sql = sql & " WHERE state = '" & request.form("s_state") & "' " if request.form("s_zip") <> "" then sql = sql & " AND (InStr(1,zip,'" & Request.form("s_zip") & "',1)>0)" end if else if request.form("s_zip") <> "" then sql = sql & " WHERE (InStr(1,zip,'" & Request.form("s_zip") & "',1)>0)" end if end if end if if ((request.form("sortby") = "") OR (request.form("sortby") = "name")) then sql = sql & " ORDER BY lname, fname;" else sql = sql & " ORDER BY " & request.form("sortby") & ", lname, fname;" end if Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 if rs.recordcount < 1 then response.write("No Records Found
") else rs.movefirst %> <% do while not rs.eof %> <% rs.movenext loop end if rs.close set rs = nothing %>

						<%response.write(rs.recordcount & " professionals found") %>
Name		Company		Phone		Address
<% if rs.fields("email") <> "" then response.write("") end if %> <%response.write(ucase(rs.fields("contact")))%>		<%response.write(ucase(rs.fields("company")))%>		<%response.write(ucase(rs.fields("phone")))%>		<%addr = rs.fields("address1") if rs.fields("address2") <> "" then addr = addr & " " & rs.fields("address2") end if addr = addr & " " & rs.fields("city") & ", " & rs.fields("state") & " " & rs.fields("zip") & " " & rs.fields("country") response.write(ucase(addr))%>

<% end if conn.close set conn = nothing %>