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