---
title: "Webstudios Counter nollställs :("
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/12075-webstudios-counter-nollställs"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "nill"
published: "2001-10-13T14:47:00.000Z"
updated: "2001-10-13T15:16:00.000Z"
replies: 2
views: 204
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/12075-webstudios-counter-nollställs"
---

# Webstudios Counter nollställs :(

## #1 — nill, 2001-10-13T14:47Z

Webstudio beskriver en räknare med denna koden:

\<% Application.Lock
		Application.Contents("Besokare") = Application.Contents("Besokare") + 1
		Application.Unlock 

		Set F = CreateObject("Scripting.FileSystemObject")
		Set T = F.CreateTextFile(Server.MapPath("\\partyzone\\counter.txt")) 
	
		T.WriteLine Application.Contents("Besokare") 

		T.Close 

		Set A = CreateObject("Scripting.FileSystemObject")
		Set B = A.OpenTextFile(Server.MapPath("\\partyzone\\counter.txt")) 

		Visits = B.ReadLine 

		B.Close %\> 

		\<b\>\<% =Visits %\>\</b\>

Visst det fungerar ju bra och sånt   fast ibland så kolla jag på sidan och då har den nollställt sig själv.. lite tråkigt.   

Hur kan detta komma sig ?

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

## #2 — jorgen, 2001-10-13T15:05Z

Hej!

Inget ovanligt, webstudios kodexempel brukar inte vara särskilt genomtänkta.

Klicka på sök uppe till höger och skriv in räknare eller dyl, så lär du hitta bättre exempel på en räknare.

mvh Jörgen :)

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

## #3 — LarsG, 2001-10-13T15:16Z

IDG-skriptet borde (nästan) fungera så länge man inte startar om webbservern.

```
<% 
Application.lock
Set F = CreateObject("Scripting.FileSystemObject")
if  F.FileExists(Server.MapPath("\partyzone\counter.txt")) then
Set B = A.OpenTextFile(Server.MapPath("\partyzone\counter.txt")) 
Visits = Clng(B.ReadLine) + 1 
b.close
else
Visits = Clng(1)
end if
Set T = F.CreateTextFile(Server.MapPath("\partyzone\counter.txt"),true) 
T.WriteLine Visits 
T.Close 
Application("Besokare") = Visits
Application.unlock
%>
<b><% =Visits %></b>
```

Nu är ju denna kod lika otestad som IDG's skript.

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/12075-webstudios-counter-nollställs