Gracias por responder y ayudarme a encontrar la solución del problema, al agregar el end if en la línea que me sugeriste no acabo con el problema, así que hice algunos cambios que si solucionaron el problema, pero todo gracias a tu sugerencia. Gracias nuevamente por tu ayuda
.Te comento los cambios que hice:
Te muestro el código a partir de la línea que hubo cambios, y estos, se muestran en
rojo:
<%
DO While Not mAdo.EOF
%>
<br />
<h3><%=mAdo.
Fields("titulo")%></h3><br />
<%=replace (mAdo
.Fields("descripcion"),chr(10),"<br>")%><br /><br />
<%'=mAdo("Id") Referencia del documento%>
Fecha:<%=mAdo.
Fields("fecha")%><br />
<%
'Anexos
strSql="select filename, description1, filesize from anexo_curso where id_curso="& mAdo("Id")
set mPdf=mConnAcc.Execute(strSql)
if not mPdf.EOF then
DO while not mpdf.EOF
%>
<a href="documentos/cursos/<%=mPdf.
Fields("filename")%>" target="_blank" title="<%=mPdf.Fields("description1")%>"><%=mPdf.
Fields("description1")%></a>, Tamaño del archivo:<%=mPdf.
Fields("filesize")%> KB<br>
<%
mPDF.MoveNext
loop '<------ cambié el wend por loop
end if '<---- Faltaba este Fin de IF (este fue el fin de IF que sugeriste)
mpdf.Close
set mpdf=nothing%>
<br /><br /> <hr noshade="noshade" size="1" /><%
mAdo.MoveNext
loop '<------ cambie el wend por loop
mAdo.Close
end if
set mAdo = nothing
end if
%>