ayudenme con este libro de visitas.

[epa2]

Hola,
:( tengo un pequeño código de un libro de visitas. se compone de la página librovisitas.asp y el archivo de texto visitas.txt donde se guardan los resultados. Estos dos archivos los tengo en el mismo directorio raiz pero al intentar escribir una visita me sale el siguiente error...

'Continuo abajo

[epa2]

El error que me da es el siguiente

Error de Microsoft VBScript en tiempo de ejecución error '800a0046'

Permiso denegado

/librovisitas.asp, line 75

<% @LANGUAGE="VBSCRIPT"%>
<%
'Libro de visitas
'Carlos de la Orden Dijs
'[email protected]
'El libro se guarda en el archivo VISITAS.TXT en el mismo directorio en el que se encuentra
'esta página. Para cambiar el nombre de archivo, modificar la variable CONST_LIBRO.


' archivo es el manejador del fichero, y f será el objeto que utilicemos para leer el contenido.
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido

CONST_LIBRO="visitas.txt"

' Creamos el objeto FileSystemObject
set oFSO=Server.CreateObject("Scripting.FileSyste mObject")

accion=Trim (CStr(Request.QueryString("a")))

select case accion
case "guardar"
Guardar
MostrarLibro
MostrarFormulario
case else
MostrarLibro
MostrarFormulario
end select

set oFSO=nothing

'================================================= ==========================================
' PROCEDIMIENTOS
'================================================= ==========================================

Sub MostrarLibro
'Abre el fichero y muestra el contenido en la página

'Obtiene un puntero al archivo del libro de visitas
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )

'Abro el archivo como un flujo de texto
set f=archivo.OpenAsTextStream

'Leemos el archivo entero
contenido=f.ReadAll

f.Close
set f=nothing
set archivo=nothing

'y lo imprimimos
Response.Write(contenido)

End Sub 'MostrarLibro

[epa2]

'CONTINUO AQUI JE JE :P

'================================================= ==========================================

Sub Guardar
'Guarda un nuevo comentario en el libro
Dim nombre, mail, mensaje, fecha, archivo, f

fecha=Day(Now())&"/"&Month(Now())&"/"&Year(Now())

'Con Trim eliminamos los espacios en blanco a la derecha y a la izquierda
nombre=Trim(CStr(Request.Form("nombre")) )
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))


' No queremos comentarios anónimos o vacíos
if nombre <> "" and mensaje <>"" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
'Abro el archivo como un flujo de texto; 8: ForAppending, añadimos al final
set f=archivo.OpenAsTextStream(8)
f.WriteLine("<hr noshade>")
f.WriteLine("<b>"&nombre&& quot; ("&mail&")</b> escribió el "&fecha&":<br>")
f.WriteLine(mensaje)

'Cierro el fichero
f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha añadido con éxito tu comentario</small>")
end if

End Sub 'Guardar

'================================================= ==========================================

Sub MostrarFormulario
' Presenta el formulario para añadir un comentario al libro
%>
<br><br><br><hr size=2>
<TABLE BORDER="1" ALIGN="center">
<FORM NAME="Libro" METHOD="post" ACTION="librovisitas.asp?a=guardar">
<TR>
<TD>Tu nombre:</TD>
<TD><INPUT TYPE="text" SIZE="30" NAME="nombre"></TD>
<TR>
<TD>Email (opcional):</TD>
<TD><INPUT TYPE="text" SIZE="20" NAME="mail"></TD>
<TR>
<TD>Mensaje:</TD>
<TD><TEXTAREA ROWS="5" COLS="30" WRAP="virtual" NAME="mensaje"></TEXTAREA></TD>
<TR>
<TD COLSPAN="2">
<center><INPUT TYPE="submit" VALUE="Escribir"><INPUT TYPE="reset" VALUE="Limpiar">
</TD>
</TABLE>
</FORM>
<%
End Sub 'MostrarFormulario


' Libro de visitas por Carlos de la Orden Dijs Octubre 2000
' Usalo para lo que quieras! ;)

%>


AYUDENME

[epa2]

SOS

[urjose]

1.- Con tanto código da flojera leer tu mensaje
2.- Si te sale permiso denegado es por que la carpeta o el archivo que intentas escribir no tiene permisos de escritura.

3.- No tenias que pegar todo el código.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[epa2]

bueno, te habrás jartao de leer. ;)

voy a ver lo de los permisos y luego te digo.

permanece a la escucha, je je