<%@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

Bienvenido a nuestra recopilación de links educativos. Aquí encontrarás enlaces a los mejores sitios con contenido educativo que te ayudarán a resolver sus tareas. Si deseas sugerir algun link lo puedes hacer en nuestra página de contactos y/o sugerencias.       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

<% Cursos.Close() Set Cursos = Nothing %> <% Materias.Close() Set Materias = Nothing %> <% Areas.Close() Set Areas = Nothing %>