<% Response.write " id="banners" classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="940" height="265"> <% Response.write " type="application/x-shockwave-flash" data="swf/banners-2.swf" width="940" height="265">

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player



<% Set rsano = Server.CreateObject("ADODB.RecordSet") sqlano = "SELECT Year(data_evento) AS ANO FROM galeria GROUP BY Year(data_evento) order by Year(data_evento) desc" rsano.Open sqlano, Conn, 1,3 if not rsano.eof then while not rsano.eof %> <% Set rsgaleria = Server.CreateObject("ADODB.RecordSet") sqlgaleria = "select *, Year(data_evento) AS ANO from galeria where Year(data_evento) = '"& rsano("ANO") &"' order by data_evento desc" rsgaleria.Open sqlgaleria, Conn, 1,3 if not rsgaleria.eof then while not rsgaleria.eof response.Write ("") i = 0 For i=1 to 4 if not rsgaleria.eof then %> <% rsgaleria.movenext end if Next response.Write ("") 'i = 0 'For i=1 to 4 ' if not rsgaleria.eof then ' rsgaleria.MovePrevious ' end if 'Next 'response.write ("") ' i = 0 ' For i=1 to 4 ' if not rsgaleria.eof then ' 'response.write("tem registros") ' response.Write ("") ' rsgaleria.movenext ' else ' 'response.write("nao tem registros") ' end if ' Next 'response.Write ("") wend end if rsano.movenext wend end if %>
<%=rsano("ANO") %>
<% Set rsfoto = Server.CreateObject("ADODB.RecordSet") sqlfoto = "select * from foto_galeria where capa = 'sim' and codigo_galeria = "& rsgaleria("Codigogaleria") &" order by ordem" rsfoto.Open sqlfoto, Conn, 1,3 if not rsfoto.eof then while not rsfoto.eof %> " rel="shadowbox[galeria-g<%=rsgaleria("Codigogaleria") %>]" title=""> &width=150" width="150" height="100" alt=""style="border:1px solid #CCC; padding:5px"> <% rsfoto.movenext wend end if Set rsfoto = Server.CreateObject("ADODB.RecordSet") sqlfoto = "select * from foto_galeria where capa <> 'sim' and codigo_galeria = "& rsgaleria("Codigogaleria") &" order by ordem" rsfoto.Open sqlfoto, Conn, 1,3 if not rsfoto.eof then while not rsfoto.eof %> " rel="shadowbox[galeria-g<%=rsgaleria("Codigogaleria") %>]" title=""> <% rsfoto.movenext wend end if %>
<%=rsgaleria("nome") %>
"& rsgaleria("nome") &"
Camarote Constru-sol
Rio Preto Rodeo Country Bulls 2012
Arraial da Costru-sol 2012 1º Sorteio de Vale-Compras Casa Cor 2012
Casa Black 2012 Palestra Anchortec
11/06/2012
Aniversariantes de Junho Jantar dos Profissionais
Aniversario Constru-Sol Confraternização - Balsamo
14/05/2012
Aniversariantes de Maio Comemoração Dias das Mães
Aniversariantes de Março Promoção Parceria Premiada
07/01/2012
2011
Premiação para os arquitetos
17/12/2011
Confraternização de
Funcionários 03/12/2011
Aniversariantes de Novembro Casa Cor Campinas
Comemoração Dias das Crianças
2011
Aniversariantes de Outubro Sorteio Moto Constru-Sol Aniversariantes de Setembro
Aniversariantes de Agosto Arraiá da Constru-sol
23/07/2011
Aniversariantes de Julho Palestra Quartzolit
11/07/2011
1º Porco no Roleto em prl da CADIMI
10/07/2011
Palestra Super Vinil
23/05/2011
Campinas DECOR 2011 Aniversariantes de Junho
Aniversario Constru-Sol Casa Cor 2011 Aniversariantes de Maio Palestra VOTOMASSA
25/04/11
Palestra LUKSCOLOR
18/04/2011
Valinhos Decor
10/04/11
1º Churrasco CONSTRU-SOl
Inauguração da Expansão de Lazer
Aniversariantes de Abril
Aniversariantes de Março Aniversariantes de Fevereiro Lançamentos da Tigre 2011
17/01
Aniversariantes de Janeiro
2010
Confraternização de
Funcionários 27/11/2010
2007
Coquetel de Inauguração Exclusiv
22/08/2007
 
 
CONSTRUSOL • <%=year(now()) %> • AV. MODESTO JOSÉ MOREIRA JR, 2751, MIRASSOL - SP • DESENVOLVIDO POR DOIS COMUNICAÇÃO • MELHOR VISUALIZADO 1280 x 1024