:: Quienes somos                                         :::Lo Nuevo
 
 
Somos una empresa de servicios informáticos, integrando tecnología de punta, a pequeñas y medianas empresas, ayudando a la optimización de los procesos.
Hemos terminado un proyecto con tecnología WAP. Esto permite el control de productos desde el proveedor(bodega) hasta el cliente final. El proveedor puede controlar su carga mediante información puesta en internet por medio de un software. Por ejemplo, a través del celular, se envía la información vía  un programa wap controlando diversos estados de la carga.:SOLICITE UN DEMO GRATIS:::
 
Nuestro objetivo es satisfacer todas las necesidades de nuestros clientes. Para ello, contamos con  experimentados especialistas en cada área, que permitirán el correcto funcionamiento
::: Algunos Demos
Contamos con numerosos Demos, específicos para la agroindustria, para correos privados (courrier), para bodegas de distribución, empresa de radio taxi, etc.
SOLICITE DEMO GRATIS
 
Dirección: Napoleón #3565 of.: 202 - Las Condes Fono: (56 2) 203 77 00 Fax: (56 2) 203 77 00
<% ''============================================================== ''===============EMPIEZA EL GUARDADO DE DATOS.================== ''============================================================== ''------------------------------------------------------------------------------- '---------------------tomar el tiempo de cuanto se demoara en cargar la pagina!!! ''------------------------------------------------------------------------------- starttime = Timer() Do While tt < 30000 tt = tt + 1 Loop endtime = Timer() icargar = "" & endtime-starttime & "seg" ''------------------------------------------------------------------------------- '---------------------Fin de la carga de la pagina!!! 14-11-2002_12:44!!!!!!!!!!! ''------------------------------------------------------------------------------- ua = Request.ServerVariables("HTTP_USER_AGENT") os = Request.ServerVariables("HTTP_UA_OS") If Instr(ua, "MSIE") Then If Instr(ua, "MSIE 5.") Then Browser = "Microsoft Internet Explorer 5.x" Elseif Instr(ua, "MSIE 4.") Then Browser = "Microsoft Internet Explorer 4.x" Elseif Instr(ua, "MSIE 3.") Then Browser = "Microsoft Internet Explorer 3.x" If Instr(ua, "MSIE 3.02") Then Browser = "Microsoft Internet Explorer 3.02" End If Else Browser = "Microsoft Internet Explorer" End If ElseIf Instr(ua, "Mozilla") and Instr(ua, "compatible") = 0 Then If Instr(ua, "Mozilla/4") Then Browser = "Netscape Navigator 4.x" Elseif Instr(ua, "Mozilla/3") Then Browser = "Netscape Navigator 3.x" Else Browser = "Netscape Navigator" End If End If If Instr(ua, "Windows 95") or Instr(ua, "Win95") Then System = "Windows 95" Elseif Instr(ua, "Windows 98") or Instr(ua, "Win98") Then System = "Windows 98" Elseif Instr(ua, "Windows 3.1") or Instr(os, "Win16") Then System = "Windows 3.x/Windows NT 3.x" Elseif Instr(ua, "NT") or Instr(oa, "NT") Then System = "Windows NT" Elseif Instr(ua, "Mac") Then System = "Mac" If Instr(ua, "PowerPC") or Instr(ua, "PPC") Then System = "Mac PPC" Elseif Instr(ua, "68000") or Instr(ua, "68K") Then System = "Mac 68K" End If Elseif Instr(ua, "X11") Then System = "UNIX" End If set oConn1 = Server.CreateObject("ADODB.Connection") set rs1 = Server.CreateObject("ADODB.Recordset") oConn1.Open RutaCMS SQL1="SELECT * FROM Contador ORDER BY Id" rs1.Open SQL1, oConn1, 1, 2 rs1.AddNew rs1.Fields("Nombre")= (System) rs1.Fields("Fecha")=Date rs1.Fields("IP") = Request.ServerVariables("REMOTE_ADDR") rs1.Fields("Hora")= DateAdd("h", 0, time()) 'pruebaaa rs1.Fields("Pag")= "cmsystem.inicio" rs1.Fields("cargar")= icargar rs1.Update iRegistro = rs1.Fields("Id") rs1.Close rs1.Open SQL1, oConn1, 1, 1 if not rs1.EOF then else Response.Write("No hay registros en esta tabla") end if rs1.Close set rs1 = nothing oConn1.Close set oConn1 = nothing ''============================================================== ''===============Fin de la carga de la BASE.==================== ''============================================================== %>