porque no anda ??? contesten por favor

[aldo1982]

hola miren, mi objetivo es ke lo ke el usuario ponga en un formulario seguarde tabulado en un archivo*.txt bueno el problema es el siguiente anda todo pero cuando se guardan los datos en el archivo, se guarda una sola linea, si mepodrian solucionar el problema para ke se guarden muchas lines selos agradesco, aca les pongo el codigo

fnombre = Request.form("nombre")
femail = Request.form("email")
ftelefono = Request.form("telefono")
fcomentario = Request.form("comentario")

Dim objTextStream, objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
DirToFile = Server.MapPath("archivo.txt")
Set objTextStream = objFSO.OpenTextFile (DirToFile, 2, True)
objTextStream.WriteLine fnombre&","&femail&","&ftelefono&","&fcomentario
objTextStream.Close
Set objTextStream = Nothing
Set objFSO = Nothing

[u_goldman]

Puedes explicar un poco mejor cual es el problema?
Hasta donde veo guardas en una sola linea separada por comas tus variables...quieres que cada una aparezca en una linea distinta?

variable & vbCrLf & otravariable & vbCrLf

[aldo1982]

claro, lo ke kiero es ke cada ves ke se llene un formulario, se vayan agregando mas lineas, por ejemplo, con las variables: nom,tel,dni
kiero ke cada ves ke un usuario llene el formulario kede el txt de la siguiente forma:
aldo,4603042,29401856 ---------> este seria un registro
federico,46394545,29348222 --------> este seria otro registro
.
.
.
infinitos registros cada ves ke se llenbe el formulario

entendes ahora mas o menos lo ke necesito ??
bue si me podes ayudar te lo agradesco
---------------------------salu2

[Myakire]

Es fácil, sería algo así:

Código:

<%
    Const openForReading = 1
    Const openForWriting = 2
    Const openForAppending = 8
    Dim objFSO, objFile 
    Dim objTextStream, strFileName

    strFileName = Server.Mappath("miarchivo.txt")
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(strFileName)
    Set objTextStream = objFile.OpenAsTextStream(openForAppending)

    objTextStream.WriteLine campo1&","&campo2&","&campo3
    objTextStream.Close
    Set objTextStream = Nothing
    Set objFile = Nothing
    Set objFSO = Nothing
%>

Saludos