<%
'Añadir lineas a un fichero
set FSO = Server.CreateObject("Scripting.FileSystemObject")
set oFich = FSO.OpenTextFile(Server.MapPath("prueba.txt"), 8)
'8=ForAppending Abre un archivo y escribe al final del mismo.
oFich.WriteLine ("Esta es la nueva línea que hemos añadido.")
oFich.Close
set oFich = nothing
%>
Toma, leete esto, mas cosillas sobre el FSO, cosecha propia.
http://faqsdelweb.com/index.php?num=3&f_id=2&s_id=30