Sub Log_Report(strFile, strMsg)
' This sub add the lines to the file named above
Set FSO = CreateObject("Scripting.FileSystemObject"
If NOT FSO.FileExists(strFile) then
Set objRpt = FSO.OpenTextFile(strFile, ForWriting, TRUE)
Else
Set objRpt = FSO.OpenTextFile(strFile, ForAppending, TRUE)
End If
objRpt.write StrMsg
objRpt.writeblanklines(1)
objRpt.close
Set objRpt = Nothing
End Sub
and make a search for CreateObject("Scripting.FileSystemObject", you will probably get a lot of sites with explanations how this object works. You can also use DYNU object to work with the files from ASP pages.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.