<% @LCID = 1034 %> <% Dim RSEmpresas Dim RSEmpresas_cmd Dim RSEmpresas_numRows Set RSEmpresas_cmd = Server.CreateObject ("ADODB.Command") RSEmpresas_cmd.ActiveConnection = MM_Conn_STRING RSEmpresas_cmd.CommandText = "SELECT * FROM TABLA_EMPRESAS where visible = 1 ORDER BY RUBRO" RSEmpresas_cmd.Prepared = true Set RSEmpresas = RSEmpresas_cmd.Execute RSEmpresas_numRows = 0 %> Parque Industrial de Tres Arroyos

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

menu <% While (NOT RSEmpresas.EOF) %> <%RSEmpresas.MoveNext()%> <% IF (NOT RSEmpresas.EOF) then%> <% RSEmpresas.MoveNext() end if%> <% Wend %>
  " id="<%=TRIM(RSEmpresas.Fields.Item("RUBRO").Value)%>"><%=(RSEmpresas.Fields.Item("RUBRO").Value)%>
SECTOR: <%=(RSEmpresas.Fields.Item("PRODUCTO").Value)%>

RUBRO: <%=(RSEmpresas.Fields.Item("NOMBRE").Value)%>

" width="303" height="80" />

contacto <%=(RSEmpresas.Fields.Item("ACTIVIDAD").Value)%>
telefono <%=(RSEmpresas.Fields.Item("TELEFONO").Value)%>
email
"><%=(RSEmpresas.Fields.Item("EMAIL").Value)%>
www "><%=(RSEmpresas.Fields.Item("WEB").Value)%>

 " id="<%=TRIM(RSEmpresas.Fields.Item("RUBRO").Value)%>2"><%=(RSEmpresas.Fields.Item("RUBRO").Value)%>
SECTOR: <%=(RSEmpresas.Fields.Item("PRODUCTO").Value)%>

RUBRO: <%=(RSEmpresas.Fields.Item("NOMBRE").Value)%>

" width="303" height="80" />

contacto <%=(RSEmpresas.Fields.Item("ACTIVIDAD").Value)%>
telefono <%=(RSEmpresas.Fields.Item("TELEFONO").Value)%>
email
"><%=(RSEmpresas.Fields.Item("EMAIL").Value)%>
www "><%=(RSEmpresas.Fields.Item("WEB").Value)%>

 
  linea azul
  linea azul
 





linea

<% Dim RSEmpresas2 Dim RSEmpresas_cmd2 Dim RSEmpresas_numRows2 Set RSEmpresas_cmd2 = Server.CreateObject ("ADODB.Command") RSEmpresas_cmd2.ActiveConnection = MM_Conn_STRING RSEmpresas_cmd2.CommandText = "SELECT * FROM TABLA_EMPRESAS where visible = 1 ORDER BY RUBRO" RSEmpresas_cmd2.Prepared = true Set RSEmpresas2 = RSEmpresas_cmd2.Execute RSEmpresas_numRows2 = 0 %> <% While (NOT RSEmpresas2.EOF) %> "><%=(RSEmpresas2.Fields.Item("RUBRO").Value)%>
<% RSEmpresas2.MoveNext() Wend %>

 
 
 
 
 
 
Partido de Tres Arroyos