Error de compilación de Microsoft VBScript error '800a0400'
 

Buenos días, estoy haciendo un buscador y me sale que tengo:

Error de compilación de Microsoft VBScript error '800a0400'
en la línea 159, esta línea la marco en rojo

Perdón por enviar el código completo, pero es que pienso que así se puede ver mejor donde pudiera estar el error. Gracias de antemano por la ayuda:-)

<% dim strSql
dim mAdo
dim mPdf

set mAdo=CreateObject("ADODB.Recordset")
set mPdf=CreateObject("ADODB.Recordset")

dim palabra
palabra=request.form("palabra")
if request.Form("palabra")="" then
Response.write("Por favor introduzca la categoría a buscar")
else

strSql="select id, fecha, titulo, descripcion from t_cursos where uCase(descripcion) like '%"&uCase(Request("palabra"))&"%'"
mAdo.Open strSql, mConnAcc, 1, 2

If mAdo.BOF And mAdo.EOF Then
%><br />
<a href="cursos.asp" target="_self"><strong>Volver a la secci&oacute;n de Cursos </strong> </a><br /> <br />
Resultados obtenidos con&nbsp;<strong><%=Request.Form("Palabra") %></strong>&nbsp;<br /><br />
No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos<br />
<%
else
%>
<%
DO While Not mAdo.EOF
%>
<br />

<h3><%=mAdo("titulo")%></h3><br />

<%=replace (mAdo("descripcion"),chr(10),"<br>")%><br /><br />
<%'=mAdo("Id") Referencia del documento%>
Fecha:<%=mAdo("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

while not mpdf.EOF
%>
<a href="../documentos/cursos/<%=mPdf("filename")%>" target="_blank" title="<%=mPdf("description1")%>"><%=mPdf("descrip tion1")%></a>, &nbsp;Tama&ntilde;o del archivo:<%=mPdf("filesize")%>&nbsp;KB<br>


<%
mPDF.MoveNext
wend
mpdf.Close
end if
set mpdf=nothing
%>
<br /><br /> <hr noshade="noshade" size="1" />
<%
mAdo.MoveNext
wend
mAdo.Close
end if
set mAdo = nothing

%>

Re: Error de compilación de Microsoft VBScript error '800a0400'
 

:adios:

intenta nuevamente cameron
:pensando:

Re: Error de compilación de Microsoft VBScript error '800a0400'
 

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>, &nbsp;Tama&ntilde;o del archivo:<%=mPdf.Fields("filesize")%>&nbsp;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
%>