OpenTextFile - Log skrivning med nyeste øverst

Jeg har en funktion der logger bestillinger i en .htm fil. Det fungerer fint nok, men nyeste skal jeg gerne have til at komme øverst. Hvordan mon man gør det lettest?

Forenklet set har jeg noget med:

Const ForAppending = 8
Const Create = True

MyFile = Server.MapPath(host & "_order_log.htm")

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.OpenTextFile(MyFile, ForAppending, Create)

TSO.write Teksten og datoen kommer her " & Now()

TSO.close
Set TSO = Nothing
Set FSO = Nothing