<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conx2_STRING Recordset1.Source = "SELECT * FROM Noticias ORDER BY IdNoticia DESC" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_conx2_STRING Recordset2.Source = "SELECT * FROM Eventos ORDER BY Id_Eventos DESC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Mision y Vision
       

NUESTRA MISIÓN

Nuestros esfuerzos están orientados hacia la excelencia, el cumplimiento de los requerimientos de nuestros clientes, más allá de lo establecido por los controles de medición de calidad, en donde la atención oportuna e inmediata de las solicitudes de servicio, el diagnostico de desviaciones, la presentación presupuestaria conciente, el suministro de mano de obra, partes, repuestos servicios, requerimientos y entrega final de los productos son verificados, evaluados y atendidos con el involucramiento de nuestra gerencia, para lograr nuestra principal misión la satisfacción de nuestros clientes.

  

NUESTRA VISIÓN

El crecimiento de nuestra empresa es nuestra visión, entendiendo esto como la ampliación de nuestras operaciones, la incorporación de nuevas oportunidades de negocios, el mejoramiento de las tecnologías aplicadas en las operaciones, la administración de recursos materiales y humanos, la capacitación y actualización de nuestros profesionales en vanguardia con estas tecnologías de punta, para convertir finalmente a la empresa en referencia del mercado para los clientes, en cuanto a nuestros productos y servicios.

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>