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

Educ. Escolar Básica  Comunicación  Matemática  Ciencias Sociales  Ciencias y Salud  Trabajo y Tecnología  Proyecto Comunitario  Educación Física  Educación Artística  Educación Media  Lengua y Literatura  Ciencias Básicas  Matemática  Ciencias Sociales  Educación Física  Artística  Desarrollo Personal

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 <% While (NOT Areas.EOF) %> " <%If (Not isNull(Request.QueryString("Area"))) Then If (CStr(Areas.Fields.Item("Nom_Area").Value) = CStr(Request.QueryString("Area"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(Areas.Fields.Item("Nom_Area").Value)%> <% Areas.MoveNext() Wend If (Areas.CursorType > 0) Then Areas.MoveFirst Else Areas.Requery End If %> "> Materia: Todas <% While (NOT Materias.EOF) %> "><%=(Materias.Fields.Item("Categoria").Value)%> <% Materias.MoveNext() Wend If (Materias.CursorType > 0) Then Materias.MoveFirst Else Materias.Requery End If %> Curso: Todos <% While (NOT Cursos.EOF) %> "><%=(Cursos.Fields.Item("Id_Curso").Value)%> <% Cursos.MoveNext() Wend If (Cursos.CursorType > 0) Then Cursos.MoveFirst Else Cursos.Requery End If %>

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

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