Nuova linea su file di testo

[Sanjet]

Ho questo codice:

Dim objFSO, objTextFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(Server.MapPath("prova.txt"))

riga = "titolo=" & titolo & "&descrizione=" & descrizione & "&url=" & url & "&img=" & img

objTextFile.WriteLine riga

objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing

Il problema è che ogni volta che scrivo, i nuovi dati sovrascrivono i file precedenti. Io invece vorrei che aggiungesse una nuova linea, e magari utilizzasse una funzione contatore (potrei utilizzare una costante?).
Come faccio a scrivere in una nuova linea?

[Roby_72]

Set objTextFile = objFSO.OpenTextFile(Server.MapPath("prova.txt"), ForWriting, True)

Roby

[albis]

Dim objFSO, objTextFile

Set objFSO = CreateObject("Scripting.FileSystemObject")
set objTextFile = fs.OpenTextFile(Server.MapPath("prova.txt") , 8 , true)

riga = "titolo=" & titolo & "&descrizione=" & descrizione & "&url=" & url & "&img=" & img

objTextFile.Write riga
objTextFile.Close


objTextFile.Close
Set objTextFile = Nothing
Set objFSO = Nothing