<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsDECANO__MMColParam rsDECANO__MMColParam = "1" If (Request("MM_EmptyValue") <> "") Then rsDECANO__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsDECANO__MMColParam2 rsDECANO__MMColParam2 = "1" If (Request("MM_EmptyValue") <> "") Then rsDECANO__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim rsDECANO Dim rsDECANO_numRows Set rsDECANO = Server.CreateObject("ADODB.Recordset") rsDECANO.ActiveConnection = MM_connNOVED_STRING rsDECANO.Source = "SELECT * FROM novedades WHERE tipoid = " + Replace(rsDECANO__MMColParam, "'", "''") + " and zonaid = " + Replace(rsDECANO__MMColParam2, "'", "''") + " ORDER BY fecha DESC" rsDECANO.CursorType = 0 rsDECANO.CursorLocation = 2 rsDECANO.LockType = 1 rsDECANO.Open() rsDECANO_numRows = 0 %> <% Dim rsNOTICIAS__MMColParam rsNOTICIAS__MMColParam = "2" If (Request("MM_EmptyValue") <> "") Then rsNOTICIAS__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsNOTICIAS__MMColParam2 rsNOTICIAS__MMColParam2 = "1" If (Request("MM_EmptyValue") <> "") Then rsNOTICIAS__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim rsNOTICIAS Dim rsNOTICIAS_numRows Set rsNOTICIAS = Server.CreateObject("ADODB.Recordset") rsNOTICIAS.ActiveConnection = MM_connNOVED_STRING rsNOTICIAS.Source = "SELECT * FROM novedades WHERE tipoid = " + Replace(rsNOTICIAS__MMColParam, "'", "''") + " and zonaid = " + Replace(rsNOTICIAS__MMColParam2, "'", "''") + " ORDER BY fecha DESC" rsNOTICIAS.CursorType = 0 rsNOTICIAS.CursorLocation = 2 rsNOTICIAS.LockType = 1 rsNOTICIAS.Open() rsNOTICIAS_numRows = 0 %> <% Dim rsCALENDARIO__MMColParam rsCALENDARIO__MMColParam = "3" If (Request("MM_EmptyValue") <> "") Then rsCALENDARIO__MMColParam = Request("MM_EmptyValue") End If %> <% Dim rsCALENDARIO__MMColParam2 rsCALENDARIO__MMColParam2 = "1" If (Request("MM_EmptyValue") <> "") Then rsCALENDARIO__MMColParam2 = Request("MM_EmptyValue") End If %> <% Dim rsCALENDARIO Dim rsCALENDARIO_numRows Set rsCALENDARIO = Server.CreateObject("ADODB.Recordset") rsCALENDARIO.ActiveConnection = MM_connNOVED_STRING rsCALENDARIO.Source = "SELECT * FROM novedades WHERE tipoid = " + Replace(rsCALENDARIO__MMColParam, "'", "''") + " and zonaid = " + Replace(rsCALENDARIO__MMColParam2, "'", "''") + " ORDER BY fecha DESC" rsCALENDARIO.CursorType = 0 rsCALENDARIO.CursorLocation = 2 rsCALENDARIO.LockType = 1 rsCALENDARIO.Open() rsCALENDARIO_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 3 Repeat1__index = 0 rsDECANO_numRows = rsDECANO_numRows + Repeat1__numRows %> Laboratorio de Redes de Computadoras

FACULTAD DE CIENCIAS EXACTAS Y TECNOLOGIA
UNIVERSIDAD NACIONAL DE TUCUMAN
NOVEDADES
MAPA DEL SITIO
INFORMACION
CONTACTOS
PRINCIPAL
  
  
El Laboratorio de Redes de Computadoras es parte del Departamento de Eléctrica,
Electronica y Computación.
Cuenta con más de 10 personas como parte de su staff academico
y con más de 60 alumnos
por graduarse.
 
     Laboratorio de Redes de Computadoras
   
  Información sobre el Laboratorio
   
  Investigaciones
  Nuestra gente
  Proyectos de graduación
  Trabajos y oportunidades
   
  Información para estudiantes
  Información general y novedades
   
  Contacto y como llegar aquí
 
Fecha de última actualización:  
Facultad de Ciencias Exactas y Tecnologías. Universidad Nacional de Tucumán.
Av. Independencia 1800 - (T4002BLR) - San Miguel de Tucumán - Argentina
<% rsDECANO.Close() Set rsDECANO = Nothing %> <% rsNOTICIAS.Close() Set rsNOTICIAS = Nothing %> <% rsCALENDARIO.Close() Set rsCALENDARIO = Nothing %>