John's Tech Tips

Code: Select all

sub logText(lText)
dim logFile,objFSO

 Set objFSO=CreateObject("Scripting.FileSystemObject") 
 Set logFile = objFSO.OpenTextFile(server.mappath("auth_log.txt"),8,True)
'8 Append, True Create if not present
 logFile.writeline(now & " " & lText)
 logfile.close
end sub