Error en Libro de Visitas

tiopaz
12 de Noviembre del 2004
Hola amigos a continuacin les dejo el script y el error que me devuelve a la hora de enviar, espero me puedan ayudar pues no doy con el fallo.
ERROR: Error de Microsoft VBScript en tiempo de ejecucin error '800a0046'
Permiso denegado
La lnea de error es la siguiente
set f=archivo.OpenAsTextStream(8)
Gracias de antemano
AQUI LES DEJO EL CODIGO:
<% @LANGUAGE="VBSCRIPT"%>
<%
Dim CONST_LIBRO, oFSO, f, archivo, accion, contenido

CONST_LIBRO="visitas.txt"

set oFSO=Server.CreateObject("Scripting.FileSystemObject")

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

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

set oFSO=nothing

Sub MostrarLibro

set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )

set f=archivo.OpenAsTextStream

contenido=f.ReadAll

f.Close
set f=nothing
set archivo=nothing

Response.Write(contenido)

End Sub 'MostrarLibro


Sub Guardar
Dim nombre, mail, mensaje, fecha, archivo, f

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

nombre=Trim(CStr(Request.Form("nombre")))
mail=CStr(Request.Form("mail"))
mensaje=CStr(Request.Form("mensaje"))


if nombre <> "" and mensaje <>"" then
set archivo=oFSO.GetFile( Server.MapPath(CONST_LIBRO) )
set f=archivo.OpenAsTextStream(8)
f.WriteLine("<hr noshade>")
f.WriteLine("<b>"&nombre&" ("&mail&")</b> escribi el "&fecha&":<br>")
f.WriteLine(mensaje)

f.Close
set f=nothing
set archivo=nothing
Response.Write("<small>Se ha aadido con xito tu comentario</small>")
end if

End Sub 'Guardar


Sub MostrarFormulario
%>