🚀 go-pugleaf

Du kan skrive i en fil med nedenn�vnte program stump. Du skal have
rettigheder til at skrive i et bibliotek (directory) p� serveren. Hvis
du bor p� et webhotel, s� kan du ofte f� webhotellet til at tildele
skriveadgang til et enkelt bibliotek, hvor du s� kan dumpe dine
logfiler eller database....

/mik



' =============================================
' Skriv logfil
' =============================================

' Navn p� logfilen.
BasePath = Request.ServerVariables("APPL_PHYSICAL_PATH")
AsciiLogFile = BasePath + "logs\LogFileName.fil"

LogLineContent = "Indhold i linien"

' Skriv HeaderLinie i ControlFilen
Set objCtrlFso = Server.CreateObject("Scripting.FileSystemObject")
if objCtrlFso.FileExists(AsciiLogFile) then	
' Skriv i logfilen, hvis den eksisterer
	Set CtrlFile = objCtrlFso.OpenTextFile(AsciiLogFile, ForAppending)
	CtrlFile.WriteLine LogLineContent
	CtrlFile.close
	Set CtrlFile = nothing
else
	Set CtrlFile = objCtrlFso.CreateTextFile(AsciiLogFile, True)
	CtrlFile.WriteLine LogLineContent
	CtrlFile.close
	Set CtrlFile = nothing
end if
Set objCtrlFso = nothing