'************************************** ' for :Asp log 1.0 (if necessary) '************************************** free '************************************** ' Name: Asp log 1.0 (if necessary) ' Description:with this code can be writ ' ten log file from asp page ' By: Dimo Mitchev (from psc cd) ' ' ' Inputs:string to be writen ' ' Returns:None ' 'Assumes:can be adobted for many files, ' some formating... '(may be in next versions) ' 'Side Effects:None '************************************** sub writelog(lstr1) dim fs,fname set fs=Server.CreateObject("Scripting.FileSystemObject") If not (fs.FileExists("logasp.txt"))=true Then set fname=fs.CreateTextFile("logasp.txt",true) fname.WriteLine(lstr1) fname.Close else dim f set f=fs.OpenTextFile("logasp.txt",8,true) f.WriteLine(lstr1) f.Close set f=Nothing end if set fname=nothing set fs=nothing end sub