ASP - Añadir lineas a un fichero de texto con FSO

Hola gente: quiero añadir contenido a un fichero de texto mediante FSO, el problema es que cada vez que lo intento me reescribe tiôdo el archivo en vez de añadir el contenido al final. Utilizo esto:

set fs=Server.CreateObject("Scripting.FileSystemObject")
Set tex = fs.OpenTextFile("elarchivo.txt",2,true)
tex.WriteLine("Linea Nueva")
tex.Save("elarchivo.txt")
tex.Close
set fs=nothing
set tex=nothing