<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Cursos Dim Cursos_numRows Set Cursos = Server.CreateObject("ADODB.Recordset") Cursos.ActiveConnection = MM_CnxWE_STRING Cursos.Source = "SELECT * FROM Curso ORDER BY Id_Curso ASC" Cursos.CursorType = 0 Cursos.CursorLocation = 2 Cursos.LockType = 1 Cursos.Open() Cursos_numRows = 0 %> <% Dim Areas Dim Areas_numRows Set Areas = Server.CreateObject("ADODB.Recordset") Areas.ActiveConnection = MM_CnxWE_STRING Areas.Source = "SELECT * FROM Area ORDER BY Nom_Area ASC" Areas.CursorType = 0 Areas.CursorLocation = 2 Areas.LockType = 1 Areas.Open() Areas_numRows = 0 %> <% Dim Materias__MMColParam Materias__MMColParam = "1" If (Request.QueryString("Area") <> "") Then Materias__MMColParam = Request.QueryString("Area") End If %> <% Dim Materias Dim Materias_numRows Set Materias = Server.CreateObject("ADODB.Recordset") Materias.ActiveConnection = MM_CnxWE_STRING if Request.QueryString("Area") = "" or Request.QueryString("Area") = "*" then Materias.Source = "SELECT * FROM Materia ORDER BY Categoria ASC" else Materias.Source = "SELECT * FROM Materia WHERE Nom_Area = '" + Replace(Materias__MMColParam, "'", "''") + "' ORDER BY Categoria ASC" end if Materias.CursorType = 0 Materias.CursorLocation = 2 Materias.LockType = 1 Materias.Open() Materias_numRows = 0 %> <% Hoy = Date() Dia = Weekday(Hoy,1) Select Case Dia Case 1 DiaLetras = "Domingo" Case 2 DiaLetras = "Lunes" Case 3 DiaLetras = "Martes" Case 4 DiaLetras = "Miércoles" Case 5 DiaLetras = "Jueves" Case 6 DiaLetras = "Viernes" Case 7 DiaLetras = "Sábado" End Select Mes = Month(Hoy) select Case Mes Case 1 MesLetras = "Enero" Case 2 MesLetras = "Febrero" Case 3 MesLetras = "Marzo" Case 4 MesLetras = "Abril" Case 5 MesLetras = "Mayo" Case 6 MesLetras = "Junio" Case 7 MesLetras = "Julio" Case 8 MesLetras = "Agosto" Case 9 MesLetras = "Setiembre" Case 10 MesLetras = "Octubre" Case 11 MesLetras = "Noviembre" Case 12 MesLetras = "Diciembre" End Select FechaLetras = " Asunción, " & DiaLetras & " " & Day(Hoy) & " de " & MesLetras & " de " & Year(Hoy) %>

Proyecto Web Escuela / www.webescuela.edu.py			<%=FechaLetras%>
				Escriba lo que quiere buscar

Recepción | Aula | Sala de Profesores | Biblioteca | Patio | Comunidad | Guaraní

Capacitación  Educación e Informática  Recursos - Aula  Planes de Clase  Software Educativo  Recursos Varios  Clipart, Fotos, Sonidos  Profes Creativos  Links Educativos  Buscar Links  Cursos  Calendario  Foro de Docentes  Acceder al Foro

Matemágica Desarrollado por Unlimited es el mejor software para aprender de forma fàcil y entrenida   Hamsterland Aprende de todo con este divertidísimo personaje. Historia, ciencias, lengua, todo en un solo CD interactivo.                               Buscador de Software Tema:   Área: Todas Artes Ciencias Básicas Ciencias Sociales Ciencias Sociales EB Ciencias y Salud EB Comunicación EB Desarrollo Personal y Social Educación Artística EB Educación Física Educacion Física EB Lengua y Literatura Libre Matemática EB Matemáticas Proyecto Comunitario EB Trabajo y Tecnología EB Materia: Todas Artes Ciencias Naturales y Salud Desarrollo Personal Diccionario de Música Economía y Gestión Educación Física Filosofía Física Formación Ética y Ciudadana Guaraní Ñe'ë Historia y Geografía Lengua Castellana y Literatura Lengua Extranjera Matemática O. Educacional y Sociolaboral Poesias Psicología Química Serv. Social y Prod. en la C. Sociología y Antropología Curso: Todos 1 11 12 13 2 3 4 5 6

Copyrigth 2003 / www.webescuela.edu.py                          Auspician / Colaboran / Privacidad de la información / Condiciones de Uso / Accesibilidad