<%@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 > Defination
     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 > Definition

Mosaics, works of art of surface decorations, composed of variously coloured small pieces of glass, stone, ceramics, or other materials. Although mosaic decoration is most frequently found on floors and wall and ceiling surfaces, closely set coloured components, or tesserae, may also be applied to sculptures, panels, and other objects.

 

 

 

 

 


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