Vise indhold af asp-fil som tekst-fil

Jeg er lige begyndt med grundlæggende ASP i skolen, og sidder og roder med et script hvor jeg skal have vist koderne fra en asp-fil i en tekst-fil. Jeg har indtil videre fået det lavet sådan at jeg får vist alt koden, men det kommer ud i en smøre. Jeg vil gerne have sat linjeskift ind, så outputtet bliver mere overskueligt. Jeg skal vel på en eller anden have fortalt at den skal tage hensyn til linjeskift.

Min kode ser lige nu sådan ud:

<%
const filnavn= "viskode.txt"
write_file
read_file
'delete_file

sub delete_file
    dim fs
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    if fs.FileExists("d:\webdoc\viskode.txt") then
        fs.DeleteFile("d:\webdoc\viskode.txt")
    end if
    set fs=nothing
end sub

sub write_file()
    Dim fso, txtfile,fil
    fil= "d:\webdoc\viskode.txt"
    response.write "opretter en fil " & filnavn & "<br>"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set txtfile = fso.CreateTextFile( fil, True)
    txtfile.Write ("Dette er en test. ")
    txtfile.write "<br>" & "<br>" & ("Filnavn: ") & filnavn & vbnewline
    txtfile.Close
end sub

Sub Read_File()
    dim fs,f
    'dim text As String
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f=fs.OpenTextFile(Server.MapPath("konv.asp"), 1)
    response.write "læser fra filen " & Request.ServerVariables("APPL_PHYSICAL_PATH") & filnavn & "<br>"
    response.write "<h2>indholdet af filen </h2>" & s & "<hr />"
    text=f.ReadAll
    text= Replace(text,"<","&lt;")
    text= Replace(text,">","&gt;")
    response.write text
End Sub
%>

Min lærer snakkede noget om ASCII, er det noget man skal ind og bruge?

Håber der er nogen der kan hjælpe :-)