1. Enter the information you would like to search and click "Search".
2. Click on any result to see detailed property information.
Tips: Enter parcel numbers without dashes, for example; 0101100001.
If no results are returned, try minimizing your search criteria,
for example; if First Name: John Last Name: Smith returns no results, try searching Last Name: Smith.
Note: (Use Chrome or Firefox– the map will not work correctly with Internet Explorer/Edge).
Click here to search parcel genealogy
<%
'if request.form("btnSubmit") = "Display Results" or request.form("btnSubmit") = "Search" then
strPin = Request.form("PIN")
strFirstName = Request.form("First_Name")
strLastName = Request.form("Last_Name")
strHouseNum = Request.form("HouseNum")
strStreet = Request.form("Street")
If(Len(strPin & strFirstName & strLastName & strHouseNum & strStreet) > 0) Then
sqlStr = "SELECT TOP 600 [DeKalb_GIS].[dbo].[Parcels].[Parcel_Number] as parcel_Number " & _
",[Owner] " & _
",[SiteAddress] " & _
",Max([ID]) as ID " & _
",RTRIM(last_name + ' ' + ISNULL(suffix, '')) as last_name " & _
",RTRIM(first_name + ' ' + ISNULL(middle_initial, '')) as first_name " & _
"FROM [DeKalb_GIS].[dbo].[Parcels] inner join [DeKalb_PT].dbo.SearchView " & _
"ON [DeKalb_GIS].[dbo].Parcels.Parcel_Number = [DeKalb_PT].dbo.SearchView.parcel_number " & _
"Where ([DeKalb_GIS].[dbo].Parcels.Parcel_Number like ? ) "
set cmd = server.createobject("ADODB.Command")
cmd.Parameters.Append cmd.CreateParameter("@Parcel_Number", adVarchar, adParamInput, 50, "%" & strPin & "%")
If strFirstName & "" <> "" Then
sqlstr = sqlStr & vbcrlf & "and (first_name LIKE ? ) "
cmd.Parameters.Append cmd.CreateParameter("@first_name", adVarchar, adParamInput, 50, "%" & strFirstName & "%")
End If
If strLastName & "" <> "" Then
sqlstr = sqlStr & vbcrlf & "and (last_name LIKE ? ) "
cmd.Parameters.Append cmd.CreateParameter("@last_name", adVarchar, adParamInput, 50, "%" & strLastName & "%")
End If
If strHouseNum & "" <> "" Then
sqlstr = sqlstr & vbcrlf & "and (housenum LIKE ? ) "
cmd.Parameters.Append cmd.CreateParameter("@housenum", adVarchar, adParamInput, 50, "%" & strHouseNum & "%")
End If
If strStreet & "" <> "" Then
sqlStr = sqlstr & vbcrlf & "and (street LIKE ? ) "
cmd.Parameters.Append cmd.CreateParameter("@street", adVarchar, adParamInput, 50, "%" & strStreet & "%")
End If
sqlStr = sqlStr & vbcrlf & "Group by [DeKalb_GIS].[dbo].[Parcels].[Parcel_Number], Owner, SiteAddress, First_name, middle_initial, Last_Name, suffix "
sqlStr = sqlStr & vbcrlf & "Order by Last_Name, First_name, SiteAddress, [DeKalb_GIS].[dbo].[Parcels].[Parcel_Number]"
cmd.ActiveConnection = objConnection
cmd.CommandText = sqlStr
cmd.CommandType = 1
cmd.CommandTimeout = 900
set ResultsRs = server.CreateObject("ADODB.Recordset")
set ResultsRs = cmd.Execute
%>
