-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathNoAccess.asp
56 lines (51 loc) · 1.62 KB
/
NoAccess.asp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
<!--#INCLUDE file="top.asp" -->
<!--#INCLUDE file="top1.asp" -->
<!--#INCLUDE file="f-izq.asp" -->
<!--#INCLUDE file="SubMenu.asp" -->
<!--#INCLUDE FILE="include/conexion.inc" -->
<!--#INCLUDE FILE="include/periodos.inc" -->
<!--#INCLUDE FILE="include/funciones.inc" -->
<%
sql = " select COALESCE (dbo.Fn_ValorParame('ACTIVACALENDARIOALUMNO'), 'N') AS ACTIVACALENDARIOALUMNO"
Set Rst = Session("Conn").Execute(sql)
ACTIVACALENDARIOALUMNO = Valnulo(Rst("ACTIVACALENDARIOALUMNO"), str_)
Rst.close()
if ACTIVACALENDARIOALUMNO = "S" then
response.Redirect("Calendario.asp")
response.End()
end if
%>
<html>
<link rel="stylesheet" href="css/tablas.css" type="text/css">
<title><%=Session("NombrePestana")%></title>
<body >
<table border="0" cellpadding="0" cellspacing="0" align="left">
<tr>
<td>
<table width="200" border="0" cellpadding="0" cellspacing="0" align="center">
<tr>
<td colspan="2" valign="top" align="right" ><% CargarTop()%><%
if trim(Session("NomAlum"))="" then
CargarMenu()
else
CargarMenu2()
end if
%></td>
<td valign="top" >
<% CargarTop1()%><% SubMenu()%>
<table width="100%" border="0" cellspacing="0" cellpadding="20" height="550" bgcolor="#FFFFFF">
<tr>
<td valign="top"><font size="3" face="Verdana, Arial, Helvetica, sans-serif" color="#4a5da1"><b id="lblMensaje">No hay información, ya que usted no es un alumno vigente.</b></font>
<p> </p></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<%ObjetosLocalizacion("noaccess.asp")%>
</html>
<!--#INCLUDE file="include/desconexion.inc" -->