<% '******** Create a connection to builder's database Set connTemp=server.CreateObject ("adodb.connection") conntemp.Open strConn '******** Get recordset to display homes strSQL = "SELECT homes.ID as home_id," &_ "homes.LotNumber as lotnum," &_ "homes.elevation," &_ "homes.price," &_ "homes.status," &_ "Plans.Name as planName, " &_ "Communities.Name as commName," &_ "homes.photoloc," &_ "homes.photoloc2," &_ "homes.photoloc3," &_ "homes.SqFeet," &_ "homes.planID," &_ "homes.Condo" &_ " FROM Communities INNER JOIN " &_ "(Plans INNER JOIN homes ON Plans.ID = homes.PlanID) ON Communities.ID = Plans.CommunityID" strSQL = strSQL & " Where Homes.Condo = 0" strSQL = strSQL & " ORDER BY Communities.Name,Homes.LotNumber" set RS = connTemp.Execute (strSQL) If not RS.eof then HomesArray = RS.GetRows() end if RS.Close Set RS=nothing '******** Get recordset to display homes strSQL = "SELECT homes.ID as home_id," &_ "homes.LotNumber as lotnum," &_ "homes.elevation," &_ "homes.price," &_ "homes.status," &_ "Plans.Name as planName, " &_ "Communities.Name as commName," &_ "homes.photoloc," &_ "homes.photoloc2," &_ "homes.photoloc3," &_ "homes.SqFeet," &_ "homes.planID," &_ "homes.Condo" &_ " FROM Communities INNER JOIN " &_ "(Plans INNER JOIN homes ON Plans.ID = homes.PlanID) ON Communities.ID = Plans.CommunityID" strSQL = strSQL & " Where Homes.Condo = 1" strSQL = strSQL & " ORDER BY Communities.Name,Homes.LotNumber" set RS = connTemp.Execute (strSQL) If not RS.eof then CondoArray = RS.GetRows() end if RS.Close Set RS=nothing %> Oliver Homes: Available Homes

home > available homes
 
 
Single Family Homes Call: 586.226.1015
<% If IsArray(HomesArray)then for i=0 to ubound(HomesArray,2) If HomesArray(1,i) = 0 then Lot = "n/a" else Lot = HomesArray(1,i) end if If IsNumeric(HomesArray(3,i)) then Price = FormatCurrency(HomesArray(3,i),2) else IF HomesArray(3,i)<> "" then Price = HomesArray(3,i) else Price = "Please call" end if end if %> <% next else %> <% end if %>
Community Lot Floor Plan Price Status
         
No homes available at this time
 
Condominiums Call: 586.226.1015
<% If IsArray(CondoArray)then for i=0 to ubound(CondoArray,2) cSqFeet = CondoArray(10,i) If IsNumeric(CondoArray(3,i)) then cPrice = FormatCurrency(CondoArray(3,i),2) else IF CondoArray(3,i)<> "" then cPrice = CondoArray(3,i) else cPrice = "Please call" end if end if %> <% next else %> <% end if %>
Community Floor Plan Square Feet Price Status
Madison Manor Villas The Braeson 1,546 From $189,900

There are condominiums available at all stages.
Please contact us for details
For virtual tours Click here
Madison Manor Villas  The Addison 1,542 From $184,900 There are condominiums available at all stages.
Please contact us for details
For virtual tours Click here
There are condominiums available at all stages. Please contact us for details.