<%@ 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") diasemana=weekday(now) dia=day(now) mes=month(now) anno=year(now) select case diasemana case 1 misemana="Domingo" case 2 misemana="Lunes" case 3 misemana="Martes" case 4 misemana="Miercoles" case 5 misemana="Jueves" case 6 misemana="Viernes" case 7 misemana="Sabado" end select select case mes case 1 mimes="enero" case 2 mimes="febrero" case 3 mimes="marzo" case 4 mimes="abril" case 5 mimes="mayo" case 6 mimes="junio" case 7 mimes="julio" case 8 mimes="agosto" case 9 mimes="septiembre" case 10 mimes="octubre" case 11 mimes="noviembre" case 12 mimes="diciembre" end select estedia = "Valencia, "+ misemana +" "+ Cstr(dia) +" de "+ mimes +" de "+ Cstr(anno) %> Catalogo de Proveedores
   

inicio  |  requerimientos  |  mapa  |  contáctenos  |  política de privacidad  |  información

 

atrás atrás  

 

Catalogo 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="60" height="50" 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


 

atrás atrás

 

inicio  |  requerimientos  |  mapa  |  contáctenos  |  política de privacidad  |  información

Diseño y desarrollo: