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 est une entreprise transformatrice de matières plastiques, chef dans la fabrication d’emballages flexibles d’application pour les produits du secteur agricole, du secteur industriel alimentaire et du secteur des articles de consommation entre autres.

Depuis nos débuts nous nous avons distinguées par un désir firme d’innover et d’apporter des solutions personnalisées personnalisèes à nos clients, en couvrant ses nécessites d’image produit et d’image de marque dans tout ce qui est relatif à l’emballage et l’empaquetage.

Modernité s’exprime en exigence.
Modernité se traduit en compromis.

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

Principal l Nouvelles l Contact l Société l Services l Produits l Attention au Client l Avis Légal l Polique de Caractére privé
Español l English l Français

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