13/04/2005, 23:27
|
| | | Fecha de Ingreso: julio-2004
Mensajes: 64
Antigüedad: 20 años, 10 meses Puntos: 0 | |
| Estimados yo tuve el mismo requerimiento y me ha ido de maravilla con este codigo que comparto con Uds. pobre en XP y en un servidor MS publico y uno privado.
El request.form recoje todo tipo de campo en el formulario
<%
strPrueba = ""
For each item in request.form
if (mid(item,1,5)="Forms") then
response.write(" ")
else
strPrueba = strPrueba & item &"="& request.form(item) & vbCrLf
end if
Next
NomFile=dirFile&ausuario&".txt"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(NomFile, ForAppending, True)
f.Write strPrueba
f.close
%> |