Nada que ver con JScript pero les interesara
Publicado por Karlos Alberto S.D. (9 intervenciones) el 27/08/2002 09:26:32
Hola compañero, tengo este codigo escrito en VBScript y lo que hace, es que manejo un formulario en el cual yo hago que la información que ellos inscrustan se almacene en un "txt" que se encuentra en el servidor y lo hago asi para no manejar bases de datos.
Cabe mencionar que este mismo código lo probe local mente con la ruta C:\y nombre de la carpeta\prueba.txt y me funciona sin ningun problema pero ya cuando lo pongo direccionado al servidor es cuando me marca el problema.
El problema que tengo en si, es que me marca error en una línea, diciendome que "SE REQUIERE OBJETO SERVER".
el codigo es el siguiente:
<script language="VBScript">
<!--
sub envia_onClick
Dim fso, fichero
Const ForAppending = 8
set fso=server.CreateObject("Scripting.FileSystemObject")
set fichero=fso.OpenTextFile(Server.MapPath("prueba.txt",ForAppending,True))
fichero.WriteBlankLines(1)
fichero.WriteLine guestbook.nombre.value
fichero.WriteLine guestbook.mail.value
fichero.WriteLine guestbook.telefono.value
fichero.WriteLine guestbook.comentario.value
fichero.Close
set fso=nothing
set fichero=nothing
End sub
-->
</Script>
Ojala y me puedan ayudar, se lo agradeceria muchisisisisimo..¡Salu2!
Cabe mencionar que este mismo código lo probe local mente con la ruta C:\y nombre de la carpeta\prueba.txt y me funciona sin ningun problema pero ya cuando lo pongo direccionado al servidor es cuando me marca el problema.
El problema que tengo en si, es que me marca error en una línea, diciendome que "SE REQUIERE OBJETO SERVER".
el codigo es el siguiente:
<script language="VBScript">
<!--
sub envia_onClick
Dim fso, fichero
Const ForAppending = 8
set fso=server.CreateObject("Scripting.FileSystemObject")
set fichero=fso.OpenTextFile(Server.MapPath("prueba.txt",ForAppending,True))
fichero.WriteBlankLines(1)
fichero.WriteLine guestbook.nombre.value
fichero.WriteLine guestbook.mail.value
fichero.WriteLine guestbook.telefono.value
fichero.WriteLine guestbook.comentario.value
fichero.Close
set fso=nothing
set fichero=nothing
End sub
-->
</Script>
Ojala y me puedan ayudar, se lo agradeceria muchisisisisimo..¡Salu2!
Valora esta pregunta
0