<%@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 > Cad
     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 > CAD

“PALLADIO” range of glass mosaics allows the designer an unbelievable, first of its kind, palette of colours and textures creating stunning visual effects covering most architectural needs. It allows them to articulate their dreams through evanescent glass mosaics and create glass architecture. The product inspires designers to explore and give imaginative touch to their creations leaving individual stamp of magnificence and grandeur.

Professional designers, using customized Computer Aided Design software, assist you to translate your dream into reality by creating a lively, cheerful environment. These alluring mosaics are transformed through sophisticated CAD software into a constellation of vibrating colours. A complex design is easy to conceive and implement producing enchanting results especially when used in combination with Artistic Hand-Cuts, Borders, Blends and Murals; thus making the mosaic artwork an everlasting delight for the viewer.

 

 


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