Ver Mensaje Individual
  #5 (permalink)  
Antiguo 16/03/2005, 15:29
rlinaresp
 
Fecha de Ingreso: julio-2004
Mensajes: 64
Antigüedad: 20 años, 10 meses
Puntos: 0
Gracias nuevamente, perdona que te robe otro minuto pero estoy a punto de dar a luz a mi idea, tengo un problema junte eso con las instrcucciones para escribir un archivo texto con el resultado y adivina no me funciono, le puedes dar una mirada, gracias por adelantado.
<%

For each item in request.form
Response.write item & "= " & request.form(item) & "<br>"

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 "Hola mundo prueba 1"
For each item in request.form
Response.write item & "= " & request.form(item) & "<br>"
f.write request.form(item) & "<br>"
Next


f.Close

%>