04/02/2002, 05:32
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 69
Antigüedad: 23 años, 4 meses Puntos: 0 | |
| Re: Caja de TExto
No lo he podido probar porque el server esta mas colgao que ...
Bueno luego me cuentas que tal te ha ido.
Saludos.
<form name="dato">
<%
ruta_del_fichero = Server.MapPath("hola.txt")
Set objeto_fichero = CreateObject("Scripting.FileSystemObject" ;)
Set mi_fichero = objeto_fichero.OpenTextFile(ruta_del_fichero, 1)
do while mi_fichero.AtEndOfStream <> True
linea = linea & mi_fichero.ReadLine
loop
mi_fichero.close()
%>
<font color="red">
<textarea NAME=Comentarios ROWS=6 COLS=60><% =linea %>
</textarea>
</font>
</form> |