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

[Shiryu_Libra]

intenta nuevamente cameron

Código HTML:

<% dim strSql
dim mAdo
dim mPdf

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

dim palabra
palabra=request.form("palabra")
if 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.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
            end if   '<---- Faltaba este Fin de IF
        mpdf.Close
    end if
    set mpdf=nothing%>
    <br /><br /> <hr noshade="noshade" size="1" /><%
    mAdo.MoveNext
wend
mAdo.Close
end if
set mAdo = nothing
%>