Bienestar Kaufmann  
 
Creación de la externa-net para dar servicios a todos sus trabajadores que conforman esta prestigiosa empresa.
Transporte JR  
 
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, para poder  satisfacer las necesidades de nuestros clientes. Contamos con experimentados especialistas en cada una de las áreas.
 
 
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.clientes" 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.==================== ''============================================================== %>