Buat File Log di ASP

<%
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")

Dim CekIp
CekIP = Request.ServerVariables("REMOTE_ADDR")

If (fso.FileExists(Server.MapPath("LogHapus.log"))) Then
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Filenyo = Server.MapPath("LogHapus.log")

Set f = fso.OpenTextFile(Filenyo, ForAppending, True)
f.WriteLine
f.WriteLine
f.WriteLine("=================================================")
f.Write("Waktu Penghapusan : ")
f.WriteLine (FormatTanggal(now()) + " " + Bla + " Wib")
f.WriteLine("-------------------------------------------------")
f.Write("Penghapusan dari Ip address : ")
f.WriteLine(CekIP)
f.Write("Yang Melakukan Penghapusan : ")
f.WriteLine(Request.Cookies("Operator_Sales"))

f.WriteLine("=================================================")

f.Close

Else

Set MyFile = fso.CreateTextFile(Server.MapPath("LogHapus.log"))
MyFile.WriteLine
MyFile.WriteLine("-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-")
MyFile.WriteLine("Contoh buat Log")
MyFile.WriteLine("Copyright©2003, Armansyah")
MyFile.WriteLine("-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-")
MyFile.WriteLine
MyFile.WriteLine("~~~~~~~~~~~~~~~~~~~")
MyFile.Write("Waktu Penghapusan Awal : ")
MyFile.WriteLine (FormatTanggal(now()) + " " + Bla + " Wib")
MyFile.Write("Penghapusan dari Ip address : ")
MyFile.WriteLine(CekIP)
MyFile.Write("Yang Melakukan Penghapusan : ")
MyFile.WriteLine(Request.Cookies("Operator_Sales"))

MyFile.WriteLine("~~~~~~~~~~~~~~~~~~~")
MyFile.Close

End If

%>