<%@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
%>
<%
Dim Colegios
Dim Colegios_numRows
Set Colegios = Server.CreateObject("ADODB.Recordset")
Colegios.ActiveConnection = MM_CnxWE_STRING
Colegios.Source = "SELECT Nombre FROM Colegio ORDER BY Nombre ASC"
Colegios.CursorType = 0
Colegios.CursorLocation = 2
Colegios.LockType = 1
Colegios.Open()
Colegios_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)
%>
| WEB ESCUELA |
Proyecto
Web Escuela / www.webescuela.edu.py
<%=FechaLetras%>
Escriba
lo que quiere buscar
Complete
todos los datos solicitados para registrarse.
