FSO를 이용해 로그 파일 생성

LMS를 개발중인대 외부 업체에서 보내온 플래시파일들 중간 중간에 코드를 도저희 찍어서
알아낼 방법이 없어서 고민하다가 어치파 안보일꺼면 FSO로 찍어 보자는 생각에
인터넷을 뒤져서 지금 다음 방법으로 디버깅을 하고 있습니다.

에휴...

 '# 윤인환 2011-05-02

Sub DebugLog(msg)

if "test1" = session("memId") then 

  ' Const ForReading = 1, ForWriting = 2, ForAppending = 8

   ForReading = 1

   ForWriting = 2

   ForAppending = 8

   Dim fso, f,path2logfile

   

   yyyy = Year(now)

  

  tmp_mm = Month(now)

  if tmp_mm < 10 then

                mm = "0" & tmp_mm

               else

                mm = tmp_mm

               end if

  

  tmp_dd  = Day(now)

  if tmp_dd < 10 then

                 dd = "0" & tmp_dd

               else

                 dd = tmp_dd

               end if

   path2logfile = Server.MapPath("./log/MSLog" & yyyy & mm & dd & ".txt")

   Set fso = CreateObject("Scripting.FileSystemObject")

   Set f = fso.OpenTextFile(path2logfile, ForAppending, True)

   f.WriteLine Request.ServerVariables("SERVER_NAME") & "  : " & now & " : " & Request.ServerVariables("SCRIPT_NAME") & " : [" & msg & "]" 

   f.Close

   set fso = nothing

end if

 End Sub 

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

'# Duraboys DebugLog

DebugLog(strSQL)

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