<% @LCID = 1034 %> <% Option Explicit Response.addHeader "pragma", "no-cache" Response.CacheControl = "Private" Response.Expires = 0 Dim conexion,registros,registros2,registros3,sql Dim login_cooki_var,password_cooki_var,visita_var,login_prov_cooki_var,password_prov_cooki_var Dim hoy,diahoy,total_var,id,status_hora,hora,ahora,j,i,sw,status Dim dia,id_var,fecha_var,hora_var Set conexion = Server.CreateObject ("ADODB.connection") %><% conexion.open Set registros = Server.CreateObject ("ADODB.Recordset") registros.CursorLocation = 1 registros.CursorType = 2 registros.LockType = 3 Set registros2 = Server.CreateObject ("ADODB.RECORDSET") Set registros3 = Server.CreateObject ("ADODB.Recordset") function limpia(t) dim tt tt=t tt=replace(tt,"""","") tt=replace(tt,"'","") tt=replace(tt,"--","") tt=server.htmlencode(tt) limpia=tt end function %> CIEC Centro de Negocios <%If Request("oculto")="1" then dim pass pass=request.form("password_txt") pass=limpia(pass) sql= "select * from ciec_compradores where password='" & pass & "' and empresa='" & request.form("empresa_cmb") &"' and status=0" registros.Open sql,conexion,1 If registros.EOF=true or registros.BOF=true then%> <%else Session.Contents.Remove("login_ciec_compradores") Session.Contents.Remove("password_ciec_compradores") Set Session("login_ciec_compradores")=Nothing Set Session("password_ciec_compradores")=Nothing Session("login_ciec_compradores")=Request("empresa_cmb") Session("password_ciec_compradores")=Request("password_txt") if request("C1")="ON" then Response.Cookies("login_ciec_compradores")=Request("empresa_cmb") Response.Cookies("login_ciec_compradores").Expires = "1/1/2038" Response.Cookies("password_ciec_compradores")=Request("password_txt") Response.Cookies("password_ciec_compradores").Expires = "1/1/2038" end if if request("C1")="" then Response.Cookies("login_ciec_compradores")="" Response.Cookies("password_ciec_compradores")="" end if Session.TimeOut = 120 registros.Close sql="select max(visita) as mayor from ciec_compradores where empresa='" &session("login_ciec_compradores") &"' and password='" &session("password_ciec_compradores") &"'" registros.Open sql,conexion,1 visita_var=registros("mayor")+1 If isnull(visita_var) then visita_var=1 End If registros.Close sql="select * from ciec_compradores where empresa='" &session("login_ciec_compradores") &"' and password='" &session("password_ciec_compradores") &"'" registros.Open sql,conexion,1 Session("idmiembro")=registros("idempresa") Session("nivelmiembro")=registros("nivel") registros("visita")=visita_var registros.Update registros.Close Response.Redirect("compradores/subir_requerimiento.asp") End if End if%> <%If Request("oculto_prov")="1" then sql= "select * from ciec_directorio where password='" & request("password_prov_txt") & "' and login='" & request("login_prov_txt") &"'" registros.Open sql,conexion,1 If registros.EOF=true or registros.BOF=true then%> <%else Session.Contents.Remove("login_ciec_proveedores") Session.Contents.Remove("password_ciec_proveedores") Set Session("login_ciec_proveedores")=Nothing Set Session("password_ciec_proveedores")=Nothing Session("login_ciec_proveedores")=Request("login_prov_txt") Session("password_ciec_proveedores")=Request("password_prov_txt") if request("C2")="ON" then Response.Cookies("login_ciec_proveedores")=Request("login_prov_txt") Response.Cookies("login_ciec_proveedores").Expires = "1/1/2038" Response.Cookies("password_ciec_proveedores")=Request("password_prov_txt") Response.Cookies("password_ciec_proveedores").Expires = "1/1/2038" end if if request("C2")="" then Response.Cookies("login_ciec_proveedores")="" Response.Cookies("password_ciec_proveedores")="" end if Session.TimeOut = 120 registros.Close 'sql="select max(visita) as mayor from ciec_directorio where login='" &session("login_ciec_proveedores") &"' and password='" &session("password_ciec_proveedores") &"'" 'registros.Open sql,conexion,1 'visita_var=registros("mayor")+1 'If isnull(visita_var) then ' visita_var=1 'End If 'registros.Close sql="select * from ciec_directorio where login='" &session("login_ciec_proveedores") &"' and password='" &session("password_ciec_proveedores") &"'" registros.Open sql,conexion,1 'registros("visita")=visita_var id_var=registros("id") registros.Update registros.Close fecha_var=date hora_var=time sql="select * from ciec_proveedores_actividad where id_proveedor='"&id_var&"'" registros.Open sql,conexion,1 registros.AddNew registros("id_proveedor")=id_var registros("tipo")=0 registros("fecha")=fecha_var registros("hora")=hora_var registros.Update registros.Close Response.Redirect("proveedores/subir_cotizacion.asp") End if End if%>
 
 
Comunidad de Proveedores

Entrada a la Comunidad de Proveedores
(Área privada para proveedores)

Su clave:
<%if Request.Cookies("login_ciec_proveedores")<>"" then login_prov_cooki_var=Request.Cookies("login_ciec_proveedores") end if%> "" then%>value="<%=login_prov_cooki_var%>"<%end if%> name="login_prov_txt" id="login_prov_txt" size="15" maxlength="16" style="font-family: Verdana; font-size: 8pt">
Su contraseña:
<%if Request.Cookies("password_ciec_proveedores")<>"" then password_prov_cooki_var=Request.Cookies("password_ciec_proveedores") end if%> "" then%>value="<%=password_prov_cooki_var%>"<%end if%> type="password" name="password_prov_txt" id="password_prov_txt" size="15" maxlength="16" style="font-family: Verdana; font-size: 8pt"> ¿Olvidó su contraseña?
Quiero registrarme como proveedor
"" and Request.Cookies("password_ciec_proveedores")<>"" then%>checked<%end if%> type="checkbox" name="C2" value="ON">Recordar en esta máquina mi clave y contraseña

 
 
Actualmente estamos buscando proveedores de:
<%hoy=datepart("m",date)&"/"&datepart("d",date)&"/"&datepart("yyyy",date) sql="select top 3 * from ciec_compradores_requerimiento where (status=1 or status=5) and fechacompra>='"&hoy&"' order by id desc" registros.open sql,conexion,1%> <%if not registros.bof and not registros.eof then do while registros.EOF=False session("codreq")=registros("id")%> <%sql="select count(id) as total from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'" registros2.open sql,conexion,1 total_var=registros2("total") registros2.close randomize j=int((rnd*total_var)+1) sql="select * from ciec_compradores_reqdetalle where id_req='"®istros("id")&"'" registros2.open sql,conexion,1 if not registros2.bof and not registros2.eof then i=0 sw=0 do while registros2.EOF=False i=i+1 if i=j then status=DateDiff("d", date, registros("fechacompra")) status_hora=DateDiff("h", date, registros("fechacompra")) ahora=Now() hora=24 - hour(ahora) sql = "select count(*) as total from ciec_compradores_cotizacion where nroreq='"®istros("nro")&"' and status=0" registros3.open sql,conexion,1%> " title="Vea el detalle de este requerimiento">• <%=registros2("requerimiento")%><%'status=((registros("fechacompra")-1)-date)*24%> (<%if status_hora<=24 then%><%=hora%> h<%else%><%=status%> d<%end if%><%if registros3("total")=0 then%><%else%> /ac<%end if%>) (<%=total_var%> rubro<%if total_var>1 then%>s<%end if%>)
<%registros3.close sw=sw+1 end if if sw=2 then exit do end if registros2.movenext loop end if registros2.close%> <%registros.movenext loop else%>  • No se han formulado requerimientos <%end if%> <%registros.close%>
 
 
 

 » Ver todos los requerimientos

 
Publicidad
 
 
Comunidad de Compradores

Entrada al Sistema de Procura

Su Empresa:

Su contraseña:
<%if Request.Cookies("password_ciec_compradores")<>"" then password_cooki_var=Request.Cookies("password_ciec_compradores") end if%> "" then%>value="<%=password_cooki_var%>"<%end if%> type="password" name="password_txt" id="password_txt" size="12" maxlength="16" style="font-family: Verdana; font-size: 8pt"> 
¿Olvidó su contraseña?
"" and Request.Cookies("password_ciec_compradores")<>"" then%>checked<%end if%> type="checkbox" name="C1" value="ON">Recordar en esta máquina el nombre de mi empresa y contraseña

 

 
» Conozca el Centro de Negocios haciendo click aquí. (Información general)
 
 
Catálogo

» Regístrese como Proveedor
»
Vea el Catálogo General
     

<%dia=DatePart("y", date) sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-2 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

<%dia=dia-1 sql = "select * from ciec_bannerhc where id='"&dia&"'" registros.open sql,conexion,1 id=registros("idempresa") registros.close sql = "select * from ciec_catalogo where cod_empresa='"&id&"'" registros.open sql,conexion,1%> &id=<%=registros("cod_empresa")%>"> " width="116" height="80" alt="<%=registros("nom_produc")%>" style="border: 1px solid #A2B9A2; ">
<%=registros("nom_produc")%>
<%If registros("prod1")<>"" then%><%=registros("prod1")%> 
<%end if If registros("prod2")<>"" then%><%=registros("prod2")%> 
<%end if%>
&id=<%=registros("cod_empresa")%>">» mas información <%registros.close%>

 
  2006 l CIEC Centro de Negocios es un producto de software ideado y desarrollado por Ingeniería Web (Proyectos Web IW C.A.).