segunda parte del codigo :
<%DO WHILE not RS2.eof%>
<tr>
<td><span style="font-size: 10px"><%=RS2("curso")%></span></td>
<td><span style="font-size: 10px"><%=RS2("fecha")%></span></td>
<td><span style="font-size: 10px"><%=RS2("profesor")%></span></td>
<td><span style="font-size: 10px"><%=RS2("observaciones")%></span></td>
<td><span style="font-size: 10px"><% if lcase(session("tipo")) = "admin" then%>
<%="<a href=/SIGISI/expedientes/seg_edit.asp?id=" & RS2("id") & " target=contents>(Editar)</a> <a href=/SIGISI/expedientes/seg_del.asp?id=" & RS2("id") & " target=contents>(Borrar)</a>" %>
<%else%>
<%="" %>
<% end if %></span></td>
</tr>
<%RS2.MOVENEXT
LOOP%>
<tr><td colspan="5"><br /><div align="right"><span style="font-size: 10px"><%="<a href=/SIGISI/expedientes/seg_add.asp?ficha=" & request.querystring("ID") & ">Agregar Curso</a>" %></span></div></td></tr>
</table>
<br />
<% set RS2=Server.CreateObject("ADODB.Recordset")
RS2.Open "SELECT id, curso, fecha, profesor, observaciones from exp_categoria WHERE ficha=" & request.querystring("ID") & " ORDER BY id ASC",conn,3,3
%>
<table width="95%" border="1" cellspacing="2" cellpadding="2">
<tr><td colspan="5"><div align="center" style="font-size: 14px"><strong><em>Cursos requeridos por categoría</em></strong></div></td>
</tr>
<tr>
<td><span style="font-size: 12px"><strong>Nombre</strong></span></td>
<td><span style="font-size: 12px"><strong>Fecha de Capacitación </strong></span></td>
<td><span style="font-size: 12px"><strong>Quién impartió </strong></span></td>
<td><span style="font-size: 12px"><strong>Observaciones</strong></span></td>
<td><span style="font-size: 12px">
<% if lcase(session("tipo")) = "admin" then%>
<%="<strong>Edición</strong>"%>
<%end if %>
</span></td>
</tr>
<%DO WHILE not RS2.eof%>
<tr>
<td><span style="font-size: 10px"><%=RS2("curso")%></span></td>
<td><span style="font-size: 10px"><%=RS2("fecha")%></span></td>
<td><span style="font-size: 10px"><%=RS2("profesor")%></span></td>
<td><span style="font-size: 10px"><%=RS2("observaciones")%></span></td>
<td><% if lcase(session("tipo")) = "admin" then%>
<%="<a href=/SIGISI/expedientes/cat_edit.asp?id=" & RS2("id") & ">(Editar)</a> <a href=/SIGISI/expedientes/cat_del.asp?id=" & RS2("id") & ">(Borrar)</a>" %>
<%else%>
<%="" %>
<% end if %> </td>
</tr>
<%RS2.MOVENEXT
LOOP%>
<tr><td colspan="5"><br /><div align="right"><%="<a href=/SIGISI/expedientes/cat_add.asp?ficha=" & request.querystring("ID") & ">Agregar Curso</a>" %></div></td></tr>
<tr>
</table>
<br>
<table border="1" cellpadding="2" cellspacing="2" width="95%">
<tr><td colspan="4"><div align="center" style="font-size: 14px"><strong><em>Cursos SEC AudioVisuales</em></strong></div></td>
<tr>
<td>Ficha</td>
<td>Calificación</td>
<td>Nombre del Curso</td>
<td>Fecha</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
<tr>
<td><%=(Recordset1.Fields.Item("Ficha").Value)%> </td>
<td><%=(Recordset1.Fields.Item("Qualify").Value)%> </td>
<td><%=(Recordset1.Fields.Item("Difusion_Name").Va lue)%></td>
<td><%=(Recordset1.Fields.Item("Fecha").Value)%> </td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
<%else%>
No se encontró esa ficha<br>
</td>
</tr>
</tbody>
</table>
<%end if%>
</p>
<form action="/SIGISI/expedientes/index.asp" method="get" name="FormaFicha" target="contents">
Buscar otra ficha :<br />
<input type="text" name="ID" size="12"><input type="submit" value="Buscar">
</form>
<%end if%>
<%set RS2=Nothing
set RS4=Nothing
set RS3=Nothing
set RS=Nothing
%>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%end if%>