contém1g S/A :. company

<% Dim rsPdv Dim rsPdv_numRows Set rsPdv = Server.CreateObject("ADODB.Recordset") rsPdv.ActiveConnection = MM_webcontem1g_STRING rsPdv.Source = "SELECT distinct(codigo) as totalPdv FROM dbo.webpdv WHERE status = 'ATIVO'" rsPdv.CursorType = 0 rsPdv.CursorLocation = 2 rsPdv.LockType = 1 rsPdv.Open() rsPdv_numRows = 0 %> <% Dim rsPdd Dim rsPdd_numRows Set rsPdd = Server.CreateObject("ADODB.Recordset") rsPdd.ActiveConnection = MM_webcontem1g_STRING rsPdd.Source = "SELECT count(codigo) as totalPdd FROM webpdd WHERE status = 'ATIVO'" rsPdd.CursorType = 0 rsPdd.CursorLocation = 2 rsPdd.LockType = 1 rsPdd.Open() rsPdd_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rsPdv_total Dim rsPdv_first Dim rsPdv_last ' set the record count rsPdv_total = rsPdv.RecordCount ' set the number of rows displayed on this page If (rsPdv_numRows < 0) Then rsPdv_numRows = rsPdv_total Elseif (rsPdv_numRows = 0) Then rsPdv_numRows = 1 End If ' set the first and last displayed record rsPdv_first = 1 rsPdv_last = rsPdv_first + rsPdv_numRows - 1 ' if we have the correct record count, check the other stats If (rsPdv_total <> -1) Then If (rsPdv_first > rsPdv_total) Then rsPdv_first = rsPdv_total End If If (rsPdv_last > rsPdv_total) Then rsPdv_last = rsPdv_total End If If (rsPdv_numRows > rsPdv_total) Then rsPdv_numRows = rsPdv_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (rsPdv_total = -1) Then ' count the total records by iterating through the recordset rsPdv_total=0 While (Not rsPdv.EOF) rsPdv_total = rsPdv_total + 1 rsPdv.MoveNext Wend ' reset the cursor to the beginning If (rsPdv.CursorType > 0) Then rsPdv.MoveFirst Else rsPdv.Requery End If ' set the number of rows displayed on this page If (rsPdv_numRows < 0 Or rsPdv_numRows > rsPdv_total) Then rsPdv_numRows = rsPdv_total End If ' set the first and last displayed record rsPdv_first = 1 rsPdv_last = rsPdv_first + rsPdv_numRows - 1 If (rsPdv_first > rsPdv_total) Then rsPdv_first = rsPdv_total End If If (rsPdv_last > rsPdv_total) Then rsPdv_last = rsPdv_total End If End If %> contém1g S/A :. company

Our Belief

We believe in the importance of women in the construction of a better and happier world.

We believe that each woman has in herself a natural beauty.

We believe that it is important for women to find and express themselves, strengthen their self-esteem, start dreaming and being delighted.

We create our make-up products with the aim at providing a feminine, leisure and magical world for women, in a moment which is only hers, a moment of pleasure, of self-knowledge, glamour, sophistication, beauty and joy.

For women to reach all such universes, we should make our products involving, desired and astonishing.

We are committed to helping all women know how to use them.

It is our responsibility to release quality, practical and glamorous make-up products, always taking into consideration what it most innovate in terms of technology.

We believe that we can, through our products and the experience they provide, bring women joy, magic and enchantment. It is our responsibility to think about each detail of the relationship between the consumer and our brand.

We believe in our work. We work with love, respecting the individuality of each woman.

"We work with love,
respecting the individuality
of each woman."