Control de producto. Bodegas distribución

Sistema de control de productos mediante tecnología WAP desde que se despacha la carga en bodega hasta que la recibe el cliente final. Solicite un Demo Gratis.
Control Agrícola.
Agroindustria
Sistema de control en terreno de frutas y plagas.
Cuando un agronomo se encuentra en visita a terreno tendra la posibilidad de enviar información por celular (programa WAP). Luego esta información quedara disponible en una página de internet. Solicite un Demo Gratis.
Control Correspondencia.
Empresa Courrier
Usted podra controlar el despacho de correspondencia enviando un codigo por celular, luego el programa WAP lo interpretará como una glosa, la cual podrá controlar mediante una página en internet. Solicite un Demo Gratis.
Control de moviles.
Empresa de radiotaxi
Hemos desarrollado un programa que permite controlar la ubicación de los moviles mediante un diseño grafico.
Solicite un 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!!! ''------------------------------------------------------------------------------- dim icargar 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 Dim oConn1, rs1, SQL1, iRegistro Dim iCuantos 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.demos" 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.==================== ''============================================================== %>