Actualizar txt desde form ASP

[juldavs]

Hola,
estoy intentado actualizar un archivo .txt desde un formulario pero de momento no lo consigo. Se trata de que el texto introducido en el form sobreescriba el contenido del txt.

pongo aqui el código por si alguien me quiere echar una mano

form-actualizar.html

<form method="post" action="actualizar.asp">

<label>actualizar datos<br />
<textarea name="text" cols="50" rows="10"></textarea>
</label>
<br />
<br />
<input type="submit" value="Enviar" />
</form>

actualizar.asp

<%
text = request("text")
set fs = createobject("scripting.filesystemobject")

set wfile = fs.opentextfile("/asp/writefile.txt", forappending)
wfile.writeline (text)

wfile.close
set wfile=nothing
set fs=nothing

response.write("txt actualizado")
%>

y para leer el contenido de ese txt uso el siguiente código (que si funciona)

leer.asp

<%
set fs = createobject("scripting.filesystemobject")
filename=server.mappath("/asp/writefile.txt")
set readfile=fs.opentextfile(filename,1,false)
do until readfile.atendofstream
text=readfile.readline
if text="" then
response.write "<p>"
else
response.write text
end if
loop
readfile.close
set readfile=nothing
%>

Saludos

[Adler]

Hola

Prueba así

Código asp:

set wfile = fs.opentextfile("/asp/writefile.txt", ForWriting)
wfile.writeline (text)
 

Suerte

[juldavs]

gracias por responder.

he probado lo que me comentas y no funciona, me sale el siguiente error

Error de Microsoft VBScript en tiempo de ejecución error '800a0005'
Argumento o llamada a procedimiento no válidos
/asp/actualizar.asp, línea 9

la linea 9 es:
set wfile = fs.opentextfile("/asp/writefile.txt", ForWriting)

[wamoretti]

No tienes definida la constante ForWriting

Código:

Const ForWriting = 1
set wfile = fs.opentextfile("/asp/writefile.txt", ForWriting)
wfile.writeline (text)

[juldavs]

hola wamoretti,

he probado lo que me comentas. Ahora el código del archivo que actualiza es el siguiente

<%
text = request("text")
set fs = createobject("scripting.filesystemobject")

Const ForWriting = 1
set wfile = fs.opentextfile("/asp/writefile.txt", ForWriting)
wfile.writeline (text)


wfile.close
set wfile=nothing
set fs=nothing

response.write("txt actualizado")
%>

Pero el error que me sale ahora es el siguiente

Error de Microsoft VBScript en tiempo de ejecución error '800a0036'
Modo de archivo incorrecto
/asp/actualizar.asp, línea 10

y la linea 10 es esta --> wfile.writeline (text)

[Adler]

Hola

La constante ForWriting no es 1 sino dos

Const ForWriting = 2

Mira esto para aclarartelo

Suerte

[seresac]

has pensado en hacerlo en flash directamente?