<%@ Language=VBScript %> <% dim db set db = Server.CreateObject("ADODB.Connection") db.Open "SummitHomes" dim rs dim sql set rs = Server.CreateObject("ADODB.RecordSet") sql= "Select * from Homes where homeid ='" & request("ID") & "'" rs.Open sql, db %> Summit Homes "" AND not rs.EOF then%>OpenScrollingPopup('MortCalc2.asp?pr=<%=Response.Write(rs("price"))%>');<%end if%>">

New Home Gallery   
<% rs.close sql= "Select * from Homes order by sqft" rs.Open sql, db %> Homes are listed according to square footage.
* indicates the home is not featured in the gallery
Click on price to popup a mortgage calculator for that home. <%if rs.EOF then%> <%else%> <%rs.MoveFirst dim linecounter dim ROWCOLOR linecounter = 1 do while not rs.EOF if (linecounter mod 2) = 0 then ROWCOLOR="#FFFFFF" else ROWCOLOR="#E8E8E8" end if %> <% linecounter = linecounter + 1 rs.MoveNext loop end if%>
Home
Priced from**
Sq. Ft.
Bed
Bath
Garage
Basement
Home Style
No Homes Found
<%if trim(rs("urllink")) = "" OR IsNull(rs("urllink")) then%> <%else%>"> <%end if%> <%=Response.Write(rs("Homename"))%> <%if trim(rs("urllink")) = "" or IsNull(rs("urllink")) then response.write(" *") else response.write("") end if%> ');"><%=Response.Write(formatcurrency((rs("price")),0))%> <%=Response.Write(rs("sqft"))%> <%=Response.Write(rs("bed"))%> <%=Response.Write(rs("bath"))%> <%=Response.Write(rs("car"))%> <%=Response.Write(rs("basement"))%> <%=Response.Write(rs("style"))%>

** Please note: prices are for the home only on homeowners improved lot.

Would you like to know more? Request Information On Any of Our Homes.

Architectural renderings are artist conception. Illustrations may include optional features. Room sizes and outside dimensions are approximate. As a result of our constant effort to improve products and process, we reserve the right to revise, change, and or substitute products, dimensions, specifications, architectural detail and design without notice. The Home Gallery is used for illustration purposes only and is not intended to be part of any purchase agreement.

<%rs.close set rs=Nothing db.Close set db=Nothing %>

Virtual Home