<%@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 %> Company > Mosaic > Advantages
     Company      Promotion      Products      Design      Application      Technical      Fixing      Network      Contact      Member      Sitemap
      Profile     Mosaic
    


 

COMPANY
Profile
Mosaic
  Definition
  History
  Advantages
  Palladio Mosaic
  Palladio Design

Company > Mosaic > Advantages

Following are the advantages of using PALLADIO mosaics, over other conventional products: -

  1. Allows creative flexibility
  2. Maintenance Free
  3. Retains original colour
  4. Easy to fix on any surface (including curved surfaces)
  5. Washable
  6. No Water absorption
  7. Weather Proof
  8. Reflects heat and therefore keeps interior cool
  9. Resistant to Chemicals & Thermal shocks
  10. Light in weight and therefore no excessive addition to cladding weight

 

 

 

 


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 %>