• Viernes 8 de Noviembre de 2024, 17:46

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - seresac

Páginas: [1]
1
ASP / Actualizar txt desde form ASP
« en: Martes 21 de Octubre de 2008, 16:54 »
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. Mas que nada porque ese txt alimenta el contenido de un flash

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.Form("text")
set fs = createobject("scripting.filesystemobject")

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

wfile.close
set wfile=nothing
set fs=nothing

response.write("txt actualizado")
%>

<h1><div align="center">txt Actualizado</div></h1>

<div align="center"><a href="leer.asp">Visualizar el contenido del txt</a></div>

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
%>

El error
el error que me da es el siguiente

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

Y la línea 9 es esta --> set wfile = fs.opentextfile("/asp/writefile.txt", ForWriting)

alguien me puede ayudar?  :(  :(

Saludos

Páginas: [1]