download tekst fil

Hej gutter

jeg har en kode til at downloade en tekst fil og det virker også

mit problem er at når filen er downloadet så står lingerne i en

lang række i første linge

her min kode:

<%
Response.Buffer = True
Response.Clear
strFileName = Server.MapPath( "/tips13_forslag/" & Request.QueryString( "file" ) )
Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
Set Bin = Sys.OpenTextFile( strFileName, 1, False )
If Sys.FileExists( strFileName ) Then
Call Response.AddHeader( "Content-Disposition", "attachment; filename=" & strFileName )
Call Response.AddHeader("Content-Type", "application/txt; charset=iso-8859-1")
While Not Bin.AtEndOfStream
Response.BinaryWrite(Bin.Read(1) )
Wend
Else
Response.Redirect( "filenotfound.html" )
End If
Bin.Close : Set Bin = Nothing
Set Sys = Nothing
%>

<a href="downloadtxt3.asp?file=tips13_forslag3.txt">Download</a>

håber i kan hjælpe mig

Mvh.Jens