<%@ LANGUAGE=vbscript%> <% option explicit %> <% Response.Buffer = True %> <% dim builder_types(), rcount, icounter dim rstempData, sql Set rstempData = server.createObject("ADODB.Recordset") sql = "Select * from builder_types order by display_order" rstempData.open sql, strconn, adOpenForwardOnly, adLockReadOnly rcount = rstempData.RecordCount 'industry_types = rstempData.GetRows rstempData.MoveFirst icounter=0 while not rstempData.eof 'for icounter=1 to rcount icounter=icounter+1 redim preserve builder_types(2,icounter) builder_types(1,icounter) = rstempData.fields("builder_typeID") builder_types(2,icounter) = rstempData.fields("builder_type") 'Response.Write builder_types(2,icounter) rstempData.MoveNext 'next wend rstempData.close dim price_ranges(), rcount2 sql = "Select * from price_ranges order by display_order" rstempData.open sql, strconn, adOpenForwardOnly, adLockReadOnly rcount2 = rstempData.RecordCount rstempData.MoveFirst icounter=0 while not rstempData.eof 'for icounter=1 to rcount icounter=icounter+1 redim preserve price_ranges(2,icounter) price_ranges(1,icounter) = rstempData.fields("rangeID") price_ranges(2,icounter) = rstempData.fields("price_range") 'Response.Write builder_types(2,icounter) rstempData.MoveNext 'next wend rstempData.close dim towns(), rcount3 sql = "Select * from towns order by display_order" rstempData.open sql, strconn, adOpenForwardOnly, adLockReadOnly rcount2 = rstempData.RecordCount rstempData.MoveFirst icounter=0 while not rstempData.eof 'for icounter=1 to rcount icounter=icounter+1 redim preserve towns(2,icounter) towns(1,icounter) = rstempData.fields("townID") towns(2,icounter) = rstempData.fields("town") 'Response.Write builder_types(2,icounter) rstempData.MoveNext 'next wend rstempData.close set rstempData = nothing %> <%%> Home Builders and Remodelers Association of Fairfield County, Inc.
advertisement banner

Find a Contractor

Search Criteria


Company Name

First Name

Last Name

Builder Type

City