<!--#include file="funciones/funciones.asp"-->
<%
If Session("maestro") = "" Then response.Redirect("cerrar_secion.asp")
response.Expires = 0
response.CacheControl = "privade"
response.CacheControl = "no-cache"
response.CacheControl = "no-store"
Session("inicial") = false
Session("respuesta") = false
dim idc
idc = request.QueryString("idc")
If idc = 1 Then
iF Session("inicial") = true Then Session("inicial") = false Else Session("inicial") = true
Session("respuesta") = false
End If
If idc = 2 Then
iF Session("respuesta") = true Then Session("respuesta") = false Else Session("respuesta") = true
Session("inicial") = false
End If
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>
.:Mensajes Para Alumnos:.
</title>
<link rel="stylesheet" href="style.css" type="text/css" media="screen" />
<script language="javascript" src="js/Google_Javanew.js" type="text/javascript"></script>
<link href="beta2as.css" rel="stylesheet" type="text/css" />
<script language="javascript" type="text/javascript" src="js/swfobject.js"></script>
</head>
<body style="font-size: 12px">
<%
CALL Conecta()
strSQL15 = "select * from cat_periodo where activado = 1"
'response.Write (strSQL15)
'response.End
set rs15 = Conn.Execute(strSQL15)
periodo = rs15("idperiodo")
%>
<!-- Start of Order Cards -->
<div id="order_cardas1" style="width: 730px;" align="center">
<%if Session("inicial") = true then %>
<div style="width:700px; height:auto;" align="left">
<%
strSQL3 = "exec listadecontactos " & session("maestro")
set rs3 = Conn.execute(strSQL3)
%>
<form action="insmensajeforo.asp?periodo=<%=periodo%>" method="post" name="insert">
<p style="font-family:Arial Black; font-size:12px;">En este Apartado podrás mandar mensajes a tus distintos tutorados.</p>
<table width="100%" cellpadding="0">
<tr>
<td style="vertical-align:top; width: 150px;">
<div style=" border-right:#ffffff 1px solid; height:250px; width:150px; font-family:Arial Black;">
<table border="0" width="100%" style="text-align:left; font-size:12px;">
<tr valign="top">
<td>
<div style="text-align:center; background-color:#CCCCFF;"><br />Mensajes.<br /><br /></div>
<br />
<div class="vincmunudiv"><a href="profesor.asp?idc=4">Del Departamento </a></div></td>
</tr>
<tr>
<td><div class="vincmunudiv"><a href="mensajeforo2.asp">Recibidos </a></div></td>
</tr>
<tr>
<td><div class="vincmunudiv"><a href="mensajeforo.asp">Enviados</a></div></td>
</tr>
<tr>
<td><div class="vincmunudiv"><a href="mensajeprofe.asp?idc=1">Escrivir Mensaje</a></div></td>
</tr>
</table>
</div>
</td>
<td>
<div>
<table border="0" width="100%">
<tr>
<td colspan="2" style="padding:10px;">
<b> Seleccione los alumnos a los que Quiere mandar el mensaje</b></td>
</tr>
<%
do until rs3.eof
%>
<tr>
<td colspan="2" style="padding:10px;">
<input id="chk<%=Rs3("matricula")%>" type="checkbox" name="chk<%=Rs3("matricula")%>" value="1" <%iF selec = true Then response.write("checked=""checked""") %> />
<%=rs3("alumno")%>
</td>
</tr>
<%
rs3.movenext
loop
%>
<tr>
<td colspan="2" style="padding:10px;">
<br />
<b>Titulo del Mensaje</b><br />
<input id="titulo" style="width:364px" type="text" name="titulo" maxlength="50" /><br />
<br />
<b>Mensaje.</b></td>
</tr>
<tr>
<td style="height: 40px; padding:10px;" colspan="2">
<textarea id="mensaje" name="mensaje" cols="550px" rows="120px" style="width: 500px; height: 120px"></textarea></td>
</tr>
<tr>
<td style="height: 24px" colspan="2">
<input id="insert" name="insert" type="submit" value="Guardar" /></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</form>
</div>
<%end if %>
</div>
<%CALL Desconecta()%>
</div>
</body>
</html>