---
title: "Räknare.... =)"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/10454-räknare"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "voigtann1"
published: "2001-07-08T16:11:00.000Z"
updated: "2001-07-08T21:11:00.000Z"
replies: 5
views: 210
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/10454-räknare"
---

# Räknare.... =)

## #1 — voigtann1, 2001-07-08T16:11Z

Jag skulle göra en Enkel räknare till en sida... typ jag har sett 2 st olika men jag gillar inga av dom den första är den på wF scripts... visst den e nog skit bra men jag fattar inte vad \*.asa e för fil.. kan det typ vara ASP? hur skriver man den då..

Den andra är en från en bok.
Men den gillar jag inte heller för då ska login namnet vara med i koden och en annan skit i det.

Jag skulle därför vilja ha en Enkel Men en fungerande räknare till en sida..

Tack!

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

## #2 — crisse6, 2001-07-08T16:32Z

hur menar du då? ska du bara visa hur många gånger någon har så att säga "knappat" in adressen till din sida... eller ska du skapa coookies så att om jag te x besöker sidan så plussas antal besökare med 1, men uppdaterar jag så plussar den 1 igen osv... inte  så bra?

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

## #3 — Pace, 2001-07-08T16:36Z

```
<%
' [b]Kommer från [url="http://www.PowerASP.com"]www.PowerASP.com[/url] [/b]
	
' Declare variables
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits
	
Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")
	
	CounterFile = Server.MapPath ("counter.txt")	
	
	Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)
	
		If Not ReadCounterFile.AtEndOfStream Then
			CounterHits = Trim(ReadCounterFile.ReadLine)
			If CounterHits = "" Then CounterHits = 0
		Else
			CounterHits = 0
		End If
	
	ReadCounterFile.Close
	Set ReadCounterFile = Nothing
	
	CounterHits = CounterHits + 1
	
	Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
		WriteCounterFile.WriteLine(CounterHits)
	WriteCounterFile.Close
	Set WriteCounterFile = Nothing
	
Set ObjCounterFile = Nothing
%>

Du är besökare: <% =CounterHits %><br>
```

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

## #4 — PatrikB, 2001-07-08T18:46Z

Fast denna räknare visar ju inte antal besökare ... den visar antal sidvisningar.
Testa ngt liknande, kod från ovan + lite tillägg:

```
<%
' Kommer från [url="http://www.PowerASP.com"]www.PowerASP.com[/url]  

' Declare variables
If Request.&#67ookies("MinRaknare")("Active") <> "1" Then
Dim ObjCounterFile, ReadCounterFile, WriteCounterFile
Dim CounterFile
Dim CounterHits

Set ObjCounterFile = Server.CreateObject("Scripting.FileSystemObject")

CounterFile = Server.MapPath ("counter.txt") 

Set ReadCounterFile= ObjCounterFile.OpenTextFile (CounterFile, 1, True)

If Not ReadCounterFile.AtEndOfStream Then
CounterHits = Trim(ReadCounterFile.ReadLine)
If CounterHits = "" Then CounterHits = 0
Else
CounterHits = 0
End If

ReadCounterFile.Close
Set ReadCounterFile = Nothing

CounterHits = CounterHits + 1

Application.Lock
	Application("CounterHits") = CounterHits
Application.UnLock

Set WriteCounterFile= ObjCounterFile.CreateTextFile (CounterFile, True)
WriteCounterFile.WriteLine(CounterHits)
WriteCounterFile.Close
Set WriteCounterFile = Nothing

Set ObjCounterFile = Nothing
Response.&#67ookies("MinRaknare")("Active") = 1
Response.&#67ookies.Expires = DateAdd("d",1,Now())
End If
%>
Du är besökare: <% =Application("CounterHits") %><br>
```

cya,
PatrikB

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

## #5 — Pace, 2001-07-08T19:27Z

Du har rätt PatrikB!

Tänkte på att använda den tillsammans med en frame (vilket jag gjorde tidigare).

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

## #6 — voigtann1, 2001-07-08T21:11Z

Tack så mycket... använder den översta... du ska ha mycket tack!

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/10454-räknare