ASP - Analista de Sistemas

como almaceno los datos recogidos de un formulario en un archivo texto?

Realmente no se muy bien como usarlo pero esto es lo que he hayado espero que te sirva

<%Option Explicit
' Set up Constants
Const ForWriting = 2 ' Input OutPut mode
Const Create = True

' Dimension local variables
Dim MyFile
Dim FSO ' FileSystemObject
Dim TSO ' TextStreamObject

' always use MapPath function to get the Physical Path of file
MyFile = Server.MapPath("textfile.txt")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)
TSO.write "This is first line in this text File" & vbcrlf
' Vbcrlf is next line character
TSO.write "This is Second line in this text file" & vbcrlf
' Now Function will write local time
TSO.write "Writen by devasp visitor at " & Now()
TSO.WriteLine ""

Response.Write " Three lines are writen to textfile.txt <br>"
Response.Write " Local time at server is " & Now()

' close TextStreamObject and
' destroy local variables to relase memory
TSO.close
Set TSO = Nothing
Set FSO = Nothing
%>

'Aqui se abre o se crea sino existe el file prueba.txt en el directorio "c:/mywork/programacion"
'luego a este file se le agregan distintos tipos de datos para que veas como se
'agrega cada tipo
Open "C:/mywork/programacion/PRUEBA.txt" For Output As #1 ' Abre el archivo para operaciones de salida.
Print #1, "Esto es una prueba" ' Escribe texto en el archivo.
Print #1, ' Imprime una línea en blanco en el archivo.
Print #1, "Zona 1"; Tab; "Zona 2" ' Escribe en dos zonas de impresión.
Print #1, "Hola"; " "; "mundo" ' Separa las cadenas ' de caracteres con un espacio.
Print #1, Spc(5); "5 espacios iniciales" 'Escribe 5 espacios iniciales.
Print #1, Tab(10); "Hola" ' Escribe una palabra en la columna 10.

' Se establecen valores de Boolean, Date, Null y Error.
Dim MiBool, MiFecha, MiNull, MiError
MiBool = False: MiFecha = #2/12/1969#: MiNull = Null
MiError = CVErr(32767)
' True, False, Null y Error se traducen de acuerdo a la configuración regional del
' sistema. Los literales de fecha se escriben en el
'formato de fecha corta estándar.
Print #1, MiBool; " es un valor Boolean"
Print #1, MiFecha; " es una fecha"
Print #1, MiNull; " es un valor nulo"
Print #1, MiError; " es un valor de error"
Close #1 ' Cierra el archivo.

Espero lo entiendas, es facil, saludos Isnel

'Aqui se abre o se crea sino existe el file prueba.txt en el directorio "c:/mywork/programacion"
'luego a este file se le agregan distintos tipos de datos para que veas como se
'agrega cada tipo
Open "C:/mywork/programacion/PRUEBA.txt" For Output As #1 ' Abre el archivo para operaciones de salida.
Print #1, "Esto es una prueba" ' Escribe texto en el archivo.
Print #1, ' Imprime una línea en blanco en el archivo.
Print #1, "Zona 1"; Tab; "Zona 2" ' Escribe en dos zonas de impresión.
Print #1, "Hola"; " "; "mundo" ' Separa las cadenas ' de caracteres con un espacio.
Print #1, Spc(5); "5 espacios iniciales" 'Escribe 5 espacios iniciales.
Print #1, Tab(10); "Hola" ' Escribe una palabra en la columna 10.

' Se establecen valores de Boolean, Date, Null y Error.
Dim MiBool, MiFecha, MiNull, MiError
MiBool = False: MiFecha = #2/12/1969#: MiNull = Null
MiError = CVErr(32767)
' True, False, Null y Error se traducen de acuerdo a la configuración regional del
' sistema. Los literales de fecha se escriben en el
'formato de fecha corta estándar.
Print #1, MiBool; " es un valor Boolean"
Print #1, MiFecha; " es una fecha"
Print #1, MiNull; " es un valor nulo"
Print #1, MiError; " es un valor de error"
Close #1 ' Cierra el archivo.

Para agregar los datos de un formulario seria asi:
Open "C:/mywork/programacion/PRUEBA.txt" For Output As #1
dim aux as string
aux=request.form("midato")
Print #1, aux
close #1