<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim AllBlends__MMColParam AllBlends__MMColParam = "1" If (Request.QueryString("Category") <> "") Then AllBlends__MMColParam = Request.QueryString("Category") End If %> <% Dim AllBlends Dim AllBlends_numRows Set AllBlends = Server.CreateObject("ADODB.Recordset") AllBlends.ActiveConnection = MM_palladio_STRING AllBlends.Source = "SELECT * FROM Blend WHERE Category = '" + Replace(AllBlends__MMColParam, "'", "''") + "' ORDER BY CodeName ASC" AllBlends.CursorType = 0 AllBlends.CursorLocation = 2 AllBlends.LockType = 1 AllBlends.Open() AllBlends_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -4 Dim HLooper1__index HLooper1__index = 0 AllBlends_numRows = AllBlends_numRows + HLooper1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim AllBlends_total Dim AllBlends_first Dim AllBlends_last ' set the record count AllBlends_total = AllBlends.RecordCount ' set the number of rows displayed on this page If (AllBlends_numRows < 0) Then AllBlends_numRows = AllBlends_total Elseif (AllBlends_numRows = 0) Then AllBlends_numRows = 1 End If ' set the first and last displayed record AllBlends_first = 1 AllBlends_last = AllBlends_first + AllBlends_numRows - 1 ' if we have the correct record count, check the other stats If (AllBlends_total <> -1) Then If (AllBlends_first > AllBlends_total) Then AllBlends_first = AllBlends_total End If If (AllBlends_last > AllBlends_total) Then AllBlends_last = AllBlends_total End If If (AllBlends_numRows > AllBlends_total) Then AllBlends_numRows = AllBlends_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (AllBlends_total = -1) Then ' count the total records by iterating through the recordset AllBlends_total=0 While (Not AllBlends.EOF) AllBlends_total = AllBlends_total + 1 AllBlends.MoveNext Wend ' reset the cursor to the beginning If (AllBlends.CursorType > 0) Then AllBlends.MoveFirst Else AllBlends.Requery End If ' set the number of rows displayed on this page If (AllBlends_numRows < 0 Or AllBlends_numRows > AllBlends_total) Then AllBlends_numRows = AllBlends_total End If ' set the first and last displayed record AllBlends_first = 1 AllBlends_last = AllBlends_first + AllBlends_numRows - 1 If (AllBlends_first > AllBlends_total) Then AllBlends_first = AllBlends_total End If If (AllBlends_last > AllBlends_total) Then AllBlends_last = AllBlends_total End If End If %> Promotion > Services > Civil
     Company      Promotion      Products      Design      Application      Technical      Fixing      Network      Contact      Member      Sitemap
      Tools     Activity     Services
    


 

PROMOTION
Tools
  Shade Card
    Vitreo-Fiammati
    Brillante
    Shining
    Aureo
    Cristallino
  Catalog
    ID
    3D
  Palladio CD
Activity
  Exhibition
  Advertisement
Services
  CAD
  Sales
  Civil

Promotion > Services > Civil

We have a dedicated team of civil engineers for site supervision.

They assist you in surface preparation and surface diagnosis, prior to fixing. They attend to the site during fixing also, to resolve technical problems, if any.

Besides this, they are constantly training contractors at various centers for fixing PALLADIO mosaics. This is to ensure that people are properly trained to fix PALLADIO mosaics.

 


PALLADIO GLASS LTD. 4th Floor, Samaan II, Opp. Reliance Petrol Pump, Anand Nagar, Ahmedabad - 380 051, Gujarat (INDIA).
Phone: +91-79-4000 6000 (30 lines). Fax: +91-79-4000 6200 e-mail: enquiry@palladio.in
<% AllBlends.Close() Set AllBlends = Nothing %>