<% if Request.QueryString("f").Count=1 then ficheiro=Request.QueryString("f") caminho=Server.MapPath(ComunUtilPath&"/"&session("homeDir")&"/trabalhos/"&ficheiro) Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(caminho) Set ts=f.OpenAsTextStream(1,0) Response.write(ts.ReadAll) '(iomode: 1-ForReading 2-ForWriting 8-ForAppending, format: 0-ASCII) end if %>