<%@LANGUAGE="VBSCRIPT"%> <% Set rsNoticies = Server.CreateObject("ADODB.Recordset") rsNoticies.ActiveConnection = MM_conGutMetal_STRING rsNoticies.Source = "SELECT * FROM registresCamps WHERE IntIdTema=1 AND Idioma=3 ORDER BY DataAlta DESC" rsNoticies.CursorType = 0 rsNoticies.CursorLocation = 2 rsNoticies.LockType = 1 rsNoticies.Open() Set rsArxius = Server.CreateObject("ADODB.Recordset") rsArxius.ActiveConnection = MM_conGutMetal_STRING rsArxius.Source = "SELECT * FROM registresArxius" rsArxius.CursorType = 0 rsArxius.CursorLocation = 2 rsArxius.LockType = 1 rsArxius.Open() %> ..... GUTMETAL .....
 
HOME
COMPANY
LOCATION
BRANCH OFFICES
PRODUCTS AND SERVICES
OFFERS
CONTACT

<% if NOT rsNoticies.EOF then While NOT rsNoticies.EOF rsArxius.Filter="idRegistrePare =" & rsNoticies("IdRegistre") NumCol = 1 if Not rsArxius.EOF then NumCol=2 end if %> <% if NumCol=2 then %> <% end if %>
<% =rsNoticies("titRegistre") %>
<% while NOT rsArxius.EOF %> " width="<%=rsArxius("amplada")%>"> <% rsArxius.MoveNext wend %>
<% =rsNoticies("texteRegistre") %>

<% rsNoticies.MoveNext wend else %>
NO PUBLISHED OFFERS AVAILABLE
<% end if %>
Top


HOME
EMPRESA
UBICACIÓN
DELEGACIONES
PRODUCTOS Y SERVICIOS
OFERTAS
CONTACTO