Gracias Adler por tu constante ayuda, he colocado ese código de mil y una maneras y me sigue diciendo que:
87|800a0401|Se_esperaba_un_final_de_instrucción
la línea 87 es la que está en rojo, gracias nuevamente
Set mPdf=Server.CreateObject("ADODB.RecordSet")
strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.cod_anexosala, c.txt_filename, " &_
strSql = strSql = "c.txt_descripcion, c.nro_filesize " &_
strSql = strSql = "from m_salas a, t_salasmensajes b, m_anexosalas c " &_
strSql = strSql = "where a.cod_sala = b.cod_sala " &_
strSql = strSql = "and b.cod_mensaje = c.cod_mensaje " &_
strSql = strSql = "and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&")";
set mPdf = conexion.execute(strSql)