kan ikke få dette til at virke

<P><%
Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("\Tutorials\"+request.querystring+".txt")
Set f = fso.OpenTextFile(filespec,1)

Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop

f.Close
%>
</P>