---
title: "Besökräknare"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/45185-besökräknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "antar"
published: "2002-06-04T13:30:00.000Z"
updated: "2002-06-05T12:48:17.000Z"
replies: 9
views: 316
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/45185-besökräknare"
---

# Besökräknare

## #1 — antar, 2002-06-04T13:30Z

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 
%\>

Permalänk: https://www.webforum.nu/p/45185

## #2 — roady, 2002-06-04T13:45Z

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

Permalänk: https://www.webforum.nu/p/689579

## #3 — antar, 2002-06-04T13:50Z

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

Permalänk: https://www.webforum.nu/p/689584

## #4 — roady, 2002-06-05T08:19Z

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!!!

Permalänk: https://www.webforum.nu/p/689858

## #5 — @nders, 2002-06-05T08:30Z

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

Permalänk: https://www.webforum.nu/p/689864

## #6 — antar, 2002-06-05T10:07Z

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

Permalänk: https://www.webforum.nu/p/689919

## #7 — roady, 2002-06-05T12:07Z

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

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

Permalänk: https://www.webforum.nu/p/689999

## #8 — antar, 2002-06-05T12:16Z

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

Permalänk: https://www.webforum.nu/p/690003

## #9 — jboy_87, 2002-06-05T12:18Z

så här ska det se ut

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

Permalänk: https://www.webforum.nu/p/690009

## #10 — antar, 2002-06-05T12:48Z

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 
%\>

Permalänk: https://www.webforum.nu/p/690024

---

Tråden på webben: https://www.webforum.nu/amne/asp/45185-besökräknare