ルール中にログを書きたい

書式は次の通りです。

 AF_WriteToLog ファイル名、, ログに書く内容

ファイル名はフルパスではなく、単にファイル名です。
関数を呼ぶと

function AF_WriteToLog(sFile, sText)
set fso = CreateObject("Scripting.FileSystemObject")
crtDate = Now
sPath = Request.ServerVariables ("APPL_PHYSICAL_PATH")
If (fso.FolderExists(sPath + "Log") = False) Then
fso.CreateFolder sPath + "Log"
End If
sFileName = sPath + "Log\" + sFile + "_" + CStr(Year(crtDate)) + "-" + CStr(Month(crtDate)) + "-" + CStr(Day(crtDate)) + ".log"
Set file = fso.OpenTextFile(sFileName, 8, True)
file.WriteLine sText
file.Close
set fso = nothing
end function

というコードが実行されます。
ただし、Log4xとは概念が違うので、毎回ファイルのオープンとクローズが発生します。