<%@ LANGUAGE=vbscript%> <% option explicit %> <% Response.Buffer = True %> <% dim assoc_types(), rcount, icounter dim rstempData, sql Set rstempData = server.createObject("ADODB.Recordset") sql = "Select * from Assoc_types order by Assoc_type" rstempData.open sql, strconn 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 assoc_types(2,icounter) assoc_types(1,icounter) = rstempData.fields("assoc_typeID") assoc_types(2,icounter) = rstempData.fields("Assoc_type") 'Response.Write assoc_types(2,icounter) rstempData.MoveNext 'next wend rstempData.close set rstempData = nothing %> <%%> Home Builders and Remodelers Association of Fairfield County, Inc.
advertisement banner

Find an Associate

Company Name


First Name


Last Name


City


Industry Type