FSO Læsning af txt-file

Bruger følgende til at displaye en text-fil(Den læser fra top til bund). Jeg vil gerne displaye filen så sidste linie i txt-filen kommer ud som første linie i det displayede.




<% Option Explicit
Const Filename = "Unlock_log.txt"    ' file to read
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim FSO
set FSO = server.createObject("Scripting.FileSystemObject")

Dim Filepath
Filepath = Server.MapPath(Filename)

if FSO.FileExists(Filepath) Then

    Dim file   
    set file = FSO.GetFile(Filepath)

    Response.Write "<pre>"

    Dim TextStream
    Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)

    Do While Not TextStream.AtEndOfStream
        Dim Line
        Line = TextStream.readline
       
        If Left(Line,2) = "JS" Then
        Response.write "<font color=red>" & Line & "</font></i></h3>"
        Else
        Response.write "<font color=green>" & Line & "</font></i></h3>"
        End If
       
        Loop


    Response.Write "</pre>"

    Set TextStream = nothing
   
Else

End If

Set FSO = nothing
%>