IBG Industrial Bolsera Granadina, S.A.

<%@ Language=VBScript %> <% Response.Buffer=True Response.ExpiresAbsolute = #1/1/1980# Response.Expires=0 raiz = "" dim numeropag numpage = 0 numpage = numpage + Request.QueryString("pagina") 'Pagina en la que se encuentra if numpage = "" then numpage = 1 end if if numpage < 1 then numpage = 1 end if %> IBG Industrial Bolsera Granadina, S.A. <% SQL = "SELECT top 2 * FROM noticias INNER JOIN tiponoticias ON noticias.codnoticia = tiponoticias.codnoticia" primero = true 'if busqueda <> "" then ' SQL = SQL & " Where (Upper(titulo) like '%"&UCase(busqueda)&"%' or Upper(contenido) like '%"&UCase(busqueda)&"%') " ' primero = false 'end if 'if tema <> "0" then ' if primero then ' SQL = SQL & " Where noticias.codnoticia = " & tema ' primero = false ' else ' SQL = SQL & " and noticias.codnoticia = " & tema ' end if 'end if if primero then SQL = SQL & " Where (fechacaducidad IS NULL OR fechacaducidad = '' OR fechacaducidad >= '" & fecha_hoy &"') " else SQL = SQL & " and fechacaducidad IS NULL OR fechacaducidad = '' OR fechacaducidad >= '" & fecha_hoy() &"' " end if SQL = SQL & " ORDER BY fechacreacion DESC" 'Response.Write(SQL) set MiRs = Server.CreateObject("ADODB.Recordset") MiRs.PageSize = 2 MiRs.Open SQL, Session("DBConn"), adOpenKeyset if not MiRs.EOF then dim totales totales = 0 totales = totales + MiRs.PageCount if numpage > totales then numpage= totales end if MiRs.AbsolutePage = numpage end if SQL1 = "SElect * From tiponoticias Where activa = 1" set tnoticia = Server.CreateObject("ADODB.Recordset") tnoticia.Open SQL1, Session("DBConn"), adOpenKeyset %>

IBG is a transforming company of plastic materials, leader in the manufacture of flexible packaging mainly used for products from agricultural, nourishing industrial and consumer goods sectors, among others.

From our beginnings we have distinguished ourselves by a firm desire in innovating and contributing to customize solutions for our clients, covering their necessities with product image, mark image in all the referring to the plastic packing and package.

Modernity is expressed in exigency.
Modernity is translated in commitment.

<% i = 1 do while not MiRs.EOF and i<= 2 %> <% if i < 2 then%> <%end if%> <% MiRs.MoveNext i = i + 1 loop %>

<%=convertirafecha(MiRs("fechacreacion"))%> - &pagina=<%=numpage%>"><%=Left(MiRs("titulo"),115)%>
<%=Left(MiRs("contenido"),115)%>... ">ver más

Main homepage l News l Contact l Company l Services l Products l Attention to Client l Legal Warning l Policy of the Privacy
Español l English l Français

©2005 Industrial Bolsera Granadina s.a. - Tel. +(34) 958 44 09 01