<% Option Explicit Dim MyDB, rSelect, sSql, rPicSelect Dim aStyles(), aStreets(), aSearchResults(), aArchSignificances() Dim x, sAddress, sCriteria, sSearchMode, fResults, sArchSignificance, sDateBuilt If Request.QueryString("SearchMode") = "Map" Then sSearchMode = "Map" Else sSearchMode = "Regular" End If Set MyDB = Server.CreateObject("ADODB.Connection") Set rSelect = Server.CreateObject("ADODB.RecordSet") Set rPicSelect = Server.CreateObject("ADODB.RecordSet") MyDB.Open Application("dbHHSearch") sSql = "Select Distinct ArchStyle From tblHouses Where (ArchStyle Is Not Null) Order By ArchStyle" rSelect.Open sSql, MyDB, 3 With rSelect ReDim aStyles(.RecordCount) For x = 1 to .RecordCount aStyles(x) = rSelect("ArchStyle") .MoveNext Next .Close End With sSql = "Select Distinct StreetName, StreetType From tblHouses Order By StreetName" rSelect.Open sSql, MyDB, 3 With rSelect ReDim aStreets(.RecordCount, 2) For x = 1 to .RecordCount aStreets(x,0) = rSelect("StreetName") aStreets(x,1) = rSelect("StreetType") 'aStreets(x,2) = rSelect("StreetExtension") .MoveNext Next .Close End With sSql = "Select Distinct ArchSignificance From tblHouses Where (ArchSignificance Is Not Null) Order By ArchSignificance" rSelect.Open sSql, MyDB, 3 With rSelect ReDim aArchSignificances(.RecordCount) For x = 1 to .RecordCount aArchSignificances(x) = rSelect("ArchSignificance") .MoveNext Next .Close End With If Request.Form("cmdSearch") > "" OR Request.QueryString("Street") > "" Then If Request.Form("cmbArchStyle") > "" Then sCriteria = " Where tblHouses.ArchStyle = '" & Request.Form("cmbArchStyle") & "'" End If If Request.Form("cmbStreets") > "" Then If sCriteria = "" Then sCriteria = " Where " Else sCriteria = sCriteria & " And " End If sCriteria = sCriteria & "tblHouses.StreetName = '" & Request.Form("cmbStreets") & "'" End If If Request.Form("cmbArchSignificance") > "" then If sCriteria = "" then sCriteria = " Where " Else sCriteria = sCriteria & " And " End If sCriteria = sCriteria & "tblHouses.ArchSignificance = '" & Request.Form("cmbArchSignificance") & "'" End If If Request.Form("txtYearBuilt") > "" Then If sCriteria = "" Then sCriteria = " Where " Else sCriteria = sCriteria & " And " End If sCriteria = sCriteria & "tblHouses.YearBuilt = '" & Request.Form("txtYearBuilt") & "'" End If If Request.QueryString("Street") > "" Then If sCriteria = "" Then sCriteria = " Where " Else sCriteria = sCriteria & " And " End If sCriteria = sCriteria & "tblHouses.StreetName = '" & Request.QueryString("Street") & "'" End If 'response.write scriteria If Request.Form("txtKeyWord") > "" Then If sCriteria = "" Then sCriteria = " Where (" Else sCriteria = sCriteria & " And (" End If sCriteria = sCriteria & "tblHouses.HouseNumber Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.StreetName Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.StreetType Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.StreetExtension Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.ArchStyle Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.YearBuilt Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.Description Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.Comments Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & " OR tblHouses.ArchSignificance Like '%" & Request.Form("txtKeyWord") & "%'" sCriteria = sCriteria & ")" End If 'Response.Write sCriteria 'If sCriteria = "" Then ' sCriteria = " Where " 'Else ' sCriteria = sCriteria & " And " 'End If 'sCriteria = sCriteria & " tblPictures.IsMainPicture = True" 'sSql = "SELECT tblHouses.HouseID, tblHouses.HouseNumber, tblHouses.StreetName, tblHouses.StreetType, tblHouses.StreetExtension, tblHouses.ArchStyle, tblHouses.YearBuilt, tblHouses.Description, tblHouses.Comments, tblHouses.ArchSignificance, tblPictures.PictureName, tblPictures.PictureDescription, tblPictures.IsMainPicture" 'sSql = sSql & " FROM tblHouses LEFT JOIN tblPictures ON tblHouses.HouseID = tblPictures.HouseID" 'sSql = sSql & sCriteria sSql = "Select * From tblHouses" sSql = sSql & sCriteria sSql = sSql & " Order By StreetName, HouseNumber" 'Response.write sSQL rSelect.Open sSql, MyDB, 3 With rSelect ReDim aSearchResults(.RecordCount, 7) For x = 1 to .RecordCount aSearchResults(x,0) = rSelect("HouseID") aSearchResults(x,1) = rSelect("HouseNumber") aSearchResults(x,2) = rSelect("StreetName") aSearchResults(x,3) = rSelect("StreetType") aSearchResults(x,4) = rSelect("StreetExtension") aSearchResults(x,5) = rSelect("Description") sSql = "Select PictureName From tblPictures Where HouseID = " & rSelect("HouseID") & " And PictureName Like '%_th.%'" With rPicSelect .Open sSql, MyDB If Not .EOF Then aSearchResults(x,6) = rPicSelect("PictureName") .Close End With .MoveNext Next If .RecordCount > 0 Then fResults = True .Close End With End If MyDB.Close Set rPicSelect = Nothing Set rSelect = Nothing Set MyDB = Nothing %>

Association
Tour Information
 Rental & Sales Listing
 Community Issues
 Historic Preservation
 Area Map
 Links
 Main Page

ABOUT THE PROJECT

Search Hints:
To quickly find an address, select the Street and type the street number in Keyword field.
Try typing a phrase in Keyword field for exact matches - "1999 Tour" "Walking Tour" or "Razed."

Comments:
You have the opportunity to leave comments or view others' comments attached to individual addresses. New comments do not show immediately.

If you wish to submit new data for a specific address, please contact heritage@heritagehillweb.org.

Heritage Hill at your fingertips ...

House Histories and Photos of every house in Heritage Hill

<%=sSearchMode & " " %>Search
Search Mode: Regular / Map / New
<%If sSearchMode = "Regular" Then%>



Architectural Significance:

Year Built:   Keyword:

 

<%Else If Request.QueryString("Region") = "" Then %>
Northern Region
Southern Region
<%ElseIf Request.QueryString("Region") = "North" Then%>
 
<%ElseIf Request.QueryString("Region") = "South" Then%>
<%End If End If Response.Write "
" If fResults Then For x = 1 to uBound(aSearchResults) Response.Write "
" If aSearchResults(x,6) > "" Then Response.Write "" End If sAddress = aSearchResults(x,1) & " " & aSearchResults(x,2) If aSearchResults(x,3) > "" Then sAddress = sAddress & " " & aSearchResults(x,3) If aSearchResults(x,4) > "" Then sAddress = sAddress & " " & aSearchResults(x,4) Response.Write "" & sAddress & "
" If aSearchResults(x,5) > "" Then Response.Write aSearchResults(x,5) & "
" 'If aSearchResults(x,7) > "" Then Response.Write "Comments: " & aSearchResults(x,7) & "
" Response.Write "
" Response.Write "
" Next If uBound(aSearchResults) = 0 Then Response.Write "

Sorry, no houses were found. Please try again.

" Response.Write "
" End If End If %>

Copyright© 1997-2010 Heritage Hill Association. All rights reserved. Revised: February 12, 2011.