Pro Rio Negro - Patagonia Argentina

<% Sector = Request.QueryString("sector") Accion = Request.Form("Accion") Criterio1 = Request.Form("Criterio1") Criterio2 = Request.Form("Criterio2") Criterio3 = Request.Form("Criterio3") Criterio4 = Request.Form("Criterio4") Criterio5 = Request.Form("Criterio5") Select Case Sector Case "1" set Localidades = Server.CreateObject("ADODB.recordset") sql = "SELECT Localidad FROM vw_sector1_localidades" Localidades.open sql, conn, 0, 1 set Empresas = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM vw_sector1 WHERE Localidad ='" & Criterio1 & "'" Empresas.open sql, conn, 0, 1 Case "2" set Productos = Server.CreateObject("ADODB.recordset") sql = "SELECT Productos FROM vw_sector2_productos" Productos.open sql, conn, 0, 1 set Empresas = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM vw_sector2 WHERE Productos ='" & Criterio2 & "'" Empresas.open sql, conn, 0, 1 Case "3" set Localidades = Server.CreateObject("ADODB.recordset") sql = "SELECT Localidad FROM vw_sector3_localidades" Localidades.open sql, conn, 0, 1 set Empresas = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM vw_sector3 WHERE Localidad ='" & Criterio3 & "'" Empresas.open sql, conn, 0, 1 Case "4" set Tipo = Server.CreateObject("ADODB.recordset") sql = "SELECT Producto FROM vw_sector4_tipo" Tipo.open sql, conn, 0, 1 set Empresas = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM vw_sector4 WHERE Producto ='" & Criterio4 & "'" Empresas.open sql, conn, 0, 1 Case "5" set Productos = Server.CreateObject("ADODB.recordset") sql = "SELECT Producto FROM vw_sector5_productos" Productos.open sql, conn, 0, 1 set Empresas = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM vw_sector5 WHERE Producto ='" & Criterio5 & "'" Empresas.open sql, conn, 0, 1 End Select %> Pro Rio Negro - Patagonia Argentina

Empresas por sector:

Empaques y frigoríficos
Productos Gourmet
Sector Fruticola
Sector Tecnológico
Sector Vitivinícola

Si usted desea incluir su empresa en esta sección, por favor envíenos información a:
usmea@prorionegro.org.ar

<%If Sector = "1" Then%> <% If Accion = "buscar" Then %> <% While Not Empresas.EOF %> <% Empresas.MoveNext() Wend %> <% End If %>

Empaques y frigoríficos:

Localidad:

<%=Empresas("Empresa")%>
<%=Empresas("Producto")%>
<%=Empresas("Direccion")%>
<%=Empresas("Telefono")%>
" class=texto><%=Empresas("Email")%>

Fuente: Secretaría de Fruticultura de la Pcia de Río Negro

<%End If%>

<%If Sector = "2" Then%>

<% If Accion = "buscar" Then %> <% While Not Empresas.EOF %> <% Empresas.MoveNext() Wend %> <% End If %>

Productos Gourmet

Producto:

<%=Empresas("Empresa")%>
<%=Empresas("Producto")%>
<%=Empresas("Telefono")%>
" class="texto"><%=Empresas("Email")%>
" class="texto"><%=Empresas("Web")%>

<%End If%>

<%If Sector = "3" Then%>

<% If Accion = "buscar" Then %> <% While Not Empresas.EOF %> <% Empresas.MoveNext() Wend %> <% End If %>

Sector Fruticola:

Empresas Exportadoras del Sector Frutícola (sector fruticola)

<%End If%> <%If Sector = "4" Then%>

<% If Accion = "buscar" Then %> <% While Not Empresas.EOF %> <% Empresas.MoveNext() Wend %> <% End If %>

Sector Tecnológico

Empresa/Institucion::

<%=Empresas("Empresa")%>

<%=Empresas("Descripcion")%>

Dirección: <%=Empresas("Direccion")%>