Set fs=Server.CreateObject ("Scripting.FileSystemObject")
Set ArchivoTexto= fs.OpenTextFile(Server.MapPath ("/Cilecat/Apartados/" & rsApartado("CodApartado") & ".txt"))
RenglonTexto =ArchivoTexto.Readall
Response.write RenglonTexto
probe asignando los permisos a todos y a IUSR pero sigue sin nfuncionar...

gracias