<%@ Language=VBScript %> <% Option Explicit dim conexion, registros dim sql,hoy if session("login_proveedores")<>"" then Response.Redirect("admon.asp") End if set conexion= Server.CreateObject ("ADODB.connection") %> <% conexion.CursorLocation = 1 conexion.open set registros = Server.CreateObject ("ADODB.RECORDSET") registros.CursorLocation = 1 registros.CursorType = 2 registros.LockType = 3 %> CIEC - Proveedores <% if Request("oculto")="1" then sql= "select * from ciec_proveedores where (status <> 2) and login='" & request("login_txt") & "' and password='" & request("password_txt") &"'" registros.open sql,conexion,1 if registros.EOF =true or registros.BOF =true then registros.Close conexion.Close %> <% else session("login_proveedores")=Request.Form("login_txt") session("password_proveedores")=Request.Form("password_txt") session.TimeOut = 120 registros.Close sql="select max(visita) as mayor from ciec_proveedores where login='" &session("login_proveedores") &"' and password='" &session("password_proveedores") &"'" registros.open sql,conexion,1 if request("status") = 2 then response.redirect("default.asp") end if dim visita_var visita_var=registros("mayor")+1 If isnull(visita_var) then visita_var=1 End If registros.close sql="select * from ciec_proveedores where login='" &session("login_proveedores") &"' and password='" &session("password_proveedores") &"'" registros.open sql,conexion,1 registros("visita")=visita_var registros.Update registros.Close response.redirect("admon.asp") end if end if %>
 

Clave:
Contraseña:
 

 

Para obtener su contraseña haga click aquí
 
 

Estimados amigos proveedores de la CIEC:

A partir de la presente fecha hemos liberado esta herramienta en Internet que permite mejorar el flujo de información acerca de nuestras necesidades de suministro de bienes y servicios.

A partir del año 2004, todos los procesos de compra de la Cámara se ejecutarán sobre esta plataforma, motivo por el cuál solicitamos tengan a bien actualizar sus datos por esta misma vía.

Cada proveedor tiene su clave y contraseña únicas que los identifican en nuestro sistema. Si usted aún no ha solicitado la suya puede hacerlo ahora.

 

 

Envíenos sugerencias y comentarios acerca de esta página

  
Diseño y desarrollo: Ingeniería Web, S. R. L. - IW

Capítulos | Comisiones | Directorio | Contáctenos | Principal