Bueno Eurojames, es igual de sencillo que lo anterior.
En vez de usar el método CreateTextFile y crear el archivo nuevo, utiliza la siguiente línea y ¡Problema solucionado! Cada línea que escribas se añadirá al contenido del archivo.
Set oArchivo = oSFile.OpenTextFile(Server.MapPath("Archivo.t xt"), 8, True)
Ve que estamos utilizando el 8 en el modo de abrir el archivo. Este equivale a ForAppending (Para añadir).
Espero que te solucione tu problema. Un saludo.
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red en castellano"></a>