<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not Edit. FP_CharSet = "windows-1252" FP_CodePage = 1252 %> Precision Builders of Boston


 

Precision Builders
605 Randolph Street
Canton, MA 02021


Office: 781-575-1313
Mobile: 781-929-6060
Fax: 781-575-1717

Email Us


Gallery

<% Set conn = server.createobject("ADODB.Connection") Set itemRec = server.createobject("ADODB.Recordset") Set catRec = server.createobject("ADODB.Recordset") Conn.open "DSN=precision-builders;" Itemrec.ActiveConnection = conn catrec.ActiveConnection = conn catRec.open "select * from project_parts where parent_project="& request("id") while NOT catRec.EOF ItemRec.open "select * from images where project_part="& catrec("id") Dim ct ct = 0 count =0 'if not Itemrec.EOF then response.write "Additional Images click to enlarge
" if Itemrec.EOF then response.write ""%> <%while NOT Itemrec.EOF if count = 0 then count =1%> <% if Itemrec("Image_thumb").value = "noimage.jpg" then Response.write "
" else%>
<%end if%> <%end if Itemrec.MoveNext wend ItemRec.Close catRec.MoveNext wend catRec.Close %>


 

 

<%Response.Write "" Response.write "
"& catrec("sub_part_name") &" Gallery
" %>
<% if 0 then %> <% end if %> <% fp_sQry="SELECT * FROM projects WHERE (id = ::id::)" fp_sDefault="id=" fp_sNoRecords="No records returned." fp_sDataConn="precision-builders" fp_iMaxRecords=256 fp_iCommandType=1 fp_iPageSize=0 fp_fTableFormat=False fp_fMenuFormat=False fp_sMenuChoice="" fp_sMenuValue="" fp_sColTypes="&id=3&project_name=202&location=202&city=202&state=202&category=3¶graph1=203¶graph2=203¶graph3=203&main_image=202&" fp_iDisplayCols=10 fp_fCustomQuery=False BOTID=0 fp_iRegion=BOTID %>

<%=FP_FieldVal(fp_rs,"project_name")%>
<%=FP_FieldVal(fp_rs,"city")%>, <%=FP_FieldVal(fp_rs,"state")%>

Additional Images <%Count = 0 catRec.open "SELECT * FROM images WHERE project_part = "& request("project_part") while NOT catRec.EOF count = count + 1 catRec.MoveNext wend catRec.Close If Count > 1 THEN%> <%Counted = count Count = 0 catRec.open "SELECT * FROM images WHERE project_part = "& request("project_part") while NOT catRec.EOF count = count + 1 %> <%If count = 5 then response.write "" Count = 0 End if catRec.MoveNext wend catRec.Close %> <%End if%>

')">


<%catRec.open "SELECT * FROM project_parts WHERE ID = "& request("project_part") while NOT catRec.EOF Response.write catrec("description") catRec.MoveNext wend catRec.Close%>

<% Count = 0 catRec.open "SELECT * FROM images WHERE project_part = "& request("project_part") while NOT catRec.EOF count = count + 1 If count = 1 then%> " id="img1"> <%END IF%> <% catRec.MoveNext wend catRec.Close %>


Precision Builders
605 Randolph Street, Canton, MA 02021
Office: 781-575-1313 Mobile: 781-929-6060 Fax: 781-575-1717
info@precisionbuildersboston.com


home | custom examples | gallery | mission statement
owners message | memberships | contact us