Fichero

Hola, necesitaria generar un .log con lo que el usuario
hace en una intranet que estoy preparando, he creado un
procedimiento (Que adjunto) para que se le pase un texto,
y se guarde en un fichero con la fecha de Hoy, pero me da
problemas con la ruta del Fichero.. he probado no se
cuantas cosas.. AYUDA! Please

Sub CrearLog(Texto)
Const ForReading=1, ForWriting=2, ForAppending=8
Const TristateUseDefault=-2,TristateTrue=-1,
TristateFalse= 0
Dim FICHERO'

FICHERO = APPL_PHYSICAL_PATH & "Amco.log"
Set FS = Server.CreateObject
("Scripting.FileSystemObject")
Set Fichero = FS.GetFile(FICHERO)
Set TS = Fichero.OpenAsTextStream(ForAppending,
TristateUseDefault)
TS.WriteLines(Now & " - " & Texto)
TS.Close
Set TS = Nothing
Set Fichero = Nothing
Set FS = Nothing
End Sub

Salu2 & Thanks