---

Jeg har forsøgt mig med denne kode til at skrive til en log fil.
Men det sker intet..Hvad kan være galt..

<%
Const ForAppending = 8
Dim strLogFileName
strLogFileName = "c:\datastores\LogFile.log"

Dim objLogFileFSO
Set objLogFileFSO = CreateObject("Scripting.FileSystemObject")

Dim objLogFileTS
if objLogFileFSO.FileExists(strLogFileName) Then
Set objLogFileTS = objLogFileFSO.OpenTextFile(strLogFileName,
ForAppending)
Else
Set objLogFileTS = objLogFileFSO.CreateTextFile(strLogFileName)
End if

Sub WriteToLog(strNewEntry)
Dim strLogEntry

strLogEntry = FormatDateTime(Now) & " - "
strLogEntry = strLogEntry & strNewEntry
objLogFileTS.WriteLine strLogEntry
End Sub

Sub CloseLog()
objLogFileTS.CLose
End Sub

%>

Så hvis man skriver WriteToLog "Testing"

Så skulle den gerne lave en fil og skrive teksten i den , ikke??

Gugge

---

"!Gugge!" <gugge@email.dk> wrote
> Jeg har forsøgt mig med denne kode til at skrive til en log fil.
> Men det sker intet..Hvad kan være galt..
>
> <%
> Const ForAppending = 8
> Dim strLogFileName
> strLogFileName = "c:\datastores\LogFile.log"

Har den anonyme internet bruger adgang til mappen c:\datastores?

Se evt.: <http://www.asp-faq.dk/article/?id=4> som også omhandler
skriverettigheder

--
Jakob Andersen

---

> Har den anonyme internet bruger adgang til mappen c:\datastores?

Nej det skulle jeg ikke mene...
Og jeg har prøvet bare at ligge den i samme dir. som alle de andre filer.

Jeg har lavet 3 små filer.
1. Man skal indtaste en lille tekst.
2. Den grabber tekststrengen og smider den i WriteFile Funktionen ses i 3.
3. Her er Åbning af tekstfil og alt det der...

Men hvorfor virkder det ikke ordentlig...

kode 1:
<h3>Hvad skal skrives i filen:</h3>
<p>
<FORM ACTION="GrabText.asp" METHOD="GET">
<input type="text" name="tekststreng" size="50"><p>
<input type="Submit" value="Send denne tekst til filen: NewLogFile.log">
</FORM>
.................................................
Kode 2:
<!-- #include file="WriteFile.asp" -->
<%
Dim strGrab
strGrab = Request.QueryString("tekststreng")
WriteToFile(strGrab)
CloseFile()
%>
................................................
Kode 3:
<%
Const ForAppending = 8

Dim strFileName
strFileName = "NewLogFile.log"

Dim objFSO ' Object FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")

Dim objFile

If objFSO.FileExists(strFileName) Then
Set objFile = objFSO.OpenTextFile(strFileName, ForAppending)
Else
Set objFile = objFSO.CreateTextFile(strFileName)
End if

'SubFunktioner....

Sub WriteToFile(strInput)
Dim strEntry

strEntry = FormatDateTime(Now) & " - "
strEntry = strEntryDate & strInput

objFile.WriteLine(strEntryDate)
End Sub

Sub CloseFile()
objFile.Close
End Sub

%>
...............................

Hmm er der nogen der kan give mig et hint om hvor det går galt...


G

---

"!Gugge!" <gugge@email.dk> wrote
> > Har den anonyme internet bruger adgang til mappen c:\datastores?
>
> Nej det skulle jeg ikke mene...

Dette er en nødvendighed før du kan oprette filer.

IUSR_<maskinnavn> skal have skriverettigheder til mappen før der kan
oprettes filer.

Herudover skal du også huske at evt. antivirusprogrammers Scriptblocking kan
give problemer med brug af FileSystem Objektet.

--
Jakob Andersen