Recent achievements of Vitrerie RD

<%@ language="VBScript" %> <% Const adOpenStatic = 3 Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open = "manudb" Set RS = Server.CreateObject( "ADODB.Recordset" ) RS.CursorType = adOpenStatic RS.ActiveConnection = Con RS.Open "SELECT projid, mini FROM projets WHERE company='vitrerie' AND status=1 ORDER BY projid" prodvar = RS.RecordCount Dim cellule cellule = 0 %> Recent achievements of Vitrerie RD

Professional and commercial glazing

All kinds of glass in stock
Glass shower
Custom glazing

We have selected some of our latest achievements and our recent projects for this photo gallery. Choose among on of the following to display more informations.

<% WHILE NOT RS.EOF %> ">

" class="thumb_realisations"> <% RS.MoveNext %> <% WEND %>

For further informations on our latest achievements, do not hesitate to contact us by email at info@vitrerierd.com or by phone during our regular business hours at 514-634-7159.

<% RS.Close set RS = Nothing Con.Close set manudb2 = Nothing %>