ReadAll endast 8 rader

Kör med denna för att ladda ner en fil men den läser bara in 8st rader av filen fast den är ca 150 rader. Inga felmeddelanden eller något. Vad felar?

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objStream=objFSO.OpenTextFile(Server.MapPath(Request.QueryString("file")), 1) 

Response.AddHeader "content-disposition","attachment; filename="& Request.QueryString("file") &"" 

Response.Write objStream.ReadAll

objStream.Close
Set objStream=Nothing
Set objFSO = Nothing
%>