<%
'Get Builders Name and it's placement on the page
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function BuildList()
''''Set connection string
connect_string = "Driver={Mysql}; Server=localhost; Database=caveman4_buildersshowcasecom; UID=caveman4_caveman; PWD=u54gduoD"
''''Open the db connection
set dbConn = server.createObject("ADODB.connection")
dbConn.open connect_string
DIM Y, VarBuilders, ArrayTitles
ArrayTitles = Array("NEW HOME BUILDERS", "CONDOS", "LOTS, LAND & SUBDIVISIONS", "NEW HOME SERVICES/PRODUCTS")
Y = 0
VarBuilders = ""
for i = 0 to Ubound(ArrayTitles)
VarBuilders = VarBuilders & "
" & ArrayTitles(i) & "
"
selectsql = "SELECT * FROM `milhomebuild` WHERE onoff = 1 AND rowid = " & (i + 1) & " ORDER BY buildname ASC"
set rsbuilders = dbConn.Execute(selectsql)
IF rsbuilders.eof THEN
VarBuilders = VarBuilders & "
Coming Soon
"
ELSE
Y = 0
R = 1
Z=rsbuilders.RecordCount
DO UNTIL rsbuilders.eof
IF (Y MOD 2) = 0 THEN VarBuilders = VarBuilders & "
"
VarBuilders = VarBuilders & ""
IF (Y MOD 2) = 1 THEN VarBuilders = VarBuilders & "
"
R = R + 1
Y = Y + 1
if Y = Z then
VarBuilders = VarBuilders & "
"
end if
rsbuilders.movenext
LOOP
END IF
NEXT
VarBuilders = VarBuilders & ""
BuildList = VarBuilders
''''Close the Database connection
dbConn.close
''''Delete the db object
SET dbConn=nothing
END Function
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
Request Brochures | builders-showcase.com
When building a new home, research is important. After taking some time to review what
Builders-Showcase.com offers, you can select the new home builders and vendors below that
you would like more information from by simply checking the box next to their name. Once
you have finished, please fill in your current contact information so your requested brochures
can be sent out to you as soon as possible. We hope that this will help in the selection of your
new home builder or respective service.
*First Name:_
*Last Name:_
*Address:_
*City:_
*State:_
*Zip Code:_
*Phone:_
*Email:_
How did you hear about builders-showcase.com?_
When do you plan on purchasing a new home?_
Any other questions or suggestions?_
Your brochures and information will be sent to you in a timely manner. We hope
builders-showcase has helped in your new home selection process. Please push the
SUBMIT button to complete your request.
