<%@ Language=VBScript %> <% Option Explicit Dim diasemana,dia,mes,anno,mimes,misemana,estedia Dim conexion,registros,sql,total_var,total2_var,registros2 Set conexion= Server.CreateObject ("ADODB.connection")%> <%conexion.Open Set registros = Server.CreateObject ("ADODB.RECORDSET") Set registros2 = Server.CreateObject ("ADODB.RECORDSET") %> CIEC Centro de Negocios | Catálogo de Proveedores
 
 

Inicio  | Información General | « Atrás

Catálogo de Proveedores
 
 
 
 
<%sql="Select count(*) as total from ciec_vista_catalogo where nom_produc is not null and activo<>0" registros.open sql,conexion,1 total_var=0 total_var=cint(registros("total")) registros.Close if request("opcion")="" then%>

Actualmente hay <%=total_var%> empresas en el Catálogo de la CIEC

 
Áreas económicas (Elija una).

<%end if if request("opcion")="listar" then if request("ver")<>"" then if request("ver")=4 then sql="Select count(*) as total from ciec_vista_catalogo where nom_produc is not null and afiliado=1 and activo<>0" registros2.open sql,conexion,1 total2_var=0 total2_var=cint(registros2("total")) registros2.Close sql="select * from ciec_vista_catalogo where nom_produc is not null and afiliado=1 and activo<>0 order by nom_produc" registros.Open sql,conexion,1 else sql="Select count(*) as total from ciec_vista_catalogo where nom_produc is not null and area='"&request("ver")&"' and activo<>0" registros2.open sql,conexion,1 total2_var=0 total2_var=cint(registros2("total")) registros2.Close sql="select * from ciec_vista_catalogo where nom_produc is not null and area='"&request("ver")&"' and activo<>0 order by nom_produc" registros.Open sql,conexion,1 end if else sql="Select count(*) as total from ciec_vista_catalogo where nom_produc is not null and activo<>0" registros2.open sql,conexion,1 total2_var=0 total2_var=cint(registros2("total")) registros2.Close sql="select * from ciec_vista_catalogo where nom_produc is not null and activo<>0 order by nom_produc" registros.Open sql,conexion,1 end if if not registros.eof and not registros.bof then%> <%if request("ver")<>"" then%> <%end if%>

Actualmente hay <%=total_var%> empresas en el Catálogo de la CIEC

 

Hay <%=total2_var%> empresas <%Select case request("ver") case 1 response.write " de Repuestos y Suministros" case 2 response.write " de Servicios" case 3 response.write " de Materia Prima" case 4 response.write " Afiliadas a la CIEC" end select%>

<%do while registros.eof=false %>

&id=<%=registros("cod_empresa")%>"> " align="left" width="116" height="80" style="border-style:solid; border-color:#BDCEBD; "> <%=registros("nom_produc")%>

&id=<%=registros("cod_empresa")%>"> » Detalle
» Subir

<%registros.movenext() loop%>

 
 
<%else%>





No hay empresas en esta área económica

<%end if end if%>




Escribe lo que buscas

 

» Vea a la Ing. Mildred Sequera de Grumaeca hablar del Catalogo


 
 
 

Inicio  | Información General | « Atrás

 
  2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web.