Ayuda a un novato!!

[-H-] · #1 (**permalink**) 16/06/2003, 17:21

Hola.
Estoy aprendiendo ASP x mi cuenta(ya q en la uni no me enseñan), y tengo un problemilla gestionando un fotmulario muy sencillo. El codigo del fichero .asp es el siguiente (solo pongo la parte en la que uso codigo ASP):

<%
Const ForAppending = 8
Const TristateUseDefault=-2
Set FSO=Server.CreateObject("Scripting.FileSystemObjec t")
Set H=FSO.GetFile("sugerencias.txt")
set FSO=H.OpenAsTextStream(ForAppending, TristateUseDefault)
nombre=Request.Form("nombre")()
comentario=Request.Form("comentario")()
fichero.Write(nombre & vbCrLf)
fichero.Write(comentario & vbCrLf)
fichero.Close
set fichero.Nothing
%>

Lo único que quiero hacer es recoger los datos de un formulario de dos campos, y guardarlos en un fichero de texto. Pero al ejecutar la página en el servidor me dice el siguiente error:
Microsoft JScript compilation error '800a03ec'

Expected ';'

/lapaginadeh/sugerencia.asp, line 9

Const ForAppending = 8
------^

La cuestion, es que si quito los dos Const, el error se me pasa al Server.CreateObject.
Pq dice que me falta ";"?? Qué hago mal??

Muchas gracias
PD:el codigo ASP que expongo, lo tengo puesto justo debajo de la etiqueta <body>, luego viene la parte html.

maestro · #2 (**permalink**) 16/06/2003, 17:43

http://faqsdelweb.com/index.php?num=3&f_id=2&s_id=30

[-H-] · #3 (**permalink**) 17/06/2003, 06:15

Gracias x el link, pero me sigue pasando lo mismo, al llamar al metodo CreateObject del objeto servidor, me dice que falta un ";" en esa linea (cosa rara, pq en asp si no me equivoco no hace falta ; al final de las sentencias...)
Lo que quiero saber es si alguien sabe lo que significa ese error.

buliwyf · #4 (**permalink**) 17/06/2003, 10:46

te voy a decir: esta raro tu codigo....
prueba asi:

<%
Set fs = CreateObject("Scripting.FileSystemObject")
archivo="sugerencias.txt"
set escribir=fs.OpenTextFile(archivo, 8, True)
escribir.write(Request.Form("nombre")&vbcrlf)
escribir.write(Request.Form("comentario")&vbcrlf)
escribir.close
set escribir=nothing
set fs=nothing
%>

y me cuentas...

saludos

AlZuwaga · #5 (**permalink**) 17/06/2003, 11:38

me suena a que estás codificando en JScript... tenés una línea que digha algo así como...

<% @Language = "JScript" %>

...???

es que... eso de los ";"

[-H-] · #6 (**permalink**) 18/06/2003, 05:55

Nada, poniendo el codigo q me habeis dicho, me sigue dando el error en el Server.CreateObject de que faltan ";" es algo que hago mal, pero no se que, os pongo el codigo de la pagina entero(editada con dreamWeaverMX):

<%@LANGUAGE="JScript" CODEPAGE="1252"%>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
archivo="sugerencias.txt"
set escribir=fs.OpenTextFile(archivo, 8, True)
escribir.write(Request.Form("nombre")&vbcrlf)
escribir.write(Request.Form("comentario")&vbcrlf)
escribir.close
set escribir=nothing
set fs=nothing
%>
<html>
<head>
<title>sugerencia.asp</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>

 
 
 
 
 
 Sugerencia guardada correctamente.
Tranquilo, que la tendré en cuenta.
 
Nombre:<%=nombre%>
Sugerencia:<%=comentario%>
 
 
</body>
</html>

Muchas gracias x intentar ayudarme.

Perdon, hay una errata,, al mostrar en pantalla los valores del formulario, falta el Request.Form("nombre" y Request.Form("comentario"), de todos modos, eso no influye para el error que me sigue dando... :-p :-p :-p

[-H-] · #7 (**permalink**) 19/06/2003, 06:17

Nadie sabe q puede pasar?