16/03/2005, 15:51
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 4 meses Puntos: 98 | |
| Y asi?
strPrueba = ""
For each item in request.form
strPrueba = strPrueba & request.form(item) & vbCrLf
Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("D:\Work\WebIdea\Work Sites\User Sites F08\miestudio\Local Publish\prueba.txt", ForWriting, True)
f.Write strPrueba
f.close
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |