Åtkomst nekad

Varför fungerar inte nedan? "\counters\p1r\" har skrivbehörighet, den har jag själv satt.

Function Job(earlier)
		Dim f, fo

		Set f = Server.CreateObject("Scripting.FilesystemObject")
		Set fo = f.OpenTextFile(Server.MapPath("\counters\p1r\p1r.txt"), 1, True)
		Job = fo.ReadLine: fo.Close: Set fo = Nothing: Set f = Nothing

		Set f = Server.CreateObject("Scripting.FilesystemObject")
Line 28		[red]Set fo = f.CreateTextFile(Server.MapPath("\counters\p1r\p1r.txt"), True)[/red]
		fo.WriteLine Job + 1: fo.Close: Set fo = Nothing: Set f = Nothing

		Response.Cookies("p1r") = Now()
End Function

Felmeddelande:

Körningsfel i Microsoft VBScript ( 0x800A0046 )
Åtkomst nekad.
file  :  /index.asp
line :  « 28 »

Därför att du inte angett att filen får bli overwritten.

Det har jag ju visst.

Set fo = f.CreateTextFile(Server.MapPath("\counters\p1r\p1r.txt")[red], True[/red])

Ah... jag som såg ett extra komma :r

Re: Åtkomst nekad

LR^evil.sid skrev:

Varför fungerar inte nedan? "\counters\p1r\" har skrivbehörighet, den har jag själv satt.

Ja, men vem har rättigheterna? Om du använder IUSR_DATOR, så är det ju den användaren som skall ha rättigheterna.

Så klart! Tack OveRRidE.