Código PHP:
<table width="760" cellpadding="0" cellspacing="0" border="0" align="center" bgcolor="#FFFFFF">
<tr>
<td colspan="3" valign="top" align="center">
</td>
</tr>
<tr>
<td width="1%" valign="top">
<img src="img/lateral.gif" border="0">
</td>
<td width="98%" valign="top" class="texto">
<%'set Ob_conn1=server.createobject("ADODB.connection")
'Ob_conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("../../Data/recepcionistas.mdb") & ";"
idcurso=request.QueryString("idcurso")
'set rs=Ob_conn1.Execute("select * from T_usuarios left outer join T_matricula on T_usuarios.c_idusuario = T_matricula.c_idusuario where T_matricula.c_idcurso='"& idcurso &"' and T_usuarios.c_perfil='"& 100 &"' order by T_usuarios.c_1apellido")
set rs3=Ob_conn1.Execute("select * from T_usuarios left outer join T_matricula on T_usuarios.c_idusuario = T_matricula.c_idusuario where T_matricula.c_idcurso='"& idcurso &"' and T_usuarios.c_perfil='"& 100 &"' order by T_usuarios.c_1apellido")
set rs1=Ob_conn1.Execute("select * from T_cursos where c_idcurso='"& idcurso &"'")
%>
<table width="100%" cellpadding="0" cellspacing="0" border="0" align="center">
<tr>
<td width=10></td>
<td valign="top" width="80%" class="texto">
<br><br><img src="img/tit-cursos.gif" border="0"><br><br>
<span class="titulos"><b><%'=rs("c_nombrecurso")%></b></span><br />
Seleccione en la columna de la derecha <b>el módulo que desee cursar</b>. Para ello basta con clicar sobre el mismo.<br><br>
A continuación le indicamos el significado de los <b>iconos</b> que vamos a utilizar a lo largo del curso:<br /><br />
<table width="580" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="14" height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td width="10" bgcolor="#F9F9F9"></td>
<td colspan="13" class="texto" height="40" bgcolor="#F9F9F9">
<br /><b>Curso:</b> <%=rs1("c_nombrecurso")%><br /><br />
</td>
</tr>
<tr>
<td colspan="14" height="1" bgcolor="#C4C4C4"></td>
</tr>
<tr bgcolor="#F9F9F9">
<td width="10" height="30" bgcolor="#F5F5F5" ></td>
<td class="texto"><b>Apellidos</b></td>
<td width="10"></td>
<td class="texto"><b>Nombre</b></td>
<td width="10"></td>
<td class="texto"><b>Fechas </b></td>
<td width="10"></td>
<td class="texto"><b></b></td>
<td width="10"></td>
<td class="texto" colspan="5"><b></b></td>
</tr>
<tr>
<td colspan="14" height="1" bgcolor="#FFFFFF"></td>
</tr>
<%if rs3.eof then%>
<tr>
<td class="texto" colspan="14" bgcolor="#EFEFEF">
<b>No hay nadie matriculado en este curso
</td>
</tr>
<%else%>
<%do while not rs3.eof%>
<tr>
<td colspan="14" height="1" bgcolor="#FFFFFF"></td>
</tr>
<tr bgcolor="#EFEFEF">
<td></td>
<td class="texto" ><%=rs3("c_1apellido")%> <%=rs3("c_2apellido")%></td>
<td></td>
<td class="texto"><%=rs3("c_nombre")%></td>
<td></td>
<td class="texto"><%=rs3("c_fechaacceso")%></td>
<td></td>
<td>
</td>
<td ><a href="prof_curso_modulos_alumnos.asp?idcurso=<%=idcurso%>&idusuario=<%=rs3("c_idusuario")%>"><img src="img/modulo.gif" border="0"/></a></td>
<td ></td>
<td ></td>
<td></td>
<td><img src="img/eval-difu.gif" border="0" /></td>
<td >
<%set rs2=Ob_conn1.Execute("select * from T_mensajes where c_idusuario='"& rs3("c_idusuario") &"' and c_idcurso='"& idcurso &"' and c_para='"& usuario &"'")
<%if rs2("c_leido")="0" then
noleido="0" %>
<%else
noleido=noleido+1%>
<%end if%>
<a href="mensajes_todosalumnos.asp?idcurso=<%=idcurso%>&idusuario=<%=rs3("c_idusuario")%>" class="mensaje"><b>(<%=noleido%>)</b></a><br /><br /><%=rs3("c_idusuario")%>
</td>
</tr>
<%rs3.movenext
loop%>
<%end if%>
<tr>
<td colspan="7" height="1" bgcolor="#FFFFFF"></td>
</tr>
</table>
</td>
<td width="10"></td>
<td valign="top" class="texto3" bgcolor="#EFEFEF" height="100%"><br><br>
</td>
</tr>
</table>
</td>
<td width="1%" valign="top" align="right">
</td>
</tr>
</table>
