| WEB ESCUELA |

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("NombreUsuario") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "../Aula.asp" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% 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) %> | WEB ESCUELA |

Proyecto Web Escuela / www.webescuela.edu.py

Escriba lo que quiere buscar

<% If Session("NombreUsuario") = "" Then %> <% End If%>


	Artículos

	Los 10 ultimos artículos

	Artículos por orden alfabético

	Artículos por orden cronologíco

	Buscar artículos

	Artículos de Educación

	Artículos de Ciencias

	Artículos de Tecnologías