Besökräknare

9 svar · 298 visningar · startad av antar 4 juni 2002

antarMedlem sedan dec. 2001289 inlägg

Frågan4 juni 2002 13:30#1

Feltyp:
Körningsfel i Microsoft VBScript (0x800A0046)
Åtkomst nekad.
/meny.asp, line 291

felet är Set act = fso.CreateTextFile(textfil, true)

varför får jag fel

<%
'VAR LIGGER TEXTFILEN?
textfil = server.mappath("Database/Besokare.txt")

'FIXA FSO:
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("Database/Besokare.txt"))

'LÄS BESÖKARANTAL:
counter = clng(act.readline)

'KOLLA OM SESSIONen REDAN ÄR RÄKNAD:
If Session("snyggebob") = "" Then
Session("snyggebob") = "bob"
counter = counter + 1
'
'SKRIV NYA ANTALET BESÖKARE TILL TEXTFILEN:
Set act = fso.CreateTextFile(textfil, true)
act.WriteLine(counter)
End If

'STÄNG OCH SKRIV UT
act.Close
Response.Write counter
%>

roadyMedlem sedan jan. 2002473 inlägg

4 juni 2002 13:45#2

Kan du inte byta till:
Set act = fso.OpenTextFileserver.mappath("Database/Besokare.txt", 8, TRUE)

antarMedlem sedan dec. 2001289 inlägg

4 juni 2002 13:50#3

Körningsfel i Microsoft VBScript (0x800A01B6)
Objektet stöder inte egenskapen eller metoden.: 'OpenTextFileserver'
/meny.asp, line 280

roadyMedlem sedan jan. 2002473 inlägg

5 juni 2002 08:19#4

oj vad, kanske skall vara såhär!
Set act = fso.OpenTextFile(server.mappath("Database/Besokare.txt", 8, TRUE))

Se om det går bättre!!!

@ndersMedlem sedan juni 200032 967 inlägg

5 juni 2002 08:30#5

Har IUSR_xxx-maskinkontot rättigheter att skapa filer i mappen?

antarMedlem sedan dec. 2001289 inlägg

5 juni 2002 10:07#6

ja den har rättigheter och har skriva till mappen!!

roadyMedlem sedan jan. 2002473 inlägg

5 juni 2002 12:07#7

bytade du till
Set act = fso.OpenTextFile(server.mappath("Database/Besokare.txt", 8, TRUE))

vad får du för fel då?

antarMedlem sedan dec. 2001289 inlägg

5 juni 2002 12:16#8

Körningsfel i Microsoft VBScript (0x800A01C2)
Fel antal argument eller felaktig egenskapstilldelning.: 'MapPath'
/meny.asp, line 290

jboy_87Medlem sedan aug. 20011 099 inlägg

5 juni 2002 12:18#9

så här ska det se ut

set act = fso.createtextfile(server.mappath("Database/Besokare.txt"))

antarMedlem sedan dec. 2001289 inlägg

5 juni 2002 12:48#10

hur fixar jag kakor i det här?

<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("Database/Besokraknare.txt"))

counter = clng(act.readline)

If Session("Besokt") = "" Then
If Request.Cookies("Besokt") = "" then
Session("Besokt") = "nej"
Response.Cookies("Besokt") = "nej"
counter = counter + 1

set act = fso.createtextfile(server.mappath("Database/Besokraknare.txt"))
act.WriteLine(counter)
End If
end if
act.Close
Response.Cookies("Besokt") = "nej"
set act = nothing
Response.Write counter
%>